uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
name:array [0..255] of Char;
Psize:DWORD;
begin
if IsWow64 then
begin
Reg:=TRegistry.Create(KEY_WRITE or KEY_WOW64_64KEY or KEY_WOW64_32KEY or KEY_READ);
name:='';
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SYSTEMControlSet001ServicesTcpipParametersInterfaces{9EEDCC67-151A-41E2-B580-BE586CAB09E3}',True) then
begin
if RegQueryValueEx(reg.CurrentKey,'IPAddress',nil,nil,@name,@Psize)=ERROR_SUCCESS then
begin
ShowMessage('成功');
end
else
begin
ShowMessage('失败');
end;
//RegQueryValueEx(reg.CurrentKey,'IPAddress',nil,nil,@name,@Psize);
sEdit1.Text:=Copy(name,0,StrLen(name));
sEdit1.SetFocus;
Reg.CloseKey;
Reg.Free;
end
else
begin
Reg.CloseKey;
Reg.Free;
end;
end
else
begin
Reg:=TRegistry.Create(KEY_WRITE or KEY_READ or KEY_WOW64_32KEY);
name:='';
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SYSTEMControlSet001ServicesTcpipParametersInterfaces{9EEDCC67-151A-41E2-B580-BE586CAB09E3}',False) then
begin
if RegQueryValueEx(reg.CurrentKey,'IPAddress',nil,nil,@name,@Psize)=ERROR_SUCCESS then
begin
ShowMessage('成功');
end
else
begin
ShowMessage('失败');
end;
//RegQueryValueEx(reg.CurrentKey,'IPAddress',nil,nil,@name,@Psize);
sEdit1.Text:=Copy(name,0,StrLen(name));
sEdit1.SetFocus;
Reg.CloseKey;
Reg.Free;
end
else
begin
Reg.CloseKey;
Reg.Free;
end;
end;
end;