THPROCESS.PROCESSFIRST (& PE);

CToolHelp Thprocesses (TH32CS_SNAPPROCESS);

PROCESSENTRY32 PE = {SIZEOF (PE)};

Bool fok = thprocesses.ProcessFirst (& PE);

PCTSTR PSZEXEFILE = _TCSRCHR (pe.szeefile, text ('//'));

IF (pszexefile == null) pszexefile = pe.szexefile;