取当前所有的拨号连接的程式

{
源代码网推荐 取当前所有的拨号连接的程式;
源代码网推荐 参数为传入的列表，过程成功为参数付值且返回值为真
源代码网推荐 否则为假；
源代码网推荐 调用方法类似
源代码网推荐 if GetEntries(Memo1.Lines) then
源代码网推荐 begin
源代码网推荐 end
源代码网推荐 else
源代码网推荐 begin
源代码网推荐 end;
源代码网推荐 Date:2001/03/07 12:30-----13:32
源代码网推荐 Remark:
源代码网推荐
源代码网推荐 }
源代码网推荐 function TForm1.GetEntries(List: TStrings):Boolean;
源代码网推荐 type
源代码网推荐 TRasEntryName = record
源代码网推荐 Size : DWORD;
源代码网推荐 EntryName: array[0..256] of Char;
源代码网推荐 end;
源代码网推荐
源代码网推荐 TRasEnumEntries = function(Reserved : Pointer;
源代码网推荐 PhoneBook : Pointer;
源代码网推荐 RasEntryName : Pointer;
源代码网推荐 var cb : DWORD;
源代码网推荐 var Entries : DWORD) : DWORD; stdcall;
源代码网推荐
源代码网推荐 const
源代码网推荐 RasAPI32="RASAPI32.dll";
源代码网推荐
源代码网推荐 var
源代码网推荐 FRasLibHandle : THandle;
源代码网推荐 RasEntries : array[1..25] of TRasEntryName;
源代码网推荐 Size : DWORD;
源代码网推荐 Count : DWORD;
源代码网推荐 i : DWORD;
源代码网推荐 RasEnumEntries : TRasEnumEntries;
源代码网推荐 begin
源代码网推荐 // if List=Nil then Exit;
源代码网推荐 try
源代码网推荐 List.Clear;
源代码网推荐
源代码网推荐 FRasLibHandle:=LoadLibrary(RasAPI32);
源代码网推荐 try
源代码网推荐 if FRasLibHandle=0 then Exit;
源代码网推荐
源代码网推荐 { 获取RasEnumEntriesA方法地址;本方法的关键是对RASAPI32.dll提供的方法要
源代码网推荐 熟悉，利用API过程GetProcAddress来取DLL中的方法地址，给方法指针付值后
源代码网推荐 调用，其它如拨号程式，
源代码网推荐 TRasDial = function(RasDialExtensions : Pointer;
源代码网推荐 PhoneBook : Pointer;
源代码网推荐 var RasDialParams : TRasDialParams;
源代码网推荐 NotifierType : DWORD;
源代码网推荐 Notifier : Pointer;
源代码网推荐 var RasConn : THandle) : DWORD; stdcall;
源代码网推荐
源代码网推荐 @RasDial:=GetProcAddress(FRasLibHandle,"RasDialA");
源代码网推荐 拨号后挂起程式
源代码网推荐 TRasHangUp = function(RassCon : THandle) : DWORD; stdcall;
源代码网推荐 @RasHangUp:=GetProcAddress(FRasLibHandle,"RasHangUpA");
源代码网推荐 类同}
源代码网推荐 @RasEnumEntries:=GetProcAddress(FRasLibHandle,"RasEnumEntriesA");
源代码网推荐 if @RasEnumEntries=nil then Exit;
源代码网推荐
源代码网推荐 RasEntries[1].Size:=SizeOf(TRasEntryName);
源代码网推荐 Size:=SizeOf(RasEntries);
源代码网推荐 if RasEnumEntries(nil,nil,@RasEntries,Size,Count)=0 then
源代码网推荐 begin
源代码网推荐 for i:=1 to Count do
源代码网推荐 List.Add(RasEntries[i].EntryName);
源代码网推荐 end;
源代码网推荐 Result:=True;
源代码网推荐 finally
源代码网推荐 FreeLibrary(FRasLibHandle);
源代码网推荐 end;
源代码网推荐 except
源代码网推荐 end;
源代码网推荐
源代码网推荐 end;