Delphi-Quellcode:
modh := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessE.ProcessID);
if (modh <> 0) then
begin
if Modul32First(modh, ModuleE) then
//ModuleE.szExeName ist die Exe mit Pfad)
CloseHandle(modh);
end;
wobei modh ein THandle ist und ModuleE en TModuleEntry32
die funktion einfach nach an den beginn der repeat schleife packen (hoffe da ist kein fehler drin, habs ausm kopf geschrieben)