VB与delphi翻译问题

Question

VB的两行：
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ALIVE = &H103
翻译成Delphi怎么写？

Answer 1

Const 
  PROCESS_QUERY_INFORMATION = $400;
  STILL_ALIVE = $103;

Answer 2

谢谢~接着问
VB
Call CloseHandle(hProcess)
关闭进程hProcess
翻译成Delphi怎么写？

Answer 3

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 的定义我会了~其他的呢？

Answer 4

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

Answer 5

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