程序开机自启

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);