Here is the script I'm using for 1 hotkey:
Code:
procedure TestProc1;
begin
ShowMessage('Testing 1 2 3');
end;
procedure DLL_Load;
var
Hot : THotKey;
begin
Running := true;
setlength(Hot, 1);
Hot[0] := VK_F1;
SetHotKey(@TestProc1, Hot);
IntLog('C:\rpe_log.log');
end;
Code:
procedure TestProc1;
begin
ShowMessage('Testing 1 2 3');
end;
procedure TestProc2;
begin
ShowMessage('Testing a b c');
end;
procedure DLL_Load;
var
Hot : THotKey;
Hot2 : THotKey;
begin
Running := true;
setlength(Hot, 1);
Hot[0] := VK_F1;
SetHotKey(@TestProc1, Hot);
setlength(Hot2, 1);
Hot2[0] := VK_F2;
SetHotKey(@TestProc2, Hot2);
IntLog('C:\rpe_log.log');
end;
I'm not sure if I'm doing something wrong or if this isn't possible. If anyone can please help me fix this so I can use multiple hotkeys that would be great. Thanks in advance.






