Wie findet man Fenster, deren Namen man nicht genau kennt?

[Codehunter]

Hallo!

Ich möchte ein Programm schreiben, das für das Update einer Anwendung zuständig ist. Das Update-Tool muss natürlich nachschauen, ob noch irgendwelche Instanzen der zu updatenden Anwendung laufen und eine Liste dieser Instanzen anzeigen. Eben so wie man das von Firefox-Installationen etc. kennt die beim Update warten bis das letzte Browserfenster geschlossen ist.

Das Problem dabei: FindWindow findet ja nur Fenster, wenn man den exakten Title-String angibt. Der ändert sich aber, je nach dem welche Datei in der Anwendung gerade geöffnet ist. Der Classname ist auch nicht eindeutig, der verändert sich da beim Anwendungsstart eine GUID als Classname gesetzt wird.

Wie kann man eine Anwendung noch ausfindig machen?

Grüße
Cody

[chaosben]

Ich würde über die Process-Liste und dann über den Pfad zur .exe gehen. Letzteren musst du ja sowieso kennen, um ein Update zu machen.

[DeddyH]

Könnte man nicht die Taskliste durchgehen (z.B. mit CreateToolhelp32Snapshot), nach dem entsprechenden Prozess suchen und bei Fund die ProcessID ermitteln? Anschließend dann mit EnumWindows alle Fenster durchlaufen und mit GetWindowThreadProcessID vergleichen. Allerdings bin ich mir gerade nicht sicher, ob die erforderlichen Angaben auch wirklich im TProcessEntry32-Record stehen, denke aber schon.

[Singlepin]

Meine Programme erstelle ich in der Regel so, daß sie nicht doppelt gestartet werden können.
Dazu erzeuge ich ein Memory-Mapped File in dem ich gleich noch das Handle der Application ablege.
Dein Setup-Programm braucht dann nur zu prüfen ob das Memory.Mapped File existiert
und könnte über das Handle die Anwendung z.b. automatisch schließen oder in den Fordergrund holen usw.

[Codehunter]

Danke Jungs, manchmal reicht einem ein Stichwort damit man weiterkommt :-) In dem Fall CreateToolhelp32Snapshot (übrigens wirklich kein treffender Name für diese Routine). Hier eine Delphi-Übersetzung des Sample-Codes der im PSDK hinterlegt ist:

Delphi-Quellcode:

uses
  tlhelp32;

procedure TForm1.Button1Click(Sender: TObject);
var
  hProcessSnap: THandle;
  hProcess: THandle;
  pe32: PROCESSENTRY32;
  dwPriorityClass: DWord;
