// Declaration: getwindowthreadprocessid (hwnd: hwnd; {specify the window handle} lpdwprocessid: pointer = nil {pointer to the returned process ID}): DWORD; {return thread ID}
// Example: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, grids; Type tform1 = Class (tform) procedure formcreate (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} procedure tform1.formcreate (Sender: tobject); var C: Cardinal; begin getwindowthreadprocessid (handle, @ C); showmessage (inttostr (c); {2792; random} {result equivalent to getcurrentprocessid in this example} C: = getcurrentprocessid; showmessage (inttostr (c); {2792} C: = getwindowthreadprocessid (handle, nil ); showmessage (inttostr (c); {2748} {result equivalent to getcurrentthreadid in this example} C: = getcurrentthreadid; showmessage (inttostr (c); {2748} end; end.