delphi 注册表

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('SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{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('SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{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;

转载于:https://www.cnblogs.com/fuhuo/p/11156184.html