Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];
Вниз
Блокировка доступа к файлам Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c
