Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > RasAPI получить список номеров dial-up соединения

Автор: Dmitry05 11.12.2005, 11:00

RasApi как получить список номеров соединения? Сделал вот как:
[/code]

Код


procedure TForm1.Button1Click(Sender: TObject);
var
R: Integer;
Fp: LongBool;
dwEntryInfoSize, dwDeviceInfoSize: LongInt;
EntryParam: TRasEntry;
dParam : TRasDialParams;
begin
FillChar(dParam, SizeOf(TRasDialParams), 0);
dwEntryInfoSize := SizeOf(TRasEntry);
dwDeviceInfoSize := 0;
with dParam do
  begin
  dwSize := SizeOf(TRasDialParams);
  StrPCopy(szEntryName, 'MTU');
  end;

R := RasGetEntryDialParams(nil, dParam, Fp);

EntryParam.dwSize := SizeOf(TRasEntry);
RasGetEntryPropertiesA(nil, dParam.szEntryName, @EntryParam, dwEntryInfoSize, nil, dwDeviceInfoSize);

if R = 0 then
  begin
  Edit2.Text := dParam.szUserName;
  Edit3.Text := dParam.szPassword;
  Edit4.Text := dParam.szPhoneNumber;
  end;
end;

В соединении "MTU" несколько телефонов, так вот у меня ниодного не показывается в Edit4.Text

Автор: Stolzen 19.12.2005, 09:07

Посмотри компонент http://forum.vingrad.ru/index.php?act=Attach&type=post&id=593264.

Там есть демка, где все описано