Форум: "Сети";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
ВнизКак узнать подключен ли в данный момент компьютер к инетрнету? Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.017 c