Dynamisches FindWindow(ex)

[Frankfurtoder]

Hallo
Ich hab folgendes Problem. Ich habe eine Hauptanwendung aus der weiter Anwendungen geöffnet werden können. Nun nutze ich in mehreren Anwendungen eine Form die optional aufgerufen werden kann. Ich möchte nun aber, das Systemweit diese optionale Form nur einmal aufgerufen werden kann.

Da sich das alles verwirrend anhört, nochmal "Bildlich"

Code:

Hauptanwendung ----> Anwendung1 -> FormX
               ----> Anwendung2 -> FormX
               ----> Anwendung3 -> FormX
               ----> FormX

Es ist also möglich die optionale Form (FormX) mehrfach zur gleichen Zeit aufzurufen, da man auch die Anwendungen 1-3 gleichzeitig neben der Hauptanwendung starten kann. FormX soll allerdings nur einmal aufgerufen werden können.

Bisher versuche ich das so:

Delphi-Quellcode:

procedure Hauptanwendung.ButtonFormxClick(Sender: TObject);
var Handle:HWND;
begin
  Handle:=FindWindow(pchar('TApplication'),nil); // hier müsste das Parentfenster dynamisch gesucht werden
  Handle:=FindWindowEx(Handle,0,pchar('TWFormx'),pchar('Formx'));
  if (Handle=0) then
  begin
    FormX.show;
  end
  else
    showmessage('FormX ist bereits in einem anderen Programmteil geöffnet.');
end;

Wie kann ich nun prüfen ob FormX offen ist, egal aus welcher Anwedung heraus?

Es ist immerhin ein ChildWindow. Nun könnte ich konstant auf die Parentwindows mittels Klasse und Caption prüfen, aber das wäre nicht schön und es handelt sich um mehr Anwendungen als in meinem Beispiel.

Danke.

[uoeb7gp]

Hallo, um Systemweit ein Flag zu setzen kann man Semaphoren, Mutexe, Atoms usw. verwenden.

Delphi-Quellcode:

var
  hTargetSem : THandle;
begin
  try
    hTargetSem := CreateSemaphore(NIL, 0, 1, PChar('[{15259A27-97B5-49D6-A70A-E9281C045775}]'));
    if(GetLastError = ERROR_ALREADY_EXISTS) or (hTargetSem = 0) then begin
       if hTargetSem > 0 then CloseHandle(hTargetSem);
       EXIT;
    end;
end;

lg.