Uses
Registry
procedure TMainFrm.SetAutoRun;var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('Bosure.Q', ParamStr(0));
Reg.CloseKey;
finally
Reg.Free;
end;
end;
SetAutoRun(True);
SetAutoRun(False);