VBÓëdelphi·­ÒëÎÊÌâ

VBµÄÁ½ÐУº
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ALIVE = &H103
·­Òë³ÉDelphiÔõôд£¿

---

Const
PROCESS_QUERY_INFORMATION = $400;
STILL_ALIVE = $103;

---

лл~½Ó×ÅÎÊ
VB
Call CloseHandle(hProcess)
¹Ø±Õ½ø³ÌhProcess
·­Òë³ÉDelphiÔõôд£¿

---

VB´úÂ룺
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
Do
Call GetExitCodeProcess(hProcess, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(hProcess)
·­Òë³ÉDelphi ¸ÃÕâôд£¿
PROCESS_QUERY_INFORMATION ºÍ STILL_ALIVE µÄ¶¨ÒåÎÒ»áÁË~ÆäËûµÄÄØ£¿

---

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
repeate
GetExitCodeProcess(hProcess, ExitCode) ;
DOEvents;
until ExitCode = STILL_ALIVE
CloseHandle(hProcess) ;

---

Delphi(Pascal) code:

hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid);
repeat
GetExitCodeProcess(hProcess, ExitCode);
Application.ProcessMessages;
until ExitCode <> STILL_ALIVE;
CloseHandle(hProcess);