function GetFirstModuleName(processid: dword): string; var SNAPHandle: THandle; ModuleEntry: MODULEENTRY32; begin SNAPHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,processid); if SNAPHandle0 then begin ModuleEntry.dwSize:=sizeof(moduleentry); if Module32First(snaphandle,Modu