Globalen Hotkey definieren...

[Tim.exe]

Hallo,

hiermit kann man die Tastenkombination "Strg + A" als globalen Hotkey definieren (natürlich fehlt noch was drum herum...):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
const 
  MOD_CONTROL = 2; 
  VK_A = 65; 
begin 
  id1 := GlobalAddAtom('Hotkey1'); 
  RegisterHotKey(Handle, id1, MOD_CONTROL, VK_A);  
end;

Wie kann man es machen das man die Asciitaste zur Laufzeit selbst definieren kann? So geht es ja nicht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
const 
  MOD_CONTROL = 2; 
  VK_A = 65; 
begin 
  id1 := GlobalAddAtom('Hotkey1'); 
  RegisterHotKey(Handle, id1, MOD_CONTROL, Edit1.Text);  
end;