Topic: Запрет запуска более 1 копии программы
Дмитрий, возможно сделать запрет на запуск более 1 копии программы и дублирующий запуск?
My Visual Database → Russian → Запрет запуска более 1 копии программы
Дмитрий, возможно сделать запрет на запуск более 1 копии программы и дублирующий запуск?
можно так
const
APP_NAME = 'My App Name';
procedure Form1_OnShow (Sender: string; Action: string);
begin
if FindWindow(nil, APP_NAME) <> 0 then
begin
ShowMessage('Application is already launched.');
Form1.Close;
end;
Form1.Caption := APP_NAME;
end;
скрипт при запуске приложения проверяет, есть ли уже окно с заголовком 'My App Name'
если есть, то закрывается.
'My App Name' - замените на свое уникальное название.
также в проекте, текст заголовка главной формы (свойство Caption) оставьте по умолчанию Form1
My Visual Database → Russian → Запрет запуска более 1 копии программы
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi