Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

Доступ к файлу   Найти похожие ветки 

 
Антипов Николай   (2002-01-05 17:37) [0]

Здравствуйте, Мастера Delphi. У меня к вам такой вопрос:
Необходимо запретить доступ к файлу для всех, и разрешить только для
самой системы Windows. Я думаю здесь необходимо как-то перехватывать
запросы на открытие(копирование,удаление и т.п.), определить, кто его послал
и затем решить, выполнить его или отвергнуть. Как все это можно
организовать на Delphi? Заранее благодарен!!!


 
XeN   (2002-01-06 01:50) [1]

Выбираешь нужный тебе файл и делаешь...

procedure OpenForShare(const FileName: String);

var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
if FileHandle > 0 then
{valid file handle}
else
{Open error: FileHandle = negative DOS error code}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenForShare((FileNameedit1.Text));
end;

end.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.024 c
14-75685
lel
2001-11-28 10:54
2002.01.24
Никто не знает ресурсов, где выложены, спрайты, текстуры к разным и грам и не только????


4-75718
Serega__2
2001-11-23 15:37
2002.01.24
Синхронизация ScrollBar`ов у двух TCheckListBox


1-75614
Vitalik
2002-01-06 21:08
2002.01.24
создание динамических массиво в Pascale


14-75674
Koks
2001-11-29 17:56
2002.01.24
Мастаки !


1-75626
Eraser
2002-01-03 15:40
2002.01.24
Снова я и снова торможу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский