Thema
:
Delphi
Das Programm einmal Starten. Beispiel.
Einzelnen Beitrag anzeigen
Wishmaster
Registriert seit: 14. Sep 2002
Ort: Steinbach, MB, Canada
301 Beiträge
Delphi XE2 Architect
#
14
Re: Das Programm einmal Starten. Beispiel.
28. Jan 2006, 06:39
zusammenfalten
·
markieren
Delphi-Quellcode:
unit
Only_one;
interface
implementation
uses
forms, windows;
var
mutex
: THandle;
h : HWnd;
initialization
Mutex
:= CreateMutex(
nil
, true, '
NetRadio_v3
');
if
GetLastError = ERROR_ALREADY_EXISTS
then
begin
h := 0;
repeat
h := FindWindowEx(0, h, '
TApplication
', PChar(Application.Title))
until
h <> application.handle;
if
h <> 0
then
begin
Windows.ShowWindow(h, SW_ShowNormal);
windows.SetForegroundWindow(h);
end
;
halt;
end
;
finalization
ReleaseMutex(
mutex
);
end
.
Zitat
Wishmaster
Öffentliches Profil ansehen
Mehr Beiträge von Wishmaster finden