1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

uses
  tlhelp32;

procedure FillAppList(Applist: Tstrings);
Var
  Snap:THandle;
  ProcessE:TProcessEntry32;
begin
  Applist.Clear;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessE.dwSize := SizeOf(ProcessE);

  if Process32First(Snap,ProcessE) then
    begin
      Applist.Add(string(ProcessE.szExeFile));
      while Process32Next(Snap,ProcessE) do
        Applist.Add(string(ProcessE.szExeFile));
    end
  else
    ShowMessage('Fehler!');

  CloseHandle(Snap);
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:

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:

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

1:

hModuleSnap := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwPID);