@kenya
В Delphi можно реализовать исключение повторного запуска программы с помощью следующих шагов:
Ниже приведен пример кода:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
uses Windows, SyncObjs; var Mutex: TMultiReadExclusiveWriteSynchronizer; procedure TForm1.FormCreate(Sender: TObject); begin Mutex := TMultiReadExclusiveWriteSynchronizer.Create; try if Mutex.BeginWrite then begin Mutex.EndWrite; end else begin Application.Terminate; end; except Mutex.Free; raise; end; end; procedure |