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...