介绍大家一种Delphi 写入注册表的方法;使用RegOpenKeyEx 写入,代码如下:
procedure TForm1.regSelf;
var
hdKey:hkey;
lpFileName:array[0..255] of char;
nSize:integer;
begin
nSize:=256;
GetModuleFileName(0,lpFileName,nSize);
if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,pchar(’SOFTWAREMicrosoftWindowsCurrentVersionRu n’),
0,KEY_ALL_ACCESS,hdKey)=ERROR_SUCCESS) then
begin
RegSetValueEx(hdkey,’IPserver’,0,REG_SZ,@lpFileName,nSize); //插入键值IPserver
regclosekey(hdkey);
end;
end;
责任编辑:小草