Форум: "WinAPI";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];

Вниз

Рвём коннект   Найти похожие ветки 

← →
Olgerd   (2001-12-29 01:47) [3]

uses RasUnit;
procedure TForm1.Button1Click(Sender: TObject);
var BuffSize: Integer;
Entries: Integer;
Entry : Array[1..MaxEntries] of TRasConn;
X, Result_ : Integer;
AllEntries: TStrings;
begin
Entry[1].dwSize:=SizeOf(TRasConn);
BuffSize:=SizeOf(TRasConn)*MaxEntries;
Result_:=RasEnumConnections(@Entry[1], BuffSize, Entries);
If (Result_=0) and (Entries>0) Then
Begin
AllEntries:= TStringList.Create;
For X:=1 To Entries Do
Begin
AllEntries.Add(Entry[x].szEntryName);
End;
Memo1.Lines.AddStrings(AllEntries);
AllEntries.Free;
End;
end;

Вот так я получаю список установленных соединений, а как мне порвать какое-нибудь, т.е. порвать, то понятно RasHangUp, а как получить его hRasConn?

---

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

Форум: "WinAPI";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c