delphi 如何模拟输入F4 和COPY+C组合键?

来源:百度知道 编辑:UC知道 时间:2024/07/04 09:19:50
delphi 如何模拟输入F4 和COPY+C组合键?
delphi

1.copy+C是什么呀? = ctrl+C?
2.在from的FormKeyDown事件里写。
例如F4
if VK_F4=Key then
begin
//你要做的事..
Exit;
end;

if ***=Key then //***是你要监听的键
begin
//你要做的事..
Exit;
end;

keybd_event(VK_F4,MapVirtualKey(VK_F4,0),0,0);
keybd_event(VK_F4,MapVirtualKey(VK_F4,0),KEYEVENTF_KEYUP,0);

keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);
keybd_event($43,MapVirtualKey($43,0),0,0);
keybd_event($43,MapVirtualKey($43,0),KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0);