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;
Názor k článku
Přinášíme vám účet, ze kterého se posadíte na zadek (2.)
Mirek (neregistrovaný)
17. 6. 2004 6:15
Jak jednoduse obejit ochranu pred prepojenim v OADial ...
celé vlákno
Tiskni