Anwendung versteckt autostarten

[mr-unbekannt]

hello


mein programm startet versteckt mit windows mit, das habe ich geschafft. Ich habe einen HotKey eingebaut, und wenn der aktiviert wird, öffnet sich die Form. Wenn ShowMainForm auf False ist, reagiert der Hotkey nicht...

ich habe den code in der Form1 für den Hotkey:

Delphi-Quellcode:

private
  id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    { Private-Deklarationen }
  public
     { Public-Deklarationen }
  end;

  
var
  Form1: TForm1;
implementation

{$R *.dfm}

 procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = id1 then begin  Form1.Show; TrayIcon1.Active := True; end;
end;

und den Beim Project-Quelltext:

Delphi-Quellcode:

var r: Tregistry;
begin

  CreateHook(Application.Handle,true);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
   R:=TRegistry.Create;
  R.RootKey:=HKEY_LOCAL_MACHINE;
  try
  R.OpenKey('SOFTWARE\Microsoft\APK', true);
  if R.ReadString('hon') = 'True' then begin Application.ShowMainForm := false;
  Form1.TrayIcon1.Active := False; end;
  finally R.Free end;

  Application.Run;



end.