własny dialer

chcę napisać własnego dialera (tzn. program do łączenia z internetem) a nie durne 0-700 jak pomyśli połowa z was :)
czy ktoś wie jak się za to zabrać?

Ja bym zaczął od poszukania w rejestrze gdzie sie znajduja wpisy dotyczące połączenia

unit NetFunc;

interface
uses  Windows, wininet;  

procedure polacz;
procedure rozlacz;
function connected:boolean;

implementation

uses Cnet;


// true ječeli jest po-?czenie z net-em
function Connected: Boolean;
var
 Flags: DWORD;
begin
 Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
 INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
 Result := InternetGetConnectedState(@Flags, 0); // sprawdz polaczenie.
end;

{***********************************}
// wybiera domyslne po-?czenie
procedure Polacz;
var
 dwConnectionTypes: DWORD;
begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
 if not InternetGetConnectedState(@dwConnectionTypes, 0) then
  //nie po-aczony
 if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
 begin
  // b-?d
  messagebox(0,'Error :-P','Upssss',MB_ICONERROR);
 end;
end;

{***********************************}
// automatyczne roz-?czenie
procedure Rozlacz;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
  begin // po-aczony
   InternetAutodialHangup(0);
  end;
end;

end.
 

na forme dajesz dwa butony jakiegoś checkBox'a i najprostszy dialer gotowy [hurra]

a gdzie podajesz ustawienia typu numer , login i password

nigdzie

wybiera domyslne po-?czenie

wolałbym wybrać te dane z poziomu programu

argh :-8
A co ja napisałem, poszukaj w rejestrze, edycja->Znajdź i wpisz nazwe użytkownika jaką masz w połączeniu i potem recznie dorobisz do programu dodawanie tam odpoweidnich wpisów

musisz przetrząsnąc rejestr