Как узнать подключен ли в данный момент компьютер к инетрнету? [D6, Win95/98, WinME, NT4, Win2k, WinXP]
Russu © (2003-01-29 03:12:00)
Я бы хотел узнать как узнать подключенна ли машина к
инетрнету, и ещё я бы хотел бы узнать как узнать все E-Mail из
адресной книги Outlook? Спасибо асем заранее!
_Narayan_ (2003-01-29 08:15:00) [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.
Наверх 
ЧАТ |
Орешник |
|
