[perkalaba]

Есть два компютера, соединенных сетью. На одном из них установлено приложение, которое можно запускать на обоих машинах. Единственное условие - чтоб одновременно не можно было его запустить на обеих компютерах.

Код:

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: Не забываем пользоваться тегами!

вот часть кода, где я ограничиваю возможность повторного запуска приложения на одной машине.... но это не работает при запуске программы со второго компа...