[delphi] Programma laten opkomen op een hotkey

[Parcye]

Hoi!

Ik ben bezig met een programma te maken die ik en niet op de systry wil en niet op de taakbalk, afein, dat lukt zo.

Maar nu wil ik wel ooit de setup kunnen runnen.

Heb 2 opties... Programma 2 keer laten starten en 1 maal door setup als param te geven..

Of wat ik liever heb een HotKey die de applicatie weer zichbaar maakt... maar dan de vraag hoe, een hotkey setten lukt me niet, en dan nog een actie er aan koppellen vind ik nog wat lastiger.

Alvast bedankt.

[maikel]

code:

public:
  procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;


procedure TForm1.FormCreate(Sender: TObject);
Const
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  MOD_SHIFT = 4;
  VK_S = 83;
  VK_R = 82;
begin
  GotMessage := false;
  id1:=GlobalAddAtom('SCHotkey1');
  RegisterHotKey(handle,id1,MOD_CONTROL+MOD_SHIFT, VK_S);
end;

procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
  if msg.HotKey = id1 then
  begin
    // code
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle,id1);
end;

[Parcye]

Deze krijg ik toch niet echt werkend.. hoe zorg ik er voor dat ie wel bij de code komt die hij moet uitvoeren...

[Eegee]

Is http://www3.ewebcity.com/troels/download/hotkeys.zip wat voor je ?

[maikel]

Op maandag 18 maart 2002 21:58 schreef Parcye het volgende:
Deze krijg ik toch niet echt werkend.. hoe zorg ik er voor dat ie wel bij de code komt die hij moet uitvoeren...

Sorry, sorry, sorry !!

Die regel moet niet:

code:

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

zijn, maar:

code:

procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

Ik had per ongeluk de verkeerde gekopieerd.
Als het goed is moet het nu wel werken.