При подключении к нету появляется мессаг.Как сделать???

[Teen4jump]

При подключении и разрыве соединения с интернетом появляется мессаг. Возможно ли это???





З.Ы Т.к я пока не разбираюсь в сокетах, инди и т.д -- прошу помощи у сведущих!!!

[Квэнди]

const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTdState';

{$R *.DFM}

procedure TForm1.CheckState(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+ IC_PROXY;
if InternetGetConnectedState(@dwConnec tionTypes,0) then
ShowMessage('Вы подключены')
else
ShowMessage('Вы не подключены');
end;

Чтобы не задумываться о хуках, просто по таймеру проверяй

[Teen4jump]

const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTdState';-- Здесь как?

{$R *.DFM}

procedure TForm1.CheckState(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+ IC_PROXY-- пишет Undecleared identifinier
if InternetGetConnectedState(@dwConnec tionTypes,0) then-- здесь тоже
ShowMessage('Вы подключены')
else
ShowMessage('Вы не подключены');
end;

[Квэнди]

Не посмотрел изначально, виноват. Вот другой способ:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,WinInet;

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
        function IsConnectedToInternet: Boolean;
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet then
     ShowMessage('Вы подключены')
   else
     ShowMessage('Вы не подключены')
end;

function tform4.IsConnectedToInternet: Boolean;
 var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes :=
     INTERNET_CONNECTION_MODEM +
     INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
 end;

end.

[Pitbull]

по-моему, данный пример проверяет прописаны ли настройки подключения, но не состояние.....

[Квэнди]

InternetGetConnectedState +f1

[Pitbull]

Сообщение от Квэнди

InternetGetConnectedState +f1

Ну я выключил сетевой кабель - никакой реакции... Выдает сообщение о подключении

[Квэнди]

Хм, интересно, сейчас потестирую
Работает. Задержка в реакции около 30 секунд что логично и нормально.

[Pitbull]

Сообщение от Квэнди

Хм, интересно, сейчас потестирую
Работает. Задержка в реакции около 30 секунд что логично и нормально.

аааа.... Ну тогда сорри...