Delphi-Quellcode:
procedure RegisterShortCut(Hkey:TShortCut);
var
fuModifiers:Cardinal;
Key:Word;
Shift: TShiftState;
begin
fuModifiers :=0;
ShortCutToKey(HKey,Key,Shift);
if ssCtrl
in Shift
then
fuModifiers:=MOD_CONTROL;
if ssShift
in Shift
then
fuModifiers:=fuModifiers
or MOD_SHIFT;
if ssAlt
in Shift
then
fuModifiers:=fuModifiers
or MOD_ALT;
RegisterHotKey(
Handle,HotKey,fuModifiers, Key);
end;
In der letzter Zeile ist ein Fehler: Das Wort "
Handle" ist Unbekannt...
von dieser Seite der Quelltext
http://members.tripod.com/dttq/31.html
Grüße, NeoDeluxe 8)
[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]