怎么不能加载外部程序？帮我看看。

Question

很简单就是打开程序目录里的caigou.exe文件，
.......................
uses WinProcs;
......................
winexec(PChar(ExtractFilePath(Paramstr(0))+'caigou.exe'),SW_SHOWNORMAL);
..............

Answer 1

var
  Path: pChar;    //通过相对路径取得的绝对路径
begin
  if FileExists(ExtractFilePath(Application.Exename) + 'JCTransHelp.pdf') then
  begin
    path := pchar(ExtractFilePath(Application.Exename) + 'JCTransHelp.pdf');
    ShellExecute(0, 'open', path, nil, nil, SW_SHOWNORMAL);
  end

Answer 2

用这个吧
uses shellapiShellexecute(hwnds, nil,PChar(ExtractFilePath(Paramstr(0))+'caigou.exe'),nil,nil, SW_NORMAL);

Answer 3

还是不行啊。uses shellapi;
..................
path := pchar(ExtractFilePath(Application.Exename) + 'caigou.exe');
    ShellExecute(0, 'open', path, nil, nil, SW_SHOWNORMAL);
...............

Answer 4

procedure TCallMain.Button1Click(Sender: TObject);
var
  hExeHandle:HWND;
  ExeStr:string;
begin
  ExeStr := 'Search.exe "' + edit1.text + '"';
  hExeHandle := WinExec(Pchar(ExeStr),SW_SHOWNORMAL);
end;

Answer 5

用
showmessage(ExtractFilePath(Paramstr(0))+'caigou.exe');看，路径没问题啊，奇怪了。我换成Winexec('Notepad.exe',sw_Normal);都可以打开，
但我的caigou.exe的确没问题的啊

Answer 6

直接指明路径都不行啊，？？？？？？？？？？？？？？？？winexec('E:\tj\work\update\caigou.exe',sw_Normal);