怎样得知一个应用程序已经关闭?(50分)

pandaxj · 2001-10-29

各位兄台!我现在遇到的问题是:我用shellexecute执行一个带参数人可执行文件,这个可执行文件是按参数执行完 后自动结束!当这个文件执行完后我还要执行一个文件(这个文件想要在上一个文件执行完后再执行),怎么 才能知道上一个文件已经执行完毕?还望各位兄台多多指点!

DragonPC_??? · 2001-10-29

ShellExecute 因为无法获取创建的进程句柄，所以只能是不断循环等待处理 这个函数在RxLib 的 RXShell.pas 的FileExecuteWait函数解释的非常清楚的。 Win32环境可以使用ShellExecuteEx或是CreateProcess函数，Win16环境就使用 FileExecute －－－－－摘抄自 RxLib 2.75 RXShell.pas function FileExecute(const FileName, Params, StartDir: string;   InitialState: TExecState): THandle; {$IFDEF WIN32} begin   Result := ShellExecute(Application.Handle, nil, PChar(FileName),     PChar(Params), PChar(StartDir), ShowCommands[InitialState]); end; {$ELSE} var   cFileName, cParams, cPath: array [0..80] of Char; begin   Result := ShellExecute(Application.Handle, nil, StrPCopy(cFileName,     FileName), StrPCopy(cParams, Params), StrPCopy(cPath, StartDir),     ShowCommands[InitialState]); end; {$ENDIF} function FileExecuteWait(const FileName, Params, StartDir: string;   InitialState: TExecState): Integer; {$IFDEF WIN32} var   Info: TShellExecuteInfo;   ExitCode: DWORD; begin   FillChar(Info, SizeOf(Info), 0);   Info.cbSize := SizeOf(TShellExecuteInfo);   with Info do begin     fMask := SEE_MASK_NOCLOSEPROCESS;     Wnd := Application.Handle;     lpFile := PChar(FileName);     lpParameters := PChar(Params);     lpDirectory := PChar(StartDir);     nShow := ShowCommands[InitialState];   end;   if ShellExecuteEx(@Info) then begin     repeat       Application.ProcessMessages;       GetExitCodeProcess(Info.hProcess, ExitCode);     until (ExitCode <> STILL_ACTIVE) or Application.Terminated;     Result := ExitCode;   end   else Result := -1; end; {$ELSE} var   Task: THandle; begin   Result := 0;   Task := FileExecute(FileName, Params, StartDir, InitialState);   if Task >= HINSTANCE_ERROR then begin     repeat       Application.ProcessMessages;     until (GetModuleUsage(Task) = 0) or Application.Terminated;   end   else Result := -1; end; {$ENDIF}

liuyuch2000 · 2001-10-29

假如我知道程序的名字呢？

pingbaoshi · 2001-11-01

var Myhandle:HWND; begin    Myhandle:= FindWindow(nil, 'xx');  if MyHandle <> 0 then   获得句柄，说明还没完。 或 //循环枚举出系统开启的所有进程，找出“xxx”

cheka · 2001-11-02

用CreateProcess 配合 WaitForSingleObject 抄了一段网上的tips过来： var    sCommandLine: string;    bCreateProcess: boolean;    lpStartupInfo: TStartupInfo;    lpProcessInformation: TProcessInformation; begin    // sCommandLine 的内容请视您的情况修改    sCommandLine :='Xcopy d:/temp/temp1/*.* d:/temp/temp2 /v/y';    lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;    lpStartupInfo.wShowWindow := SW_HIDE;    bCreateProcess := CreateProcess(nil, PChar(sCommandLine),nil,nil,True,                 HIGH_PRIORITY_CLASS, nil, nil,lpStartupInfo, lpProcessInformation);    if bCreateProcess then         WaitForSingleObject(lpProcessInformation.hProcess, INFINITE); end;

microyzy · 2001-11-02

用API,以下是一段VB程序，应该可以看得懂的。 '执行 Dim pId As Long, pHnd As Long pId = Shell("cmd.exe", vbNormalFocus) pHnd = OpenProcess(SYNCHRONIZE, 0, pId) ' 取得 Process Handle If pHnd <> 0 Then Call WaitForSingleObject(pHnd, INFINITE) ' 等待程序结束 Call CloseHandle(pHnd) End If '执行结束

nsj · 2001-11-02

想简单的话，就用FINDWINDOW吧； VAR   HW：HWND； BEGIN    HW：=FINDWINDOW（NIL，你的程序的窗体名称）；    IF HW<>0 THEN       未关闭； END；

ecfan1 · 2001-11-04

