Как узнать, к какому провайдеру сейчас подключен комп?

← →
Olphi © (2002-09-24 19:38) [0]

Нужно узнать: какое соединение Dialup используется в данный момент (т.е имя соединения) и сколько времени была сессия активной.

← →
Ihor Osov'yak © (2002-09-24 19:50) [1]

На первую часть вопроса:
const
winetdll = "wininet.dll";

{ from the W2K SDK }
function InternetGetConnectedStateEx(lpdwFlags: LPDWORD;
lpszConnectionName: LPSTR;
dwNameLen: DWORD;
dwReserved: DWORD): BOOL;
stdcall; external winetdll name "InternetGetConnectedStateExA";

....

function inet_IsConnected(var ConDes: TConDescriptions; var sConName : string): boolean;
var
dwCTp : DWORD;
Buffer : array[0..MAX_PATH - 1] of char;
begin
dwCTp := 0;
Result := InternetGetConnectedStateEx(@dwCTp, Buffer, Sizeof(Buffer)-1, 0);

if Result then sConName := StrPas(Buffer);
end

На вторую - не знаю (по причитне, что таким вопросом не приходилось заниматься) .

Благодарю. Всё работает прекрасно. Проблема решена. Вот код готовый:

var
sconname:string;

const
winetdll = "wininet.dll";

function InternetGetConnectedStateEx(lpdwFlags: LPDWORD;
lpszConnectionName: LPSTR;
dwNameLen: DWORD;
dwReserved: DWORD): BOOL;
stdcall; external winetdll name "InternetGetConnectedStateExA";
implementation

{$R *.DFM}

function inet_IsConnected: boolean;
var
dwCTp : DWORD;
Buffer : array[0..MAX_PATH - 1] of char;
begin
dwCTp := 0;
Result := InternetGetConnectedStateEx(@dwCTp, Buffer, Sizeof(Buffer)-1, 0);
if Result then sConName := StrPas(Buffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if inet_IsConnected then button1.caption:= sconname
else button1.caption:= "Нет соединения";
end;

И вторая проблема решена тоже...

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