• Registered: 2016-02-28
  • Posts: 124

Topic: Контроль запуска копии

Со скрытием в трей нарисовывается потребность не допускать запуск копии программы. Можно ли как-то это реализовать не доходя до подключения к БД?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Контроль запуска копии

Можно, пример

const
  APP_NAME = 'My App Name';

procedure Form1_OnShow (Sender: string; Action: string);
begin
  Form1.Caption := '';
  if FindWindow(nil, APP_NAME) <> 0 then
  begin
      ShowMessage('Application is already launched.');
      Form1.Close;
  end;
  Form1.Caption := APP_NAME;
end;
Dmitry.