ограничение доступа к сайтам

[shilovec5377]

привет всем. Люди добрые помогите пж. как в делфи можно ограничить доступ к сайтам?

[DIgorevich]

Именно в Делфи? Т.е. серфинг происходит через делфийскую программу?
Если нет, то надо менять файл host, но это вредно с точки зрения антивирусов.

[vasa01]

А зачем тебе имено в Delphi ??? если тебе нужно закрыть доступ с определённому веб сайту "C:\WINDOWS\system32\drivers\et c там есть файл hosts"

# (C) Корпорация Майкрософт (Microsoft Corp.), 1993-1999
#
# Это образец файла HOSTS, используемый Microsoft TCP/IP для Windows.
#
# Этот файл содержит сопоставления IP-адресов именам узлов.
# Каждый элемент должен располагаться в отдельной строке. IP-адрес должен
# находиться в первом столбце, за ним должно следовать соответствующее имя.
# IP-адрес и имя узла должны разделяться хотя бы одним пробелом.
#
# Кроме того, в некоторых строках могут быть вставлены комментарии
# (такие, как эта строка), они должны следовать за именем узла и отделяться
# от него символом '#'.
#
# Например:
#
# 102.54.94.97 rhino.acme.com # исходный сервер
# 38.25.63.10 x.acme.com # узел клиента x

127.0.0.1 localhost
13.31.13.1 mirskidok.net
13.13.31.32 www.mirskidok.net
36.63.36.63 n.pay-click.ru
36.63.36.64 www.n.pay-click.ru
32.7.87.78 darkorbit.ru
98.87.78.8 www.darkorbit.ru
33.32.78.7 gravdee.com
78.78.47.7 www.gravdee.com
98.89.9.89 marketgid.com
98.89.9.87 www.marketgid.com
89.47.58.6 mediarich.in
89.47.58.6 www.mediarich.in
36.14.55.6 id49204.luxup.ru
87.87.47.4 www.id49204.luxup.ru
7.95.45.8 2012poleznoe.ru
7.95.45.32 www.2012poleznoe.ru
5.78.78.7 id49204.al11.luxup.ru
8.78.78.7 www.id49204.al11.luxup.ru
5.78.8.7 id49204.al16.luxup.ru
8.78.7.7 www.id49204.al16.luxup.ru

вот можеш так закрыть доступ к веб сайту))) Я лично так с нежелательной рекламой делал)))

[shilovec5377]

это я и так знаю, но мне именно через делфи.
помогите пж.

[Ruslasy]

Открой хостс и просто допиши туда строку.
var fi:file; s:string;
assign(fi,'путь');
reset(fi);
write(fi,string);

С файлами почти не работал. Только в паскале работал. Может неправльный код

[p51x]

1. За изменение хостс без особой надобностью надо бить по рукам
2. Не все программы на него обращают внимание
3. ...

По тме: нужен драйвер, у вас хватит знаний и опыта его написать?

[shilovec5377]

Пробую писать:

procedure TForm1.Button1Click(Sender: TObject);
 var  F: TextFile;
  str: String;
 begin
 str:=Edit1.Text;
assignfile(F,'C:\Windows\System32\drivers\etc\hosts');
rewrite(F);
writeln(F, str);
Closefile(F);
end;
 end.

но оно чета не хочет, выдает ошибку.
( "File access danied" )

[shilovec5377]

может потому, что файл без разрешения?

[Пепел Феникса]

вы переведите что вам пишет то..

[shilovec5377]

что-то с доступом?
а что можно сделать?