自启动注册表项:HKEY_LOCAL_MACHINE/Software/Microsoft/CurrentVersion/Run
先加入“Registry”单元。
再用如下代码:
var
Reg: TRegistry;
KeyName: string;
begin
Reg := TRegistry.Create;
KeyName := ExtractFileName(Paramstr(0)); //Paramstr(0)等价于application.ExeName
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('/Software/Microsoft/CurrentVersion/Run',false) then
begin
WriteString(KeyName, Paramstr(0));
CloseKey;
end;
finally
FreeAndNil(Reg);
end;
end;