Скачать: CL | DM;

Как узнать подключен ли в данный момент компьютер к инетрнету?   Найти похожие ветки 

← →
Russu   (2003-01-29 03:12) [0]

Я бы хотел узнать как узнать подключенна ли машина к инетрнету, и ещё я бы хотел бы узнать как узнать все E-Mail из адресной книги Outlook? Спасибо асем заранее!

---

← →
_Narayan_   (2003-01-29 08:15) [1]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var Form1: TForm1;

const winetdll = "wininet.dll";

function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external winetdll name "InternetGetConnectedState";
function InternetConnected: Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
If InternetConnected Then ShowMessage("Da") Else ShowMessage("NOOOOOOO");
end;

function InternetConnected: Boolean;
const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
var ConnectionTypes: DWORD;
begin
ConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
Result:=InternetGetConnectedState(@ConnectionTypes,0);
end;

end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c