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

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

Как запретить доступ к папке? [D5, D6, D7, Win95/98, WinME, WinXP]

Bonial ©   (2003-04-20 02:41:00) 

Помогите, пожалуйста. Очень нужно для программы

---

Bonial   (2003-04-28 04:57:00) [1]

Спасибо cdaDmitriy, в Windows XP пашет. Но в WinME - нет.

---

Polevi   (2003-04-22 14:13:00) [2]

в 2000 для этого есть нормальные способы

---

cdadmitriy   (2003-04-22 10:56:00) [3]

В Win 2000 отлично работает

---

cdadmitriy   (2003-04-22 10:54:00) [4]

Ну почему бред ....

попробуй

procedure TForm1.Button1Click(Sender: TObject);var S1:String;
begin // D:\ICON "D:\DELPHI_PROG\Test_OpenDIR\"
//F:=TFileStream.Create("D:\ICOn\1.txt",fmCreate or fmOpenRead or fmShareExclusive);
S1:=DirectoryEdit1.Text; //"D:\DELPHI_PROG";//"D:\ICON";
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;

---

Polevi   (2003-04-22 10:51:00) [5]

бред

---

joisy   (2003-04-21 12:29:00) [6]

A mojno li zapretit dostup papke cherez sodaniye (otritie ee) kak objekta s ekslusivnim dostupom? Ya imeyu vvidu cherez CreateFile ili CreateMutex - chtobi explorer naprime ne mog eyu "polzovatsya"

---

Eug201   (2003-04-20 09:52:00) [7]

Такое в Windows95/98/ME не встроено. Есть какие-то приблуды, которые папку "прячут" от операционки. А для WinXP права можно установить, если программа запустится с соответсвующими правами.

---

Наверх