|
#16
|
|||
|
|||
Цитата:
Вот нашел в инете, может кому тоже пригодиться. При открытие окна, окно закрывается и надо ввести пароль. С проводником работает, в тотол командаре нет. Может кто нибудь знает как указать что Тотол командаре тоже работало. Код:
procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text='123' then begin ShowWindow(test,SW_SHOWNORMAL); //как указать для тотол командара вот здесь? timer1.Enabled:=false; end else begin ShowMessage('Пароль не верный'); end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin test:= findWindow (nil, 'sicret'); //как указать для тотол командара вот здесь? if test<>0 then begin ShowWindow(test,SW_HIDE); Label1.Caption:=('В ведите пароль'); end else begin Label1.Caption:=('Окна нет'); end; end; end. Последний раз редактировалось M.A.D.M.A.N., 21.05.2013 в 12:54. |
#17
|
||||
|
||||
Это не закрытие доступа к папке, а отключение проводника или файлового менеджера. За такое можно уже сажать, так как это нанесение прямого вреда компьютеру и пользователю.
И это все равно бесполезно, файловых менеджеров много (проводник, FAR, Salamander, Total Commander, встроенные в архиваторы и т.д.), и в конце-концов любой может запросто написать свой. Что теперь, перечислять все возможные имена программ, работающих с файлами? jmp $ ; Happy End! The Cake Is A Lie. |
#18
|
||||
|
||||
Драйвер во первых небезопасно, во вторых не на всякой системе он заработает, в 3-х, толковый пользователь его отключить сможет, в четверных, это достаточно сложновато (хотя кому как).
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#19
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#20
|
|||
|
|||
Цитата:
|
#21
|
||||
|
||||
Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |