FindWindow von Pfad

[DeddyH]

Dafür gibt es die Forensuche (EnumWindows, GetWindowThreadProcessID, CreateToolHelp32Snapshot). Wenn Du Dir eine Aufgabe suchst, die (momentan) einige Nummern zu hoch für Dich ist, so kann es nicht die Lösung sein, Dir diese komplett auf dem Silbertablett zu servieren, dabei lernst Du ja nichts.

[edit] Wenn Du es selbst versuchst und dabei steckenbleibst, helfen wir natürlich gerne weiter, nicht, dass wir uns da missverstehen. [/edit]

[DeddyH]

Ich habe soeben feststellen müssen, dass das Ganze wohl wirklich nicht so ganz ohne ist. Daher habe ich 2 Hilfsfunktionen geschrieben, ich hoffe, das hilft zunächst weiter, Fehler sind natürlich vorbehalten.

Delphi-Quellcode:

uses TLHelp32, PsAPI;

function ExeNameFromProcessID(ID: Cardinal): string;
var
  ProcessHandle: THandle;
begin
  Result := '';
  ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
    false, ID);
  if ProcessHandle <> 0 then
    try
      SetLength(Result, MAX_PATH);
      if GetModuleFileNameEx(ProcessHandle, 0, PChar(Result), Length(Result)) <> 0 then
        SetLength(Result, StrLen(PChar(Result)));
    finally
      CloseHandle(ProcessHandle);
    end;
end;

procedure ListExeNamesAndIDs(const ResultList: TStrings);
var
  PE: TProcessEntry32;
  Snap: THandle;
  ExeName: string;
begin
  Assert(Assigned(ResultList));
  ResultList.BeginUpdate;
  try
    ResultList.Clear;
    Snap := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    PE.dwSize := SizeOf(PE);
    if Snap <> 0 then
      try
        if Process32First(Snap, PE) then
          repeat
            ExeName := ExeNameFromProcessID(PE.th32ProcessID);
            if ExeName <> '' then
              ResultList.AddObject(ExeName, TObject(PE.th32ProcessID));
          until not Process32Next(Snap, PE);
      finally
        CloseHandle(Snap);
      end;
  finally
    ResultList.EndUpdate;
  end;
end;

Für Dich von Belang ist dabei ListExeNamesAndIDs. Der übergibst Du ein TStrings-Objekt (Stringliste, ListBox.Items, ComboBox.Items oder Ähnliches), und dieses sollte nach dem Aufruf die kompletten Pfade zu den laufenden Prozessen sowie deren ProcessID (im Object-Feld hinterlegt) enthalten. Diese Liste kannst Du nun nach dem gesuchten Pfad filtern, die ProcessID auslesen und zum Vergleich für EnumWindows und GetWindowThreadProcessID heranziehen. Wenn ich keinen Denkfehler mache/gemacht habe, sollte das eigentlich funktionieren.

[ASM]

Geht es nur darum, zu einem einzelnen, festgelegten Programm den aktuellen Fenstertitel zu ermitteln, insofern dieses Programm gestartet worden ist ? Dann geht das auch wesentlich direkter, also ohne aufwändiges Filtern diverser Listen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  PID: DWORD;
  ExePath: string;
  EnumInfo: TEnumInfo;
begin
  // vor dem ButtonClick ein Explorerfenster öffnen
  // oder hier ein anderes Programm eintragen und starten
  ExePath := 'C:\WINXP\Explorer.exe';
  PID := PathToPid(ExePath);
  if PID = 0 then
  begin
    ShowMessage(Exepath + #13#10'Process not found!');
    exit;
  end;
  EnumInfo := FindMainWindow(PID);
  with EnumInfo do
    ShowMessage(format('Exe: %s'#13#10 +
      'ProcessID: %d'#13#10 +
      'Window Handle: %d'#13#10 +
      'Window Class Name: %s'#13#10 +
      'Window Title: "%s"', [ExePath, ProcessID, WindowHandle, ClassName, WindowTitle]));
end;

Kompletter Code im Anhang.

Komplizierter wird es allerdings etwas, wenn gleichzeitig mehrere Instanzen desselben Programms geladen sein sollten, da diese dann natürlich alle unterschiedliche PIDs und unterschiedliche Fensterhandles haben, wobei jede Instanz auch ihren eigenen Titel im sichtbaren Fenster aufweist.

[Premaider]

Zitat von ASM:

Geht es nur darum, zu einem einzelnen, festgelegten Programm den aktuellen Fenstertitel zu ermitteln, insofern dieses Programm gestartet worden ist ? Dann geht das auch wesentlich direkter, also ohne aufwändiges Filtern diverser Listen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  PID: DWORD;
  ExePath: string;
  EnumInfo: TEnumInfo;
begin
  // vor dem ButtonClick ein Explorerfenster öffnen
  // oder hier ein anderes Programm eintragen und starten
  ExePath := 'C:\WINXP\Explorer.exe';
  PID := PathToPid(ExePath);
  if PID = 0 then
  begin
    ShowMessage(Exepath + #13#10'Process not found!');
    exit;
  end;
  EnumInfo := FindMainWindow(PID);
  with EnumInfo do
    ShowMessage(format('Exe: %s'#13#10 +
      'ProcessID: %d'#13#10 +
      'Window Handle: %d'#13#10 +
      'Window Class Name: %s'#13#10 +
      'Window Title: "%s"', [ExePath, ProcessID, WindowHandle, ClassName, WindowTitle]));
end;

Kompletter Code im Anhang.

Komplizierter wird es allerdings etwas, wenn gleichzeitig mehrere Instanzen desselben Programms geladen sein sollten, da diese dann natürlich alle unterschiedliche PIDs und unterschiedliche Fensterhandles haben, wobei jede Instanz auch ihren eigenen Titel im sichtbaren Fenster aufweist.

Sicher, das das mit Delphi7 funktioniert ?

Bei mir kommen dann diese Fehlermeldungen.

Delphi-Quellcode:

[Fehler] Unit1.pas(91): Undefinierter Bezeichner: 'TEnumInfo'
[Fehler] Unit1.pas(97): Undefinierter Bezeichner: 'PathToPid'
[Fehler] Unit1.pas(103): Undefinierter Bezeichner: 'FindMainWindow'
[Fehler] Unit1.pas(109): Undefinierter Bezeichner: 'ProcessID'
[Fehler] Unit1.pas(109): Undefinierter Bezeichner: 'WindowTitle'
[Fehler] Unit1.pas(112): '.' erwartet, aber ';' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[himitsu]

Ja, das wird bestimmt funktionieren,
nur wirst du dir erstmal die fehlenden Funktionen und Definitionen suchen müssen.

Angefangen mit FindMainWindow (wo sich auch TEnumInfo finden läßt).

Hatte auf die Schnelle ein FindMainWindow gefunden, welches zwar einen DWORD, anstatt TEnumInfo zurückgibt, aber wenn man genau hinguckt, wird intern nur ein Teil des TEnumInfo ans Result weitergegeben ... odrt kann man es so umbauen, daß das gesamte TEnumInfo ins Result wanders.