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.