Скачать: CL | DM;

Как узнать что программу пытаються запустить повторно?   Найти похожие ветки 

← →
sucer   (2003-08-13 20:55) [0]

Как узнать что программу пытаються запустить повторно

---

← →
OHP   (2003-08-14 00:55) [1]

создавай мьютекс...

---

← →
ferrik ©   (2003-08-14 01:34) [2]

При запуске искать копии..........

---

← →
Reindeer Moss Eater ©   (2003-08-14 09:33) [3]

Повторно после вчерашнего запуска?

---

← →
BillyJeans ©   (2003-08-14 10:11) [4]

Удалено модератором
Примечание: Offtopic

---

← →
Счетчик   (2003-08-14 10:19) [5]

Удалено модератором
Примечание: Offtopic

---

← →
Kyro5   (2003-08-15 09:29) [6]

Пример из книги Паченко кажется.
Ставь этот юнит первым в проекте

unit UOneHinst;
interface

implementation
uses
Windows;
var
Mutex : THandle;
MutexName : array[0..255] of Char;

function StopLoading : boolean;
var
L,I : integer;
begin
L := GetModuleFileName(MainInstance,MutexName,SizeOf(MutexName));
for I := 0 to L - 1 do
if MutexName[I] = "\" then
begin
MutexName[I] := "/";
end;
Mutex := CreateMutex(nil,false,MutexName);

Result := (Mutex = 0) or
(GetLastError = ERROR_ALREADY_EXISTS);
end;

procedure ShowErrMsg;
const
PROGRAM_ALREADY_RUN = "PROGRAM IS ALREADY RUNNING !";
begin
MessageBox(0,PROGRAM_ALREADY_RUN,MutexName, MB_ICONSTOP or MB_OK);
end;

initialization
if StopLoading then
begin
ShowErrMsg;
halt;
end;
finalization
if Mutex <> 0 then
CloseHandle(Mutex);
end.

---

← →
iWorm   (2003-08-16 01:10) [7]

Удалено модератором
Примечание: Offtopic

---

← →
WhiteShadow ©   (2003-08-16 16:38) [8]

В статьях есть эта тема...

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c