如何知道一个用CreateProcess的进程是否运行完毕(100分)

ioi2000 · 2002-11-24

如何知道一个用CreateProcess的进程是否运行完毕。 我是要知道他是否结束的状态

zw84611 · 2002-11-24

用WaitforSingleObject(ProcessInfo.hProcess,INFINITE); //------------------------------------------------------------- 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;   //MyResult

WORD;   hStdIn:THandle; // standard input handle   //inputBuffer:INPUT_RECORD;  //buffer to hold a single console input record   irMacroBuf:INPUT_RECORD; // array of input events   dwBytesWritten : DWORD; begin   SetConsoleTitle('s');   StrPCopy(zAppName,FileName);   //MainForm.Caption := zappname;   GetDir(0,WorkDir);   StrPCopy(zCurDir,WorkDir);   FillChar(StartupInfo,Sizeof(StartupInfo),#0);   StartupInfo.cb := Sizeof(StartupInfo);   hStdIn:= StartupInfo.hStdInput;   StartupInfo.hStdInput:= hStdIn;   StartupInfo.lpTitle:=@zAppName;   StartupInfo.dwFlags := StartupInfo.dwFlags or STARTF_USESTDHANDLES;   WriteConsoleInput(hStdIn,irMacroBuf,1,dwBytesWritten);   StartupInfo.dwFlags := StartupInfo.dwFlags or 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);     Result:=1;   end; end;

ioi2000 · 2002-11-24

这个我知道 我想知道有没有什么api可以知道这个进程是正在运行，还是已经结束。

zw84611 · 2002-11-24

你运行上面的过程，在这个过程结束前，该进程都在运行。

ioi2000 · 2002-11-24

我是要一个检测函数，运行一次就判断一次这个进程是正在运行，还是已经结束。

zw84611 · 2002-11-24

你加一个全局bool变量finished，在这个过程前赋值为false，过程后赋值为true，判断 finished的值就可以了。当然要把上面的过程放在一个单独的线程里。

ypy · 2002-11-24

扫描一下这个进程是否存在不就知道了？

ioi2000 · 2002-11-24

如何“扫描一下这个进程是否存在不就知道了”

zw84611 · 2002-11-24

一个笨办法是枚举所有进程： procedure TForm1.Button2Click(Sender: TObject); type integer = DWORD; // different versions of psapi.pas floating around var   i,j,pidNeeded,modNeeded : Integer;   PIDList : array[0..1000] of Integer; // 1000 should be enough   MODList : array[0..1000] of HInst;   PIDName : array [0..MAX_PATH - 1] of char;   MODName : array [0..MAX_PATH - 1] of char;   PH : THandle; begin   // fill an array with process ids   if not enumprocesses (@PIDList, 1000, pidNeeded) then   begin     ListBox1.Items.Add('Need psapi.dll');     exit;   end;   // now open each process and its modules   for i := 0 to (pidNeeded div sizeof (Integer)- 1) do   begin     // get a handle to the process     PH := OpenProcess (PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False,     PIDList);     if PH <> 0 then     begin       // print the process name       if GetModuleBaseName (PH, 0, PIDName, sizeof (PIDName)) > 0 then       begin         ListBox1.Items.Add('process : ' + PIDName);         // fill an array of modules associated with this process         if not EnumProcessModules (PH,@MODList,1000, modNeeded) then modNeeded:= 0;         // print the modules in the list         for j := 0 to (modNeeded div sizeof (hInst) - 1) do         if GetModuleFileNameEx (PH, MODList[j], MODName,sizeof(MODName)) > 0 then         begin          ListBox1.Items.Add(' module: ' + MODName);          if LowerCase(trim(ExtractFileName(ModName))) = LowerCase('MHK.dll') then Caption := ('Keyboard hook already running');         end;         if PH > 0 then CloseHandle(PH);       end;     end;   end;   end; 但其实用我上面说的方法就可以了，没必要搞这么复杂。

ioi2000 · 2002-11-24

还是不明白你的意思 我只想知道我自己创建的进程在某时刻是在运行，还是已经结束

jsxjd · 2002-11-24

以下可以获得进程执行文件名： 85. 获得进程列表，并终止 Excel 进程 procedure TForm1.Button1Click(Sender: TObject); var   FSnapshotHandle:THandle;   FProcessEntry32:TProcessEntry32;   Ret : BOOL;   ProcessID : integer;   s:string; begin   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   Ret:=Process32First(FSnapshotHandle,FProcessEntry32);   Memo1.clear;   while Ret do   begin     Memo1.lines.add(FProcessEntry32.szExeFile);     s:=ExtractFileName(FProcessEntry32.szExeFile);     if s='EXCEL.EXE' then     begin       ProcessID:=FProcessEntry32.th32ProcessID;       TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,ProcessID),1);       s:='';     end;     Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);   end; end;

zw84611 · 2002-11-24

>>我只想知道我自己创建的进程在某时刻是在运行，还是已经结束 那用我前面说的方法就可以了。

如何知道一个用CreateProcess的进程是否运行完毕(100分)

ioi2000

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ioi2000

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ioi2000

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ypy

Unregistered / Unconfirmed

ioi2000

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ioi2000

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

Similar threads