请问如何控制在程序中调用的外部进程?(50分)

番番 · 2001-11-29

我在程序一开始就调用一个外部程序,想要该程序执行完毕后再回到当前程序中来. 请教如何知道调用的外部程序已经执行完毕.我用ENUMWINDOWS,可是编译提示需要 参数,可我已经给参数了.HELP ME!

LIUniverse · 2001-11-29

用WaitForSingleObject(...) 把你建的外部程序的handle作为参数，在你的程序中用WaitForSingleObject(...)等待INFINITE， 直到等待的外部程序完成。 WaitForSingleObject的用法非常简单，help文件里有详细的说明

cnaoszh · 2001-11-29

以前有人回答过：copy to you 前几天看uddf的时候,发现了如下的源程序: From: Noel Rice A: Here is the 16 bit version: -------------------------------------------------------------------------------- uses Wintypes,WinProcs,Toolhelp,Classes,Forms; Function WinExecAndWait(Path : string; Visibility : word) : word; var   InstanceID : THandle;   PathLen : integer; begin   { inplace conversion of a String to a PChar }   PathLen := Length(Path);   Move(Path[1],Path[0],PathLen);   Path[PathLen] := #00;   { Try to run the application }   InstanceID := WinExec(@Path,Visibility);   if InstanceID < 32 then { a value less than 32 indicates an Exec error }      WinExecAndWait := InstanceID   else begin     Repeat       Application.ProcessMessages;     until Application.Terminated or (GetModuleUsage(InstanceID) = 0);     WinExecAndWait := 32;   end; end; -------------------------------------------------------------------------------- Here is the 32 bit version: -------------------------------------------------------------------------------- function WinExecAndWait32(FileName:String; Visibility : integer):integer; var   zAppName:array[0..512] of char;   zCurDir:array[0..255] of char;   WorkDir:String;   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation; 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,Result);   end; end;

番番 · 2001-11-29

谢谢你,可我怎样才能取得外部程序的handle呢?

番番 · 2001-11-29

ok,thanks,我试一下,成功立马给分.

番番 · 2001-11-29

to：cnaoszh GetExitCodeProcess(ProcessInfo.hProcess,Result); 在编译时出错. [Error] Main.pas(392): Types of actual and formal var parameters must be identical 这怎么办啊?

cnaoszh · 2001-11-29

var ExitCode

WORD; begin ..... GetExitCodeProcess(ProcessInfo.hProcess,ExitCode); end;

番番 · 2001-11-29

给分了!

番番 · 2001-11-29

多人接受答案了。

番番 · 2001-11-29

可是该函数运行后就不执行下面的程序了.

cnaoszh · 2001-11-29

执行，这是因为你的应用程序没有结束，用个可见的程序测试例如word退出后，程序继续执行

番番 · 2001-11-29

WinExecAndWait32(FileName:String; Visibility : integer) Visibility 值为多少? 我调用的的程序要带参数运行.用SHELLEXECUTE可以吗?

cnaoszh · 2001-11-29

Visibility应该是： Value Meaning SW_HIDE Hides the window and activates another window. SW_MAXIMIZE Maximizes the specified window. SW_MINIMIZE Minimizes the specified window and activates the next top-level window in the Z order. SW_RESTORE Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window. SW_SHOW Activates the window and displays it in its current size and position. SW_SHOWDEFAULT Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. SW_SHOWMAXIMIZED Activates the window and displays it as a maximized window. SW_SHOWMINIMIZED Activates the window and displays it as a minimized window. SW_SHOWMINNOACTIVE Displays the window as a minimized window. The active window remains active. SW_SHOWNA Displays the window in its current state. The active window remains active. SW_SHOWNOACTIVATE Displays a window in its most recent size and position. The active window remains active. SW_SHOWNORMAL Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.

番番 · 2001-11-29

不带参数可以运行,可是带参数怎么办,该函数好像没有执行文件的参数设置.

no1 · 2002-04-10

应该是这样的 function WinExecAndWait32(FileName:String; Visibility : integer):dword; {返回值是dword型} var   zAppName:array[0..512] of char;   zCurDir:array[0..255] of char;   WorkDir:String;   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation; 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 := 0 { pointer to PROCESS_INF }   else begin     WaitforSingleObject(ProcessInfo.hProcess,INFINITE);     GetExitCodeProcess(ProcessInfo.hProcess,Result);   end; end;

请问如何控制在程序中调用的外部进程?(50分)

番番

Unregistered / Unconfirmed

LIUniverse

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

番番

Unregistered / Unconfirmed

no1

Unregistered / Unconfirmed

Similar threads