begin
  Memo1.Lines.BeginUpdate;
  try
    hProcessSnap:= CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
    if hProcessSnap = INVALID_HANDLE_VALUE then begin
      Memo1.Lines.Add(#13#10#13#10'CreateToolhelp32Snapshot (of processes)');
      Exit;
    end;
    pe32.dwSize:= SizeOf(PROCESSENTRY32);

    if not Process32First(hProcessSnap, pe32) then begin
      Memo1.Lines.Add(#13#10#13#10'Error: Process32First');
      CloseHandle(hProcessSnap);
      Exit;
    end;

    repeat
      Memo1.Lines.Add(#13#10'=====================================================');
      Memo1.Lines.Add(Format('PROCESS NAME:  %s', [pe32.szExeFile]));
      Memo1.Lines.Add('-----------------------------------------------------');

      dwPriorityClass:= 0;
      hProcess:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, pe32.th32ProcessID);
      if hProcess = NULL then begin
        Memo1.Lines.Add(#13#10'Error: OpenProcess');
      end else begin
        dwPriorityClass:= GetPriorityClass(hProcess);
        if dwPriorityClass = 0 then begin
          Memo1.Lines.Add(#13#10'Error: GetPriorityClass');
          CloseHandle(hProcess);
        end;
      end;

      Memo1.Lines.Add(Format('  Process ID        = 0x%08X', [pe32.th32ProcessID]));
      Memo1.Lines.Add(Format('  Thread count      = %d',   [pe32.cntThreads]));
      Memo1.Lines.Add(Format('  Parent process ID = 0x%08X', [pe32.th32ParentProcessID]));
      Memo1.Lines.Add(Format('  Priority base     = %d', [pe32.pcPriClassBase]));
      Memo1.Lines.Add(Format('  Priority base     = %d', [pe32.pcPriClassBase]));
      Memo1.Lines.Add(Format('  Executable        = %s', [pe32.szExeFile]));

      if dwPriorityClass > 0 then begin
        Memo1.Lines.Add(Format('  Priority class    = %d', [dwPriorityClass]));
      end;

    until not Process32Next(hProcessSnap, pe32);

    CloseHandle(hProcessSnap);
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

Ist erstmal nur eine Dummy-Routine mit Ausgabe in ein Memo. Ich werde mir das jetzt so adaptieren dass ich über den Exe-Namen gehe, an die Process-ID eine Message schicke und mir von dort mit einer Message antworten lasse. So finde ich meine ganzen Ziel-Prozesse.

[ASM]

Es geht auch so:

Code:

function FindWindowEx(partialTitle: string): HWND;
var
  hWndTemp: hWnd;
  iLenText: Integer;
  cTitletemp: array [0..254] of Char;
  sTitleTemp: string;
begin
  hWndTemp := FindWindow(nil, nil);
  while hWndTemp <> 0 do begin
    iLenText := GetWindowText(hWndTemp, cTitletemp, 255);
    sTitleTemp := cTitletemp;
    sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText));
    partialTitle := UpperCase(partialTitle);
    if pos( partialTitle, sTitleTemp ) <> 0 then Break;
    hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
  end;
  result := hWndTemp;
end;

Beispiel:
Winword ist geöffnet mit irgendeinem Dokument. Das Fenster hat z.B. gerade den Titel "Dokument3 - Microsoft Word".
Das Word-Fenster trägt neben dem Titel des gerade geöffneten Dokuments immer auch den Textzusatz "Microsoft Word".

Du kannst also einfach mit

Code:

if FindWindowEx('Microsoft Word')<>0 then showmessage('Hi, Winword. Nice to meet you.')
else Showmessage('nix los hier');

feststellen, ob gerade irgendeine Instanz von Winword aktiv ist.

Entsprechend funktioniert das auch mit dem Adobe Reader, Mozilla Firefox, usw.

[SirThornberry]

Dann doch lieber nach dem Dateinamen suchen. Ansonsten schließt man im schlimmsten Fall ein Fenster das einen ähnlichen Title hat.

[ASM]

Zitat:

Zitat von SirThornberry (Beitrag 1124275)

Dann doch lieber nach dem Dateinamen suchen. Ansonsten schließt man im schlimmsten Fall ein Fenster das einen ähnlichen Title hat.

Die konkrete Frage war aber nun vielmehr folgende:

Zitat:

Das Update-Tool muss natürlich nachschauen, ob noch irgendwelche Instanzen der zu updatenden Anwendung laufen und eine Liste dieser Instanzen anzeigen.

Ich kann in dieser Frage von Codehunter keine Absicht erkennen, das Fenster per brute-force von außerhalb schließen zu wollen.

[Delphi-Laie]

Zitat:

Zitat von DeddyH (Beitrag 1124239)

Könnte man nicht die Taskliste durchgehen (z.B. mit CreateToolhelp32Snapshot), nach dem entsprechenden Prozess suchen und bei Fund die ProcessID ermitteln? Anschließend dann mit EnumWindows alle Fenster durchlaufen und mit GetWindowThreadProcessID vergleichen. Allerdings bin ich mir gerade nicht sicher, ob die erforderlichen Angaben auch wirklich im TProcessEntry32-Record stehen, denke aber schon.

Ja, stehen sie (sofern ich Dich recht verstand), wobei man GetWindowThreadProcessID nach meiner Erinnerung allerdings extra aufrufen muß. In meinem Programm mit dem einfallslosen Namen "Prozesse" (auch hier im Forum zu finden) wird auch demonstriert, wie man die Fenster selektiv eines Prozesses finden bzw. sich auflisten lassen kann (ein einfacher Filter tut es, alternativ könnte man mit Enmthreadwindows alle Fenster aller Threads eines Prozesses erhalten). Ansonsten empfehle ich Luckies Programm "WinInfo", von dem ich einige Anregungen übernahm.

[himitsu]

Wobei es auch sein kann, daß es andere Programme mit dem selben Fensternamen gibt,
oder das gefundene Fenster gehört zur gleichen EXE, aber in einem anderen Verzeichns.

Der einzige Weg, um ein bestimmtes Programm zu finden, geht also nur über den EXE Namen, inkl. Pfad.



Wenn man, bzw. das Setup, auf etwas zugreifen muß, welches gemeinsam genutzt wird (z.B. eine Datenbank),
dann muß man alle Instanzen finden, welche irgendwo laufen (unabhängig vom Pfad).

Für Letzteres könnte man bestimmt mit 'nem Mutex, oder mit anderen globalen möglichst eindeutigen Markern arbeiten.