uses .., tlhelp32, .., ..;

procedure TProcessList.GetHandleInfo(WinHandle: HWND; var akttask: TTask);
var dwActiveProcessId,hModuleSnap:DWORD;snap:THandle;pe32,pe2:TPROCESSENTRY32;me32:TMODULEENTRY32;
Begin
 GetWindowThreadProcessId(WinHandle, @dwActiveProcessId);
 Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
 if Process32First(Snap, pe32) = true then
 begin
  if pe32.th32ProcessID = dwActiveProcessId then pe2 := pe32;
  while Process32Next(Snap, pe32) = true do if pe32.th32ProcessID = dwActiveProcessId then pe2 := pe32;
 end;
 akttask.ExeFile := pe2.szExeFile;
[...]