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

← →
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

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

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