Есть два компютера, соединенных сетью. На одном из них установлено приложение, которое можно запускать на обоих машинах. Единственное условие - чтоб одновременно не можно было его запустить на обеих компютерах.
Код:
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MyWindow := FindWindowEx(0, 0, 'TForm1', nil);
if MyWindow=0 then SetForegroundWindow(MyWindow);
MessageDlg('Програма вже запущена', mtError,[mbOk],0);
Halt;
end;
Admin: Не забываем пользоваться тегами!
вот часть кода, где я ограничиваю возможность повторного запуска приложения на одной машине.... но это не работает при запуске программы со второго компа...