Pobieranie numeru dostępowego w Delphi

Witam!

Odkryłem już w jaki sposób pobiera się numer dostępowy do Internetu. Postanowiłem więc podzielić się z Wami tą więdzą. Poniżej opisuje dokładnie co trzeba zrobić:

1. Wejdź na http://torry.net i znajdź tam komponent RasManager. Pobierz go!

2. Zainstaluj go sobie (instaluje się bez żadnych problemów) i dodaj go na formę (nazwij go RasManager).

3. Dodaj również na formę komponent TButton i TLabel. Przycisk nazwij btnGetPhoneNumber, a etykietę lblPhoneNumber.

4. W zdarzeniu OnClick komponentu btnGetPhoneNumber wpisz:

procedure TForm1.btnGetPhoneNumberClick(Sender : TObject);
begin
  lblPhoneNumber.Caption := IntToStr(RasManager.PhoneNumber);
end;

To wszystko!