how to get program's exitcode and close it ?_? |
|
junlin
初階會員 ![]() ![]() 發表:66 回覆:94 積分:42 註冊:2002-03-13 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
junlin
初階會員 ![]() ![]() 發表:66 回覆:94 積分:42 註冊:2002-03-13 發送簡訊給我 |
|
kan0515
中階會員 ![]() ![]() ![]() 發表:56 回覆:120 積分:50 註冊:2002-06-24 發送簡訊給我 |
|
andersonhsieh
版主 ![]() ![]() ![]() ![]() ![]() 發表:33 回覆:531 積分:439 註冊:2002-06-10 發送簡訊給我 |
給你一段程式參考
procedure ShellApplication(AppName, Caption : String; Param : array of String); var execinfo : TShellExecuteInfo; ApplicationName, ParamString : String; i : integer; begin for i := Low(PARAM) to High(Param) do ParamString := ' ' ParamString ' ' Param[i]; ApplicationName := ExtractFilePath(Application.ExeName) AppName '.exe'; FillChar(execinfo,SizeOf(execinfo),0); execinfo.cbSize:=sizeof(execinfo); execinfo.lpVerb:='Open'; execinfo.lpFile:=Pchar(ApplicationName); //所要執行的外部 execinfo.lpParameters:=Pchar(ParamString); //參數 execinfo.fMask:=SEE_MASK_NOCLOSEPROCESS; execinfo.nShow:=SW_HIDE; if (not ShellExecuteEx(@execinfo)) then ShowError(GetMsg(CanFindExe) '"' Caption '(' AppName '.exe' ')' '"' GetMsg(ContactSysAdm), 'Error', False); Application.Minimize; WaitForSingleObject(execinfo.hProcess,INFINITE); //會一止等待直到執 // 行的外部程式結束,才會把控制權交給你的應用程式。 Application.Restore; end;@@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@ |
andersonhsieh
版主 ![]() ![]() ![]() ![]() ![]() 發表:33 回覆:531 積分:439 註冊:2002-06-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |