Форум: "WinAPI";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
ВнизКак узнать что программу пытаються запустить повторно? Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c