//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetCurrentProcessId.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetCurrentProcessId.
//
// Author:
//      Ulbe Stellema, Vincent Oorsprong
//
// Date:
//      2002, June, 29th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_VO_GetCurrentProcessId

External_Function WinAPI_GetCurrentProcessId "GetCurrentProcessId" Kernel32.Dll Returns Integer

Function VO_GetCurrentProcessId Returns DWord
    DWord dwProcessId
    Integer iVoid

    Move (WinAPI_GetCurrentProcessId ()) to dwProcessId
    If (dwProcessId = 0) Begin
        Get ShowLastError to iVoid
    End

    Function_Return dwProcessId
End_Function // VO_GetCurrentProcessId
#ENDIF