![]() |
|
|
#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, встроенные в архиваторы и т.д.), и в конце-концов любой может запросто написать свой. Что теперь, перечислять все возможные имена программ, работающих с файлами? |
|
#18
|
||||
|
||||
|
Драйвер во первых небезопасно, во вторых не на всякой системе он заработает, в 3-х, толковый пользователь его отключить сможет, в четверных, это достаточно сложновато (хотя кому как).
|
|
#19
|
||||
|
||||
|
Цитата:
|
|
#20
|
|||
|
|||
|
Цитата:
|
|
#21
|
||||
|
||||
|
Цитата:
![]() |