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

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

Блокировка доступа к папке [D5, D6, Win95/98]


alvan ©   (2002-10-13 13:17:00) 

Помогите, пожалуйста, программно заблокировать доступ к папке(на открытие, удаление, копирование и т.д.), а при необходимости разблокировать.

(по аналогии программы «Ширма» www.goal.ru)

Заранее огромное спасибо.


Reindeer Moss Eater   (2002-10-17 11:38:00) [1]

>alvan
Забудь про это. Все данные тебе советы спасут тебя от твоей младшей сестренки, но не от злого системотехника.
А с собой носи не небольшую утилиту, а дискету с копией выполненных работ.


Nomad.kz   (2002-10-17 11:17:00) [2]

не знаю, помнится я с этой Ширмой как-то перемудрил и запретил доступ к дир-рии Windows, так он (т.е. виддовы , они?) не грузились в нормальном режиме. В этой области я не знаток, но результат требуемый именно в 98-м видел своими глазами ...


Vit@ly   (2002-10-16 21:57:00) [3]

Не знаю на сколько это выручит, но есть программы создающие скрытые диски (на компьютере это выглядит в в виде файла и если этот диск - файл поместить в соответсвующий директорий (например в Windows), дать соответствующее имя и расширение (kernel.swp или что-то подобное), то врядли админ рискнет удалить его. Если заинтересовало, то мыль мне на почту свое мыло, пришлю. Диск естественно открывается только по пароль (какой задашь).


alvan   (2002-10-16 20:39:00) [4]

Проблема в том, что в универе (в котором я учусь) на «моем» компьютере, злостный системотехник постоянно удаляет мою папку с выполненными работами. Так вот, я хотел бы написать небольшую утилиту (которую можно было бы постоянно носить с собой) для защиты любым способом, или блокировки, или скрытия папки, или … любой другой способ, который позволил бы защитить мои данные от этого гада :)

Большое спасибо, всем тем, кто принял участие в моей проблеме

P.S. Мне надо именно под Win 98


pavel-ak   (2002-10-14 12:59:00) [5]

Мне бы например оччень понадобилась такая прога,но после долгих поисков ничего путного на Delphi я не нашел, пришлось юзать FolderGuard - хорошая прога. Да и понял я что это драйвер под файловую систему писать надо.


Reindeer Moss Eater   (2002-10-14 11:59:00) [6]

У вас может и с трудом, но автор вопроса спрашивает именно про Win9x


cdaDmitriy   (2002-10-14 11:56:00) [7]

> Reindeer Moss Eater OK

Но У нас уже с трудом можно найти win98 осталось 1..2 на примерно 10 комп...


Reindeer Moss Eater   (2002-10-14 11:53:00) [8]

>cdaDmitriy
Смысл сказанного мной выше:
На win9x нельзязапретить доступ к локальному ресурсу локальному пользователю.


cdaDmitriy   (2002-10-14 11:49:00) [9]

> Reindeer Moss Eater
Да не что не помешает но с начало найди его (process)...

и Я думаю блокировка нужна на время работы проги .
если всегда то проще воспользоваться secure win...


Reindeer Moss Eater   (2002-10-14 09:05:00) [10]

>cdaDmitriy ©
А что помешает мне убить процесс, который сделал
H := Integer(CreateFile(PChar(S1), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0));
или вообще сделать так, чтобы он не загрузился?


Юрий Зотов   (2002-10-13 22:41:00) [11]

> cdaDmitriy © (13.10.02 19:30)

Из старой справки по Win32 (комплект D5):
FILE_FLAG_BACKUP_SEMANTICS: Windows NT only

Из MSDN (апрель 2001):
FILE_FLAG_BACKUP_SEMANTICS: Windows NT/2000 or later

Из заголовка вопроса:
Win95/98


cdaDmitriy   (2002-10-13 19:30:00) [12]

H := Integer(CreateFile(PChar(S1), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0));


и все работает


cdaDmitriy   (2002-10-13 19:26:00) [13]

ну зачем драйвер в NT и выше можно проще ... открыть и все


Sniffer   (2002-10-13 16:27:00) [14]

Пиши драйвер...


alvan   (2002-10-13 13:34:00) [15]

To TTCustomDelphiMaster, но Ширма же делает это!
Или в Делфе это невозможно?


TTCustomDelphiMaster   (2002-10-13 13:23:00) [16]

Под 98 это невозможно.


Наверх

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