Hallo Leute,
ich würde gerne ein Programm schreiben, welches nur einmal Aufrufbar ist. Dazu habe ich bereits einige Units gefunden und komme damit klar.
Ich benutze folgende Unit:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| unit NurEinmal;
interface
implementation
uses windows, sysutils, forms;
var mHandle: THandle;
initialization
mHandle := CreateMutex(nil, True, PChar(application.title));
if GetLastError = ERROR_ALREADY_EXISTS then
begin
application.Terminate;
halt;
end;
finalization
if mHandle <> 0 then CloseHandle(mHandle)
end. |
Jetzt würde ich aber gerne eine Funktion basteln, die dem vorher aufgerufenen Programm eine Message schickt. Ich weis nicht inwiefern sowas realisierbar ist, aber ich würde sogar gerne eine bestimmte Funktion oder besser gesagt ein Ereignis über PostMessage aufrufen.
Sagen wir also, dass man das Programm zum zweiten mal startet. Dann müsste folgendes passieren:
-das erste Programm wird ausfindig gemacht
-PostMessage an das erste Programm zum starten des OnCreate Ereignisses als Besispiel
Ist sowas möglich? Wenn ja, wie?
Danke im Voraus
MUTEX
barana
und erarbeitest Dir alles selbst? 
