Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

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

 
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]

>TButton © (12.08.03 20:15) [6]
Почитай статейку. Полезно. Кроме всего прочего заголовок главного окна можно изменять.



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
1-81768
LVitaliy
2003-08-14 14:13
2003.08.25
Преобразование


1-81718
The X
2003-08-14 17:23
2003.08.25
Сделать выч. кол-ва дней, недель, месяцев и годов между датами


1-81607
Step[B.M.]
2003-08-15 03:48
2003.08.25
Как програмно опуститься на последнюю строчку ListView


1-81762
KPP
2003-08-14 15:13
2003.08.25
Меню попап, битмапы и хоткеи пунктов, сдвиг


4-82001
delphimun
2003-06-23 20:15
2003.08.25
Как мне поставить хук на переименование окна