Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как запретить открутие папки с файлами под Win98 [D5, D6, D7, Win95/98]


jonni ©   (2003-04-12 22:50:00) 

вообщем идея вот каккая:
я хочу зарыть паку для чтения и изменения так чтобы никто и ничто кроме определённого процесса не смогло открыть эту папку и файлы в ней. как это можно сделать??

спасибо


cdadmitriy   (2003-04-13 16:06:00) [1]

Попробуй это в Win2000 работает и без настройки прав

procedure TForm1.Button1Click(Sender: TObject);var S1:String;
begin
S1:=DirectoryEdit1.Text;
H := Integer(CreateFile(PChar(S1), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0));
label1.Caption:=inttostr(H);
if H < 0 then raise EFCreateError.CreateResFmt(@S, [S1]);
end;


Anatoly Podgoretsky   (2003-04-13 10:46:00) [2]

Установить, что нибудь из платформы НТ и настроить права.


Наверх

Титульная страница Поиск, карта сайта Написать письмо