Procedure GetProcessId_(hProcess) ; for windows < Vista or Windows XP SP1 
  Protected hThread 
  Protected Pid 
  Protected GCPI 
  
  GCPI    = GetProcAddress_(GetModuleHandle_("Kernel32"),"GetCurrentProcessId");    
  hThread = CreateRemoteThread_(hProcess,0,0,GCPI,0,0,0) 
  
  If Not hThread 
    ProcedureReturn 0 
  EndIf 
  
  WaitForSingleObject_(hThread,#INFINITE)  
  GetExitCodeThread_(hThread,@Pid) 
  CloseHandle_(hThread) 
  
  ProcedureReturn Pid  
EndProcedure