1:
2:

var pfad: String;
pfad := ExtractFileDir(ParamStr(0));					

1:
2:

var pfad: String;
pfad := ExtractFileDir(ParamStr(0))+'\';					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractFileDir(FileSearch('cmd.exe', 'C:\WINXP\system32')));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);

var
  buffer: array [0..255] of char;
  FileToFind: string;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);
  if FileToFind = '' then
    ShowMessage('Couldn''t find ' + Edit1.Text + '.')
  else
    ShowMessage('Found ' + FileToFind + '.');

end;					

1:

uses PSAPI;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  ProcessHandle: THandle;
  S: String;
begin

  ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessId);
  if ProcessHandle <> 0 then
  begin
    SetLength(S, MAX_PATH);
    SetLength(S, GetModuleFileNameEx(ProcessHandle, 0, PChar(S), Length(S)));
    ShowMessage(ExtractFilePath(S));
    CloseHandle(ProcessHandle);
  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:

function GetProcessID(sProcName: String): Integer; 
var 
  hProcSnap: THandle; 
  pe32: TProcessEntry32; 
begin 
  result := -1; 
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  if hProcSnap = INVALID_HANDLE_VALUE then exit; 

  pe32.dwSize := SizeOf(ProcessEntry32); 

  { wenn es geklappt hat } 
  if Process32First(hProcSnap, pe32) = true then 
    { und los geht's: Prozess suchen} 
    while Process32Next(hProcSnap, pe32) = true do 
    begin 
      if pos(sProcName, pe32.szExeFile) <> 0then 
        result := pe32.th32ProcessID; 
    end; 
  CloseHandle(hProcSnap); 
end; 

procedure TMain1.Timer1Timer(Sender: TObject);
begin
  Listbox1.Clear;
  GetProcessList(Listbox1.Items);
  // weitere anweisungen die zwische zulässigen und unzulässigen filtern (wurde voher konfiguriet)
end;