![]() |
Hotkey Konstanten
Frage selbst beantwortet:
Edit: Ja gibt es und ich habe sie gefunden: ![]() Hey, :hi: ich habe mir ein Programm rausgesucht, dass auf ein systemweites Hotkey hört:
Delphi-Quellcode:
Ich habe "VK_P = $50;" im Internet gefunden und nicht mehr.
unit Unit1;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } HotKeyID: Integer; procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; public { Public declarations } end; var Form1: TForm1; Wnd1,Wnd2 : array[0..255] of char; implementation {$R *.dfm} procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin if Msg.HotKey = HotKeyID then ShowMessage('P wurde gedrückt !'); end; procedure TForm1.FormCreate(Sender: TObject); const VK_P = $50; VK_Not = $0; begin HotKeyID := GlobalAddAtom(PChar(Application.Exename + '_Hotkey1')); RegisterHotKey(Handle, HotKeyID, VK_Not, VK_P); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(Handle, HotKeyID); GlobalDeleteAtom(HotKeyID); end; end. Natürlich möchte ich mehr machen, als nur eine Prozedur aufrufen, wenn ich p drücke. Also auch möchte ich was machen, wenn ich die 2 auf dem Numpad oder ein a drücke. Woher soll ich die Konstanten wissen? Gibt es vielleicht dazu eine Liste? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:39 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz