Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
ВнизКак запретить повторный запуск программы? Найти похожие ветки
← →
syte_ser78 © (2005-01-16 11:03) [0]Как запретить программе запускаться более чем в одной копии?
← →
Sergey_Masloff (2005-01-16 11:04) [1]Это есть в FAQ на любом программистском сайте.
← →
PZ (2005-01-16 13:38) [2]Например, файл проекта оформляешь таким образом:
program LoadInet;
uses
Forms,
Dialogs,
Windows,
LoadInetUn in "LoadInetUn.pas" {LoadInetFrm};
{$R *.res}
begin
// Не допустить запуск программы второй раз
HPrevInst := FindWindow("TLoadInetFrm", Nil);
If HPrevInst = 0 then
begin
Application.Initialize;
Application.CreateForm(TLoadInetFrm, LoadInetFrm);
Application.Run;
end
else
begin
ShowMessage("LoadInet уже запущен");
Windows.SetFocus(HPrevInst);
Windows.SetForeGroundWindow(HPrevInst);
end;
end.
← →
GanibalLector © (2005-01-16 13:50) [3]http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.036 c