Блокировка доступа к файлам

← →
grifon © (2002-09-17 12:08) [0]

Ув. мастера! Подскажите, где можно почитать про блокировку доступа к файлам (в винде). Имеется ввиду на одной машине, не через сеть.

← →
BF7ru © (2002-09-17 13:01) [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;

Блокировка доступа к файлам Найти похожие ветки