/*****************************************************************************
         AUTHOR: Dan Steggerda
*****************************************************************************/

DEF OUTPUT PARAM piProcessID AS INT NO-UNDO.

RUN GetCurrentProcessID (OUTPUT piProcessID).

PROCEDURE GetCurrentProcessId EXTERNAL "KERNEL32.DLL":
   DEF RETURN PARAM piProcessID AS LONG.
END PROCEDURE.