Arsip: procedure SendKey

Form1 = Class(TForm)
...
...
private
public
procedure SendKey(Shift:TShiftState; Key: Word);
end;
implementation
procedure SendKey(Shift:TShiftState; Key: Word);
begin
if (ssCtrl in Shift) then keybd_event(VK_CONTROL, 1, 0, 0);
if (ssShift in Shift) then keybd_event(VK_SHIFT, 1, 0, 0);
if (ssAlt in Shift) then keybd_event(VK_MENU, 1, 0, 0);
keybd_event(Key, 1, 0, 0);
keybd_event(Key, 1, KEYEVENTF_KEYUP, 0);
if (ssAlt in Shift) then keybd_event(VK_MENU, 1, KEYEVENTF_KEYUP, 0);
if (ssShift in Shift) then keybd_event(VK_SHIFT, 1, KEYEVENTF_KEYUP, 0);
if (ssCtrl in Shift) then keybd_event(VK_CONTROL, 1, KEYEVENTF_KEYUP, 0);
end;