Ist ein bestimmtes Fenster geöffnet?

[The-X]

Delphi-Quellcode:

function TFrmMain.FBissFehlermeldung: Boolean;
Var R:Boolean; // Variable für Rückgabe
    hWindow: HWND;
  function FEnumChilds(hchild: HWND; lParameter: lparam): boolean; stdcall;
  var StrTitelleiste: String;
      pText: pChar;
      IntTextLaenge: Integer;
  begin
    Result := true;
    IntTextLaenge := SendMessage(hCHild, WM_GETTEXTLENGTH, 0,0 );
    GetMem(pText, IntTextLaenge + 1);
    SendMessage(hChild, WM_GETTEXT, IntTextLaenge + 1, Integer(pText));
    if pos('BISS+: Fehlermeldung', pText) <> 0 then
    begin
      R:=true; //fenster gefunden
    end;
    FreeMem(pText);
  end;

begin
  hWindow := Application.Handle;
  R:=False; // initialisierung
  while hWindow <> 0 do
  begin
    hWindow := GetNextWindow(hWindow, GW_HWNDNEXT);
    EnumChildWindows(hWindow, @FEnumChilds, integer(self));
  end;
  result:=R; // rückgabe
end;

siehe // ....

aber wenn der Fenster-Titel nur 'BISS+: Fehlermeldung' ist kannst du das auch mit

if FindWindow(nil,'BISS+: Fehlermeldung')<>0 Then // ... Fenster gefunden statt der riesen Function bewerkstelligen