OpenProcess问题？

Question

Function TForm1.StillRun(ProgramID:THandle):Boolean;
var
 HProgram:THandle;
begin
 HProgram:=OpenProcess(0,false,ProgramID);
 If HProgram<>NULL Then StillRun:=True Else StillRun:=False;
 CloseHandle(hProgram);
end;
编写的这个函数始终得到的结果是FALSE。后用VB编写，执行后结果非常正确。请问这是怎么回事？主要是如何解决这个问题。

Answer 1

If HProgram<>NULL Then StillRun:=True Else StillRun:=False;
修改為
If HProgram<>0 Then StillRun:=True Else StillRun:=False;