Глобальные системные флаги

← →
Dust © (2005-07-27 15:22) [0]

народ, как поставить уникальный глобальный системный флаг, проверить его наличие (соответственно потом удалить его)?
приведите пример плз.

← →
Джо © (2005-07-27 15:34) [1]

> приведите пример плз.

GlobalAddAtom("PRIVET"); if GlobalFindAtom("PRIVET") <> 0 then ShowMessage ("I got it!")

← →
Джо © (2005-07-27 15:35) [2]

Также можно использовать CreateMutex/OpenMutex

← →
Джо © (2005-07-27 15:37) [3]

И, вообще, неясно, что есть "флаг". В конце, концов, под это определение можно подсунуть использование общей области памяти посредством MMF.

← →
Dust © (2005-07-27 18:02) [4]

Я уже использую мутексы, вот в таком контексте

..... hMutex:=CreateMutex(nil,false,"check_param"); fErr := GetLastError <> ERROR_ALREADY_EXISTS; CloseHandle (hMutex); if fErr then begin raise Exception.Create("Вместо TSMPPClient.Create следует вызывать "+#13#10+"TSMPPClient.CreateSMPPclient () :TSMPPClient ;"); exit; end; .....
потому как почитал в MSDN -

<
.....
If the function succeeds, the return value is a handle to the mutex object. If the named mutex object existed before the function call, the function returns a handle to the existing object and GetLastError returns ERROR_ALREADY_EXISTS. Otherwise, the caller created the mutex.

If the function fails, the return value is NULL. To get extended error information, call GetLastError.
....
>

Глобальные системные флаги Найти похожие ветки