![]() |
Fenster Handle ermitteln ohne Application.Title
Moin Moin, ich bin grade dabei meiner Anwendung beizubringen nicht doppelt bzw. mehrfach zu starten.
Alles klein Problem "Mutex" erstellt und fertig, aber die Funktionalität das die 1. Instanz der Anwendung in den Vordergrund geholt wird klappt nicht so wirklich. Da ich probleme damit habe das Fenster zu finden ich verwende dazu FindWindowEx/FindWindow nur ist das Problem die meisten arbeiten mit Application.Title der ist aber zu der Zeit noch unbekannt bzw. wird später zur Laufzeit dynamisch gesetzt. Ich kann ein Fenster auch über die Klasse finden, nur heißen in einigen meiner Projekte die Hauptformulare 'frmMain' so das ich darüber nicht eindeutig ein Fenster finden kann. Gut wäre wenn ich noch weitere informationen abfragen könnte, z.B. den Tag eines Formulars. Dann könnte ich eine schleife durchlaufen lassen alle Fenster mit der Klasse 'TfrmMain' auflisten und dann weiter prüfen ob der Tag meiner gewünschten Anwendung entspricht, wenn ja wird diese Anwendung in den Vordergrund geholt und angezeigt. Hier meine Projekt (*.dpr) Datei:
Delphi-Quellcode:
program tab;
uses Forms, Windows, uMain in 'uMain.pas' {frmMain}, uGlobal in 'uGlobal.pas', ...; {$R *.res} {$R icons.RES} var dwMutex : DWORD; hWindow : THandle; begin //Mutex erzeugen dwmutex := CreateMutex(nil, True, '{Eindeutiger String z.b. GUID}'); try //prüfen ob die Anwendung bereits läuft... if GetLastError <> ERROR_ALREADY_EXISTS then begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.Title := ''; Application.CreateForm(TfrmMain, frmMain); Application.CreateForm(TfrmSplashScreen, frmSplashScreen); Application.Run; end else begin //Hauptfenster finden //hWindow := FindWindow('TfrmMain', nil); // Das Hauptfenster finden hWindow := FindWindowEx(0, hWindow, 'TApplication', Application.Title); //Fenster in den Vordergrund holen if hWindow <> 0 then begin ShowWindow(hWindow, SW_NORMAL); SetForegroundWindow(hWindow); end;{if} end;{else} finally //Mutex freigeben if dwMutex <> 0 then ReleaseMutex(dwMutex); end; end. |
Re: Fenster Handle ermitteln ohne Application.Title
Warum gibst du dem Fenster denn keinen eindeutigen Namen, damit du eine eindeutige Fensterklasse hast? Aber ohne den Titel zu kennen oder ohne eine eindeutige Klasse, wird es wohl so gut wie unmöglich. Du kannst dir zwar alle Fenster auflisten lassen, aber wie willst du sie unterscheiden? An die Objekteigenschaften der TForm Instanz wirstd u nicht drankommen, denke ich.
|
Re: Fenster Handle ermitteln ohne Application.Title
Wäre es nicht möglich den Klassennamen eindeutiger zu benennen, z.b. frmTabMain?
|
Re: Fenster Handle ermitteln ohne Application.Title
Naja ich hab mir das so angewöhnnt bei neuen Projekten das Hauptformular 'frmMain' zubennen.
Das Problem mit dem Titel ist halt, das ich zur Laufzeit prüfe in welchem Modus das Programm läuft, Sagen wir mal Client oder Server dann hole ich mir noch aus einer DLL, jenach, Sprache den entsprechenden Titel und zeige ihn an, und da ich an der Stelle noch nicht weiß in welchem Modus und welcher Sprache die Anwendung läuft kann ich den Title nicht ermitteln. Ein weiteres Problem wäre, wenn ich zum Beispiel möchte das die Anwendung nur im gleichen Modus nicht mehrfach aufgerufen werden kann. Also nur einmal "Client" und einmal "Server" aber beides "Client" u. "Server" sollte gehn, also müßte ich alle Nasenlang das MainForm umbennen und das macht für mich weniger Sinn, ich suche nach einer sagen wir dynamischeren Lösung. |
Re: Fenster Handle ermitteln ohne Application.Title
Eventuell hilft dir ja das weiter:
![]() Edit: Sorry, man sollte halt alles lesen :mrgreen: |
Re: Fenster Handle ermitteln ohne Application.Title
Zitat:
|
Re: Fenster Handle ermitteln ohne Application.Title
Zitat:
|
Re: Fenster Handle ermitteln ohne Application.Title
Zitat:
Modus laufen lasse, alternativ hatte ich mir als Lösung überlegt ich belasse den Namen so und Prüfe ob es ein Button oder Label, welches "unsichtbar" ist, auf dem Formular gibt welches mir die Anwendung im entsprechenden Modus identifiziert. In der Art frmMain.lbl_Modus_1 oder frmMain.lbl_Modus_2, jetzt müßte ich nur schauen ob und wie ich herrausfinde ob es eine solche Komponente in dem "gefundenen" Fenster gibt. |
Re: Fenster Handle ermitteln ohne Application.Title
Eine andere Möglichkeit: Kein Mutex verwenden, sondern mit RegisterWindowMessage eine eindeutige Nachricht registrieren, diese dann an HWND_BROADCAST schicken. Die beiden Parameter sollten dabei das eigene Fensterhandle und eine Nachrichtenkonstante sein. Wenn du die entsprechende Nachricht empfängst, schickst du direkt die angegebene Nachricht an das angegebene Fenster und gibst als Parameter das eigene Handle an. Das erste Fenster merkt damit, ob schon eine Instanz existiert, und erhält gegebenenfalls auch gleich das Handle.
|
Re: Fenster Handle ermitteln ohne Application.Title
Hmm mit Window Message könnte ich das ganze auch mal versuchen, hab noch nicht so wirklich damit etwas gemacht.
Muß mir das Thema mal ansehen, wie man das ganze umsetzten könnte. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz