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

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

← →
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

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

---

← →
Olphi ©   (2002-09-26 10:39) [2]

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

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;


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

---

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

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



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