![]() |
Kein doppelter Programstart aber Fenster in den Vordergrund
Hallo,
ich nutze die folgende Unit um einen doppelten Programmstart zu verhindern:
Delphi-Quellcode:
Ich möchte jetzt aber nicht eine Meldung auf den Bildschirm bekommen. Stattdessen soll die Instanz des Programmes, die schon läuft in den Vordergrund gehoben werden. Ich kann dies mit den API-Funktionen SetForegroundWindow oder BringWindowToTop erreichen. Beide benötigen jedoch das Fensterhandle. Gibt es eine Möglichkeit aus dem Mutex irgendwie das Fensterhandle zu ermitteln oder muß ich FindWindow verwenden?
unit CopyVertragRunOnce;
interface implementation uses windows, Dialogs, sysutils, Forms; var mHandle: THandle; // Mutexhandle Initialization mHandle := CreateMutex(nil, True, PChar(Application.Title)); // 'xxxxx' Der Anwendungsname ist hier einzutragen if GetLastError = ERROR_ALREADY_EXISTS then begin // Anwendung läuft bereits showMessage('Anwendung läuft bereits!!!!!'); // Wenn du deine Meldung willst, mach die Klammern weg Halt; end; finalization // ... und Schluß if mHandle <> 0 then ReleaseMutex(mHandle); end. {Dieter Hirt} |
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Ich denke, es führt kein Weg um FindWindow drumrum.
|
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Und wellche Funktion nehme ich zum in den Vordergrund bringen. Bei mir passiert nämlich nichts. Kann auch sein, das ich die falschen Werte für class name bzw. window name verwende. :oops:
|
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Zeig mal Code. Zum Nachvorneholen würde ich SetWindowPos nehmen mit HWND_TOP als zweiten Parameter.
|
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Liste der Anhänge anzeigen (Anzahl: 1)
Schau mal ins Attachment.
|
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Moin Rainer,
Du könntest auch, mittels RegisterWindowMessage, eine eigene Message für Dein Programm erzeugen, die Du dann mittels Handle HWND_BROADCAST an alle Top Level Windows verschickst. Die laufende Instanz kann sich dann selber in den Vordergrund holen, sobald es diese Message erhält. Als Messagestring solltest Du Dir am besten eine GUID von der IDE generieren lassen, damit die Message auch eindeutig wird, und das Registrieren nicht fehlschlägt. |
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Mit SetWindowPos ändere ich doch auch die Fensterkoordinaten und -größe. :?
Hier jetzt der aktuelle Code der Unit:
Delphi-Quellcode:
unit CopyVertragRunOnce;
interface implementation uses windows, Dialogs, sysutils, Forms; var mHandle: THandle; // Mutexhandle hWindow: HWND; Initialization mHandle := CreateMutex(nil, True, PChar(Application.Title)); // 'xxxxx' Der Anwendungsname ist hier einzutragen if GetLastError = ERROR_ALREADY_EXISTS then begin // Anwendung läuft bereits hWindow := FindWindow('TApplication', 'CopyVertrag'); // BringWindowToTop(hWindow); SetForegroundWindow(hWindow); // showMessage('Anwendung läuft bereits!!!!!'); // Wenn du deine Meldung willst, mach die Klammern weg Halt; end; finalization // ... und Schluß if mHandle <> 0 then ReleaseMutex(mHandle); end. {Dieter Hirt} |
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Zitat:
|
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Zitat:
@toms: Ist das wirklich so aufwändig? |
Re: Kein doppelter Programstart aber Fenster in den Vordergr
Hallo alle zusammen,
alles Gute fürs Neue Jahr.
Delphi-Quellcode:
Ich hoffe das Hift dir Weiter// ab damit in deine Tools.pas oder so function ForceForegroundWindow(hwnd: THandle): boolean; const SPI_GETFOREGROUNDLOCKTIMEOUT = $2000; SPI_SETFOREGROUNDLOCKTIMEOUT = $2001; var ForegroundThreadID: DWORD; ThisThreadID : DWORD; timeout : DWORD; begin if IsIconic(hwnd) then ShowWindow(hwnd, SW_RESTORE); if GetForegroundWindow = hwnd then Result := true else begin // Windows 98/2000 doesn't want to foreground a window when some other // window has keyboard focus if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4)) or ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and ((Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and (Win32MinorVersion > 0)))) then begin // Code from Karl E. Peterson, [url]www.mvps.org/vb/sample.htm[/url] // Converted to Delphi by Ray Lischner // Published in The Delphi Magazine 55, page 16 Result := false; ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow,nil); ThisThreadID := GetWindowThreadPRocessId(hwnd,nil); if AttachThreadInput(ThisThreadID, ForegroundThreadID, true) then begin BringWindowToTop(hwnd); // IE 5.5 related hack SetForegroundWindow(hwnd); AttachThreadInput(ThisThreadID, ForegroundThreadID, false); Result := (GetForegroundWindow = hwnd); end; if not Result then begin // Code by Daniel P. Stasinski SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0); SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE); BringWindowToTop(hwnd); // IE 5.5 related hack SetForegroundWindow(hWnd); SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE); end; end else begin BringWindowToTop(hwnd); // IE 5.5 related hack SetForegroundWindow(hwnd); end; Result := (GetForegroundWindow = hwnd); end; end; { ForceForegroundWindow } .... var hW : hWnd; .... hW := FindWindowEx( 0,0,'TApplication', 'Deine Name den du suchst' ); if IsWindow(hW ) then begin //... Result := ForceForegroundWindow( hW ); exit; end; // Bau deinen Mutex bitte mit ein .... mfg Rumpi |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 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