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;

[Schubi]

VK_A ist der Code von A.

Also:

Delphi-Quellcode:

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

Ord gibt den Code eines Char zurück. Musst mal schauen obs mit .Text geht, ansonsten erst in Char umwandeln

[Tim.exe]

Hallo,

vielen Dank

hmm das mit Ord(xxx) hab ich sogar schon mal gemacht, allerdings hatte ich aus der Hilfe gelesen das das nur für numerische Zeichen ist.

Testen kann ich erst heute Abend, da mein Delphi in Arbeit irgendwie spinnt, das muss neu installiert werden

[Schubi]

Du hattest sicher in der Hilfe gelesen, dass Ord() einen nummerischen Wert zurück gibt, und dem ist ja auch so

Rückwärts gehts mit Chr(), Ord('A') = 65, Chr(65) = 'A'