需要单元Registry;
procedure SetAutoRun(ok: boolean);
varReg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
if ok then
begin
Reg.WriteString(Application.Title, ExpandFileName(ParamStr(0)));
end
else
begin
reg.DeleteValue(Application.Title);
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end;