![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
блокирование набора
Novichek © (2002-11-05 19:15:00)кто знает как блокировать набор "C:\", "D:\" в командной строке Explorer"a, Oper"ы, Netscape и др...
Reindeer Moss Eater (2002-11-11 20:05:00) [21]Например.
Ну загрузился я в безопастном режиме и где будет после этого твоя защита? Кто заставит меня её запустить?
Novichek (2002-11-11 20:03:00) [22]в смысле ерунда? обьясни!или тут есть способ обхода от этой защиты?
Reindeer Moss Eater (2002-11-11 20:02:00) [23]Я же не утверждал, что браузер не закроется.
Reindeer Moss Eater (2002-11-11 19:59:00) [24]Так я и говорю, что
Это от происков младшей сестренки поможет. А вообще ерунда полная.
А ты несогласен.
Novichek (2002-11-11 19:40:00) [25]Reindeer Moss Eater (11.11.02 18:53)
а я тебе ее насильно и не впариваю!!!! Это просто один из способов защиты от такого несанкционированного проникновения, как говорится: "Дешево и Сердито!"
Reindeer Moss Eater (2002-11-11 18:53:00) [26]>Novichek ©
Это обходить и не надо.
После того как мой браузер первый раз закроется таким образом, твоя программа с этой защитой больше не будет запускаться на моей машине.
Novichek (2002-11-11 18:34:00) [27]Reindeer Moss Eater (11.11.02 09:34)
а ты пробовал обойти это? при любой попытке выхода браузера на диски C, D, E.... он закрывается.
Reindeer Moss Eater (2002-11-11 09:34:00) [28]Это от происков младшей сестренки поможет. А вообще ерунда полная.
Novichek (2002-11-11 02:23:00) [29]>Cobalt © (08.11.02 22:06)
Исходник здесь:
http://www.sources.ru/delphi/delphi_get_active_url.shtml
я только добавил эти строки и все заработало как надо:
procedure TForm1.Timer1Timer(Sender: TObject);
var
adr_str1, adr_str2, adr_str3:string;
aa:string;
begin
adr_str1:=Get_URL("Netscape");
adr_str2:=Get_URL("IExplore");
adr_str3:=Get_URL("Opera");
label1.Caption:=adr_str1;
label2.Caption:=adr_str2;
label3.Caption:=adr_str3;
if pos("file",adr_str1)<>0 then
begin
aa:= copy(adr_str1,pos(",",adr_str1)+2,length(adr_str1)-pos(",",adr_str1)-5)
+" - Netscape";
postmessage(FindWindow(Nil, pchar(aa)), WM_close, 0, 0);
MessageDlg("Доступ к накопителям информации закрыт Администратором! Приложение будет закрыто!", mtError,[mbOk], 0, mbOk);
end;
if pos("file",adr_str2)<>0 then
begin
aa:= copy(adr_str2,pos(",",adr_str2)+2,length(adr_str2)-pos(",",adr_str2)-2)
+" - Microsoft Internet Explorer";
postmessage(FindWindow(Nil, pchar(aa)), WM_close, 0, 0);
MessageDlg("Доступ к накопителям информации закрыт Администратором! Приложение будет закрыто!", mtError,[mbOk], 0, mbOk);
end;
if pos("file",adr_str3)<>0 then
begin
aa:= copy(adr_str3,pos(",",adr_str3)+2+9,length(adr_str3)-pos(",",adr_str3)-12);
aa:="Opera - [ "+aa+" ]";
postmessage(FindWindow(Nil, pchar(aa)), WM_close, 0, 0);
MessageDlg("Доступ к накопителям информации закрыт Администратором! Приложение будет закрыто!", mtError,[mbOk], 0, mbOk);
end;
end;
Cobalt (2002-11-08 22:06:00) [30]>Novichek © (08.11.02 20:00)
я уже нашел как это сделать. можете не спорить.
ну так, сказал бы...
Novichek (2002-11-08 20:00:00) [31]я уже нашел как это сделать. можете не спорить.
Opuhshii (2002-11-08 15:39:00) [32];) это только для IE, для NN видел что-то,. а вот для Oper"ы,. даже незнаю... ;))
Opuhshii (2002-11-08 15:37:00) [33]да писал уже сюда подобное,...
IShellWindows, IWebBrowser, DWebBrowserEvents, DWebBrowserEvents2, DShellWindowsEvents тебе нужны,..
Ketmar (2002-11-08 15:10:00) [34]хук на клаву? %-))
Satanas Nobiscum! 08-Nov-XXXVII A.S.
Xemax (2002-11-08 13:33:00) [35]>>DeviceIoControl
>>Novichek © (05.11.02 19:58)
>>в смысле?
MSDN
Cobalt (2002-11-08 10:47:00) [36]IMHO, никак.
Novichek (2002-11-07 19:20:00) [37]кто знает как блокировать набор "C:\", "D:\" в командной строке Explorer"a, Oper"ы, Netscape и др...
Novichek (2002-11-05 19:58:00) [38]в смысле?
Xemax (2002-11-05 19:18:00) [39]можно заблокировать целый том c помощью DeviceIoControl