procedure GetIpButtonOnClick(Sender: TObject);
var
KeyNames: TArrayOfString;
I: Integer;
CardIdKeyName, KeyName, ValueName: String;
ServiceKey, IpAdd: String;
begin
CardIdKeyName := 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards';
if RegGetSubkeyNames(HKLM, CardIdKeyName, KeyNames) then
begin
for I := 0 to GetArrayLength(KeyNames)-1 do
begin
KeyName := CardIdKeyName + '\' + KeyNames[I];
if RegQueryStringValue(HKLM, KeyName, 'ServiceName', ValueName) then
begin
ServiceKey := 'SYSTEM\CurrentControlSet\Services\';
ServiceKey := ServiceKey + ValueName + '\Parameters\Tcpip';
if RegQueryMultiStringValue(HKLM, ServiceKey, 'IPAddress', IpAdd) then
begin
MsgBox('IpAddress:'#13#10#13#10 + IpAdd, mbInformation, MB_OK);
break;
end
end
end
end else
begin
// add any code to handle failure here
MsgBox('failure', mbInformation, MB_OK);
end;
end;
评论1
最新资源