shellexecute(0,'open','c:\windows\mspass.exe',nil,nil,sw_hide);
sleep(1000);
h:=findwindow('MessenPass','MessenPass');
if h<>0 then
begin
setforegroundwindow(h);
keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY or 0,0);
keybd_event(67,0,KEYEVENTF_EXTENDEDKEY or 0,0);
keybd_event(67,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
messagebox(0,'解压出错!','错误',0);
end;
s:=clipboard.AsText;打开一个文件,然后发送按键ctrl+c.本来s:=clipboard.AsText;可以直接取到值,但不知道怎么搞的,
messagebox(0,'解压出错!','错误',0);这句如果不写的话,就一定不成功....
写了就肯定成功.
郁闷ing...
sleep(1000);
h:=findwindow('MessenPass','MessenPass');
if h<>0 then
begin
setforegroundwindow(h);
keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY or 0,0);
keybd_event(67,0,KEYEVENTF_EXTENDEDKEY or 0,0);
keybd_event(67,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
messagebox(0,'解压出错!','错误',0);
end;
s:=clipboard.AsText;打开一个文件,然后发送按键ctrl+c.本来s:=clipboard.AsText;可以直接取到值,但不知道怎么搞的,
messagebox(0,'解压出错!','错误',0);这句如果不写的话,就一定不成功....
写了就肯定成功.
郁闷ing...
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货