// WinExecAndWait32能满足你的要求,要是只是想判断,可以用第二个函数.适当修改一下就可以了. FUNCTION WinExecAndWait32(FileName: STRING; Visibility: integer): longint; VAR   zAppName: ARRAY[0..512] OF char;   zCurDir: ARRAY[0..255] OF char;   WorkDir: STRING;   StartupInfo: TStartupInfo;   ProcessInfo: TProcessInformation; //  LPDWORD: lpExitCode; BEGIN   StrPCopy(zAppName, FileName);   GetDir(0, WorkDir);   StrPCopy(zCurDir, WorkDir);   FillChar(StartupInfo, Sizeof(StartupInfo), #0);   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := Visibility;   IF NOT CreateProcess(NIL,     zAppName, { pointer to command line string }     NIL, { pointer to process security attributes}     NIL, { pointer to thread security attributes }     false, { handle inheritance flag }     CREATE_NEW_CONSOLE OR { creation flags }     NORMAL_PRIORITY_CLASS,     NIL, { pointer to new environment block }     NIL, { pointer to current directory name }     StartupInfo, { pointer to STARTUPINFO }     ProcessInfo) THEN     Result := -1 { pointer to PROCESS_INF }   ELSE   BEGIN     WaitforSingleObject(ProcessInfo.hProcess, INFINITE);   //  GetExitCodeProcess(ProcessInfo.hProcess, nil);   END; END; function TfrmMain.Execute(ComLine: string): boolean; var   lpAppName: pchar;   lpTitle: Pchar;   StartInfo: TStartupInfo;   FProcessInfo: TProcessInformation;   Maxpath: integer; begin   if (Length(ComLine) + 2) > 255 then   begin    // SetError(-1, 'Command Line Too Long!');     Result := false;     exit;   end; //  Size := FileSize(F); //  MaxPath:=sizeof(lpAppName);   GetMem(lpAppName, MaxPath);   GetMem(lpTitle, MaxPath);   StrPCopy(lpAppName, ComLine);   StrPCopy(lpTitle, ComLine);   //init StartInformation   StartInfo.cb := sizeof(TStartupInfo);   StartInfo.lpReserved := nil;   StartInfo.lpDesktop := nil;   StartInfo.lpTitle := lpTitle;   StartInfo.dwFillAttribute := 0;   StartInfo.cbReserved2 := 0;   StartInfo.lpReserved2 := nil;   //这个参数控制Create Window形态   //STARTF_USESHOWWINDOW 指定这个标志位，指示用ShowWindow的参数建立窗口   StartInfo.dwFlags := STARTF_USESHOWWINDOW;  // StartInfo.wShowWindow := FWinStyle;   //CreateProcess 在Windows.pas中的一个原形   //function CreateProcessA(lpApplicationName: PAnsiChar; lpCommandLine: PAnsiChar;   //lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;   //bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;   //lpCurrentDirectory: PAnsiChar; const lpStartupInfo: TStartupInfo;   //var lpProcessInformation: TProcessInformation): BOOL; stdcall;   //Clear ProcessInfo Structure   FProcessInfo.hProcess := 0;   FProcessInfo.hThread := 0;   FProcessInfo.dwProcessId := 0;   FProcessInfo.dwThreadId := 0;   //Create process   if CreateProcess(nil,     lpAppName,     nil,     nil,     False,     0,     nil,     nil,     StartInfo,     FProcessInfo) then   begin //Command Executed     //为进程建立可查询的属性。     FAppHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, FProcessInfo.dwProcessId);     //建立可查询的属性后可用于GetExitCodeProcess,在Delphi中查询外部程序是     //否还在运行,这个函数在W95,W98,NT40下均可用.     //注意:FAppHandle要改成Form的变量,以便其它函数可以使用.    //  GetExitCodeProcess(FAppHandle,FAppState);    //  if FAppState<>STILL_ACTIVE then      //    外部程序已结束      //  else       //  外部程序还在运行   end   else //false Create Process;   begin    // SetError(-2, 'Can not create process!');     Result := false;   end;   FreeMem(lpAppName);   FreeMem(lpTitle); end; procedure TfrmMain.Button3Click(Sender: TObject); var   FAppState: DWORD; begin   GetExitCodeProcess(FAppHandle, FAppState);   if FAppState <> STILL_ACTIVE then     caption := ' 外部程序已结束'   else     caption := '  外部程序还在运行';   showmessage(inttostr(FAppHandle)); end;

pandaxj · 2001-11-08

多人接受答案了。

怎样得知一个应用程序已经关闭?(50分)

pandaxj

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

liuyuch2000

Unregistered / Unconfirmed

pingbaoshi

Unregistered / Unconfirmed

cheka

Unregistered / Unconfirmed

microyzy

Unregistered / Unconfirmed

nsj

Unregistered / Unconfirmed

ecfan1

Unregistered / Unconfirmed

pandaxj

Unregistered / Unconfirmed

Similar threads