我要執行HPS.exe 程式,順便傳遞 sUserID變數過去,但是傳過去的值卻是sUserID字串,請問是哪裡錯了    if WinExec('G:\Winprg\Sprg\HPS.exe sUserID, SW_MAXIMIZE)<31 then

引言: 我要執行HPS.exe 程式,順便傳遞 sUserID變數過去,但是傳過去的值卻是sUserID字串,請問是哪裡錯了 if WinExec('G:\Winprg\Sprg\HPS.exe sUserID, SW_MAXIMIZE)<31 then

yx_huang77 你好 你應該如下處理 if WinExec('G:\Winprg\Sprg\HPS.exe "' sUserID '"', SW_MAXIMIZE)<31 then

出現錯誤 [Error] Main.pas(186): Incompatible types: 'String' and 'PAnsiChar'

應該是這個錯誤 [Error] Main.pas(186): Not enough actual parameters

引言: 你應該如下處理 if WinExec('G:\Winprg\Sprg\HPS.exe "' sUserID '"', SW_MAXIMIZE)<31 then

yx_huang77 你好

改成如下
Var
  Cmds : String;
Begin
  Cmds := 'G:\Winprg\Sprg\HPS.exe "' sUserID '"';
  if WinExec(Cmds,SW_MAXIMIZE)<31 then
  .....
End;

還是出問題 誰來救救我 [Error] Main.pas(187): Missing operator or semicolon

是否可以貼出相關程式碼,以利錯誤的判斷

您好：這是執行碼    procedure TfmMain.Btn21Click(Sender: TObject); begin   if WinExec(''G:\Winprg\Sprg\HPS.exe "''+sUserID+''"'', SW_MAXIMIZE)<31 then //if WinExec('G:\Winprg\Sprg\HPS.exe sUserID sPassID sMastID sUserName', SW_MAXIMIZE)<31 then // if WinExec(PChar(Cmds), SW_MAXIMIZE)<31 then begin MyWarning('找不到該程式、請聯絡資訊人員！'); abort; end else Application.Terminate; end; 這是錯誤訊息 [Error] Main.pas(185): Not enough actual parameters [Error] Main.pas(185): Illegal character in input file: '\' ($5C) [Error] Main.pas(185): Illegal character in input file: '"' ($22) [Hint] Main.pas(54): Private symbol 'ErrorProc' declared but never used [Fatal Error] Hp.dpr(16): Could not compile used unit 'Main.pas' 麻煩您

Hi yx_huang77: 以下為小弟建議: 1.第一個錯誤訊息是參數不足, 請確認HPS 此程式是否需要四個參數  G:\Winprg\Sprg\HPS.exe sUserID sPassID sMastID sUserName 2.如果參數有四個, 程式碼如下, 參數與參數間須有空格, 所以加上' ' 加油囉