var ch9:string;
begin
ch9:=ExtractFilePath(Application.ExeName);
ShellExecute(handle, 'Open',pchar(ch9+'KeyHook\KeyHook.exe'),nil, pchar(ch9+'KeyHook\'), sw_Show);
end;

解决方案 »

  1.   

    1) 
    ShellExecute(Application.Handle,  nil,  'C:\WINDOWS\CALC.EXE'+#0,  nil,  nil,  SW_SHOWNORMAL)
     
    uses shellapi2)
    winexec(pchar(filename),sw_show);  
      

  2.   

    ShellExecute(handle, 'Open',path,nil,nil, sw_Show)
      

  3.   

    uses shellapi
      shellexecute(handle,'open','C:\Program      Files\Tencent\qq2000b.exe',nil,nil,sw_shownormal);
      
      winexec(pchar('C:\Program Files\Tencent\qq2000b.exe'),sw_show);
      

  4.   

    ShellExecute(Application.Handle,  nil,  'C:\WINDOWS\CALC.EXE'+#0,  nil,  nil,  SW_SHOWNORMAL)
     
    uses shellapi
      

  5.   

    其实都是一样的
    winexec好象是以前的版本用,为了兼容,就留下了,
    建议你最好用新的。
        ShellExecute(handle,'open',PChar('notepad'),nil,nil,SW_SHOW);
      

  6.   

    ShellExecute(handle,'open',PChar('E:\epad.exe'),nil,nil,SW_SHOW);