Цитата:
Сообщение от ShamanKing
...
Как сделать что бы не запускалась вторая копия икара если одна уже запущенна?...
|
Я плюсану к этому запросу, бывает запустишь случайно несколько копий и не поймёшь, что происходит...
Конечно не хочу "учить учёного и т.д.", но вроде бы в Дельфях достаточно просто запретить запуск 2-й копии, ну чт-то навроде этого:
PHP код:
procedure TForm1.FormCreate(Sender: TObject);
var HM: THandle;
begin
HM := OpenMutex(MUTEX_ALL_ACCESS, false, '_iCarDS_UniqueMutex_');
if (HM <> 0) then
// ShowMessage('iCarDS уже запущена'); //Optional message
Exit;
if HM = 0 then
HM := CreateMutex(nil, false, '_iCarDS_UniqueMutex_');
end;
...На верность кода не претендую, ибо когда я последний раз программировал на Дельфи - "это было давно и неправда"
