Повторный запуск приложнеия

← →
ZioN (2003-08-12 15:13) [0]

Уважамые мастера, как сделать так, чтобы если моё приложение работает, а пользователь пытается запустить его ещё раз, оно не запускается повторно. (Фактически, нужно запретить повторный запуск приложения).
Заранее спасибо.

← →
MBo (2003-08-12 15:14) [1]

в FAQ есть

← →
Amoeba (2003-08-12 16:00) [2]

В целом ряде библиотек (например, ABF) для этого даже специальные компоненты есть.

← →
Alibaba (2003-08-12 18:23) [3]

program FilialsExist1;

uses
WinProcs,
Dialogs,
Forms, SysUtils, Controls,
dlgMain in "dlgMain.pas" {frmMain},
mdVariable in "mdVariable.pas",
mdData in "mdData.pas" {dmModule: TDataModule},
dlgLogin in "dlgLogin.pas" {frmLogin};

{$R *.RES}

const
AppID = "FilialsExists1";

var
MainHandle: THandle; //Хендел главной программы

begin
//Создаем в страничной памяти 1-байтовый "файл" с уникальным
//именем AppID, проецируем его в свое адресное пространство
//и проверяем, был ли он создан или просто открыт.
MainHandle:=CreateFileMapping($FFFFFFFF,Nil,PAGE_READONLY,0,1,AppID);
if GetLastError=ERROR_ALREADY_EXISTS then
MessageDlg("Программа "+AppID+" уже запущена!",mtConfirmation, [mbOk], 0)
else
begin
Application.Initialize;
Application.Title := "FilialsExists1";
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmLogin, frmLogin);
Application.CreateForm(TdmModule, dmModule);

SetUp;
if frmMain.cbAllExist.Checked then StartProgram
else
if DayAlReadyChecked then Halt
else StartProgram;
end;
//Освобождаем ресурс и тем самым разрешаем следующий запуск.
CloseHandle(MainHandle)
end.

← →
Serginio666 (2003-08-12 18:57) [4]

Поиск на сайте начал работать правтда только по темам
http://www.delphimaster.ru/articles/limit.html

← →
ZioN (2003-08-12 20:13) [5]

Большое спасибо!

← →
TButton (2003-08-12 20:15) [6]

эээ... а нельзя просто проверить существует ли окно с тем же именем? или что-то такое... а то я код господина Алибабы (правильно скзал?) по читал и мне дурно стало... наверное из-за термина FileMapping

← →
Serginio666 (2003-08-12 20:30) [7]

Повторный запуск приложнеия Найти похожие ветки