Блокировка доступа к файлам
grifon © (2002-09-17 12:08:00)
Ув. мастера! Подскажите, где можно почитать про блокировку
доступа к файлам (в винде). Имеется ввиду на одной машине, не через
сеть.
BF7ru (2002-09-17 13:01:00) [1]
Я использвал этот код для проверки второй копии программы, но
думаю тебе это моежт помочь:
begin
var Uniq : THandle;
begin
//Получаем handle для file-mapping object
Uniq:=CreateFileMapping($ffffffff, nil, PAGE_READONLY, 0, 3
2, "somefile.dat");
//Всякре бывает ;o)
if Uniq = 0 then begin
MessageDlg("Критическая ошибка выделения памяти", mtError,
[mbOK], 0);
Application.Terminate;
end else
//А вот тут проверяем, вдруг файл уже занят
if GetLastError = ERROR_ALREADY_EXISTS then
Application.Terminate;
Наверх 
ЧАТ |
Орешник |
|
