我有一程式開啟後再按鈕會執行一pack.exe,因為必須等到pack.exe執行完畢後才執行下一步,因此使用createprocess與waitforsingleobject,可是發現若是以 mouse在檔案總管中開啟可以正常執行,若是以命令字元執行例C:\>C:\A\project1.exe執行,pack.exe似乎不會啟動,很快就跳到下一步了,因為此程式也要由其他程式呼叫開啟,因此一定要解決此問題  

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  runCommand('pack.exe 01', false, true);  //01為傳入pack.exe的參數      showmessage('T');
end;    {
  sCmdLine: 要執行的命令列, 包含命令與參數
  isShow: 要顯示出視窗否?
  isWait: 是否要等待被執行的命令執行完畢?
}    function runCommand(sCmdLine: string; isShow: boolean = true; isWait: boolean = true): boolean;
var
  _oSecurity: TSecurityAttributes;
  _oStartInfo: TStartUpInfo;
  _oProcessInfo: TProcessInformation;
  _wAppRunning: DWord;
  _isOK: boolean;
begin
  with _oSecurity do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;      // Set up members of the PROCESS_INFORMATION structure.
  ZeroMemory(@_oProcessInfo, sizeof(TPROCESSINFORMATION));      // Set up members of the _oStartInfoUPINFO structure.
  FillChar(_oStartInfo, Sizeof(_oStartInfo), #0);
  _oStartInfo.cb := SizeOf(_oStartInfo);
  _oStartInfo.dwFlags := STARTF_USESTDHANDLES   STARTF_USESHOWWINDOW;
  if (isShow) then
    _oStartInfo.wShowWindow := SW_SHOWNORMAL
  else
    _oStartInfo.wShowWindow := SW_HIDE;      _isOK := CreateProcess(nil,
    PChar(sCmdLine),
    @_oSecurity,
    @_oSecurity,
    true,
    NORMAL_PRIORITY_CLASS,
    nil,
    nil,
    _oStartInfo,
    _oProcessInfo);      if (_isOK) and (isWait) then
  begin
    repeat
      _wApprunning := WaitForSingleObject(_oProcessInfo.hProcess, 100);
      Application.ProcessMessages;
    until (_wApprunning <> WAIT_TIMEOUT);
  end;      result := _isOK;
end;    

[quote] rachex2000 你好 我找了兩個論內容，你參考看看應該可以符合你的需求 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38858 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20984

發現解決辦法了,createprocess的LPCTSTR lpCurrentDirectory參數要 傳入extractfilePath(Application.exename),若傳入nil,會以程式呼叫處的路徑傳入, 若是使用shellexecute也有同樣情形