Определить и отключить

[cargo29]

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

[mss]

Самое простое - изменить адреса шлюзов либо убрать маршруты к гейтвеям.
http://www.delphi3000.com/articles/article_4392.asp?SK=

[cargo29]

Сообщение от mss

Самое простое - изменить адреса шлюзов либо убрать маршруты к гейтвеям.
http://www.delphi3000.com/articles/article_4392.asp?SK=

а так будет работать я тут код нашел

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
cmd, par,dir: PChar; 
begin 
cmd := 'open'; 
par := PChar('rasdial.exe /DISCONNECT'); 
dir := 'C:'; 
ShellExecute(Self.Handle, cmd, par, dir, SW_SHOWMINNOACTIVE); 
end;