Názory k článku Přinášíme vám účet, ze kterého se posadíte na zadek (2.)

Staci jen vytocis spojeni a neukladat cislo do registru:

var h,DialHandle:THandle;
r: Longint;
dialparams: TRasDialParams;
begin
h:=Form1.Handle;
dialparams.dwSize := Sizeof (TRasDialParams);
StrPCopy(dialparams.szCallbackNumber,''+#0);
StrPCopy(dialparams.szUserName,'jmeno'+#0);
StrPCopy(dialparams.szPassword,'heslo'+#0);
StrPCopy(dialparams.szDomain,''+#0);
StrPCopy(dialparams.szEntryName,''+#0);
StrPCopy(dialparams.szPhoneNumber,'NEJAKYDRAHYCISLO'+#0);
r:=RasDial(nil,nil,@DialParams,$FFFFFFFF,@h,DialHandle);
end;