HotKey und SetFocus

[Nils_13]

Hi,

mein Programm ist bei Start unsichtbar. Wenn ich einen HotKey drücke, soll das Programm erscheinen und der Fokus auf das Programm gerichtet sein. Wenn ich das Programm aus Delphi heraus ausführe und den entsprechenden HotKey drücke, wird es fokusiert. Mache ich es hingegen via Explorer/Autostart, ist das Fenster nicht fokusiert. Eine Idee warum ?

Delphi-Quellcode:

procedure TfrmMain.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TfrmMain.WMHotKey(var Message : TMessage);
begin
  if Message.wParam = HotKeyID then
    if Visible then
      Hide
    else
    begin
      Show;
      SetFocus;
    end;
end;