Very rough code, but maybe helps (delphi) //function EnumWindowsFunc (Handle: THandle; List: TStringList): boolean ; stdcall; function EnumProcess(Handle: HWND; lParam : integer): boolean; stdcall; var Caption: array[0..256] of Char; pPid : DWORD; title, ClassName : string; begin if (Handle=NULL) th...