Source position: process.pp line 93
type TAfterAllocateHandleEvent = procedure(
Sender: TObject;
aHandle: THandle;
var CloseOnExecute: Boolean
) of object;