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

Вниз

как блокировать повторный запуск?   Найти похожие ветки 

 
BillyJeans ©   (2002-09-16 10:44) [0]

Подскажите, каким образом при запуске сделать проверку, запущена программа уже или нет? А если запущена то Exit!


 
Separator ©   (2002-09-16 10:49) [1]

program CopyProg;

uses
Forms,
Dialogs,
Windows,
SysUtils,
UnitBasic in "UnitBasic.pas" {FormBasic};

{$R *.res}

var
Atom: word;
Title: PChar;
myHandle: THandle;

begin
// Определени названия програмы
myHandle:= Application.Handle;
Title:= StrAlloc(255);
GetWindowText(myHandle, Title, 255);

// Определение запуска второй копии
if GlobalFindAtom(Title) <> 0 then
begin
ShowMessage("Попытка запуска второй версии программы!");
Halt
end;

// Запуск программы
Atom:= GlobalAddAtom(Title);
Application.Initialize;
Application.Title:= "My Program";
Application.CreateForm(TFormBasic, FormBasic);
Application.Run;
GlobalDeleteAtom(Atom)
end.


 
vikki   (2002-09-16 10:50) [2]

мьютекс используй


 
BillyJeans ©   (2002-09-16 10:58) [3]

какой такой мьютекс?


 
Separator ©   (2002-09-16 11:57) [4]

Про мьютексы читай в умныз книгах.
А вот пример его использования:

var
HMutex: THandle;
begin
HMutex:= CreateMutex(nil, False, "MySuperProga");
if WaitForSingleObject(HMutex, 0)<>wait_TimeOut then
begin
Application.Initialize;
Application.CreateForm)TForm1, Form1);
Application.Run
end
end.

А вообще слей какой-нибудь нормальный фак и там по этому вопросу куча примеров



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
8-85615
Evgenij
2002-05-29 14:14
2002.09.26
как сохранить информацию из jpg о дате,и фото апарате ?


7-85716
иван
2002-07-17 13:15
2002.09.26
Autoexec.bat


1-85482
Ежик
2002-09-16 16:38
2002.09.26
Как из txt файла вывести в memo слова начинающие, на букву


3-85315
Kurt
2002-09-06 15:53
2002.09.26
Люди помогите с CtrlGrid-ом!


1-85592
Николас Вирт
2002-09-14 23:19
2002.09.26
Как сделать upgrade???