1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

function GetProcessModule(dwPID, dwModuleID: Cardinal; LPMODULEENTRY32: Pointer; cbMe32: Cardinal): boolean; 
Var 
  hModuleSnap: Cardinal; 
  ModuleEntry: TModuleEntry32; 
  bFound: Boolean; 
begin 
  hModuleSnap := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwPID); 
  bFound := false; 

  if (hModuleSnap <> INVALID_HANDLE_VALUE) then 
    begin 
      ModuleEntry.dwSize := sizeof(TModuleEntry32); 

      if (Module32First(hModuleSnap, ModuleEntry)) then 
        repeat 
          if (ModuleEntry.th32ModuleID = dwModuleID) then 
            begin 
              CopyMemory (LPMODULEENTRY32, @ModuleEntry, cbMe32); 
              bFound := true; 
              break; 
            end; 

        until not Module32Next(hModuleSnap, ModuleEntry); 

        Result := bFound; 
    end 
  else 
    Result := false; 

  CloseHandle (hModuleSnap); 

end; 


procedure tform1.Button1Click(Sender: TObject); 
Var 
  hSnapShot: Cardinal; 
  ProcessEntry: TProcessEntry32; 
  ModuleEntry: TModuleEntry32; 
  hProcess: Cardinal; 
begin 
   hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 

   if (hSnapShot <> INVALID_HANDLE_VALUE) then 
     begin 
       ProcessEntry.dwSize := sizeof(TProcessEntry32); 

       if (Process32First(hSnapShot, ProcessEntry)) then 
         repeat 
           if GetProcessModule (ProcessEntry.th32ProcessID, ProcessEntry.th32ModuleID, 
              @ModuleEntry, sizeof(TModuleEntry32)) then 
             begin 
               with lstProcesses.Items.Add do begin 
                 Caption := ModuleEntry.szExePath; 
               end; 
             end; 
         until not Process32Next(hSnapShot, ProcessEntry); 
       CloseHandle (hSnapShot); 
     end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

var
  hProcessSnap,
  hProcess        : THandle;
  pe32            : TProcessEntry32;
  buf             : array[0..MAX_PATH]of char;
begin
  // TListview leeren
  lstprocesses.Items.Clear;
  lstprocesses.Items.BeginUpdate;


  hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  if(hProcessSnap = INVALID_HANDLE_VALUE) then exit;

  ZeroMemory(@pe32,sizeof(pe32));
  pe32.dwSize  := sizeof(TProcessEntry32);

  if(Process32First(hProcessSnap,pe32)) then begin
    repeat
      ZeroMemory(@buf,sizeof(buf));

      // Pfad unter NT herausfinden
      if(Win32Platform = VER_PLATFORM_WIN32_NT) then begin
        hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
          false,pe32.th32ProcessID);
        if(hProcess <> INVALID_HANDLE_VALUE) then
          try
            if(GetModuleFileNameEx(hProcess,0,buf,MAX_PATH) = 0) then
              lstrcpy(buf,pe32.szExeFile);
          finally
            CloseHandle(hProcess);
          end;
      // unter 9x ist der Pfad schon drin
      end else
        lstrcpy(buf,pe32.szExeFile);

      // Item in die TListView
      with lstProcesses.Items.Add do
        Caption := string(buf);
    until not(Process32Next(hProcessSnap,pe32));

    CloseHandle (hProcessSnap);
  end;

  lstprocesses.Items.EndUpdate;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

uses
  Windows, tlhelp32, psapi;

// find .EXE path via Handle
function GetEXEFromHandle(wnd: HWND) : string;
var
  pid             : dword;
  wv              : TOSVersionInfo;
  hProcess        : THandle;
  ContinueLoop    : boolean;
  aProcessEntry32 : TProcessEntry32;
  buf             : array[0..MAX_PATH]of char;
begin
  // re-set
  Result := '';

  // nothing, exit
  if(wnd = 0) then exit;

  // get running OS
  ZeroMemory(@wv,sizeof(TOSVersionInfo));
  wv.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
  GetVersionEx(wv);

  // get process ID
  GetWindowThreadProcessID(wnd,@pid);

  // get filename
  case wv.dwPlatformId of
    VER_PLATFORM_WIN32_NT:
      begin
        hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
          false,pid);
        if(hProcess <> INVALID_HANDLE_VALUE) then
          try
            if(GetModuleFileNameEx(hProcess,0,buf,MAX_PATH) > 0) then
              Result := string(buf);
          finally
            CloseHandle(hProcess);
          end;
      end;
    VER_PLATFORM_WIN32_WINDOWS:
      begin
        hProcess := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
        if(hProcess <> INVALID_HANDLE_VALUE) then
          try
            aProcessEntry32.dwSize := sizeof(aProcessEntry32);
            ContinueLoop := Process32First(hProcess,aProcessEntry32);

            while(ContinueLoop) do
              begin
                if(aProcessEntry32.th32ProcessID = pid) then
                  Result     := aProcessEntry32.szExeFile;
                ContinueLoop := Process32Next(hProcess,aProcessEntry32);
              end;
          finally
            CloseHandle(hProcess);
          end;
      end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button2Click(Sender: TObject);
var
  notepad : HWND;
begin
  notepad := findwindow('notepad',nil);
  if(notepad <> 0) then
    ShowMessage(GetEXEFromHandle(notepad));
end;                    

1:

while(IntToStr(integer(ContinueLoop)) <> '0') do