Folgendermaßen ist es möglich, dass von einem WinForms-Programm nur eine Instanz zugelassen wird:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| const myGUID = '{6C1C3282-10AB-44F1-966A-14DBD8061917}';
var createdNew : Boolean; m : Mutex;
begin m := Mutex.Create(true, myGUID, createdNew); if not createdNew then exit; Application.Run(TMainForm.Create);
m.ReleaseMutex; end. |
Dabei muss natürlich für jedes Programm mittels STRG+SHIFT+G eine eigene GUID erzeugt werden!
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".