Определение активного подключения

Советы » Dial-up » Определение активного подключения

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение активного подключения

Возвращает название активного интернет-соединения

Зависимости: RAS
Автор:       Ajax, ajax@mail.kz
Copyright:   Ajax
Дата:        27 мая 2002 г.
***************************************************** }

function

CheckRASConnections: string

; const

MaxEntries = 100; var

BufSize: Integer; NumEntries: Integer; Entries: array

[1..MaxEntries] of

TRasConn; begin

Entries[1].dwSize := SizeOf(TRasConn); Bufsize := SizeOf(TRasConn) * MaxEntries; RasEnumConnections(@Entries[1], BufSize, NumEntries); if

numentries > 0 then

result := strpas(@Entries[1].szEntryName) else

Result := 'Disconnected'; end

;

Пример использования:

ShowMessage(CheckRASConnections); 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com