Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Rasdial exe kullanarak internet bağlantısı kurmak ve kesmek

procedure Form1.Baglan(Entry, User, Pass:string); begin ShellExecute(Self.Handle, 'open', 'rasdial.exe', PChar(Entry + ' ' + User + ' ' + Pass), 'C:', SW_SHOWMINNOACTIVE); end; procedure Form1.Kes(Entry:string); begin ShellExecute(Self.Handle, 'open', 'rasdial.exe', PChar(Entry + ' /DISCONNECT'), 'C:', SW_SHOWMINNOACTIVE); end; Entry = bağlantı adı User = kullanıcı adı Pass = parola Örnek : Baglan('E-Kol', 'birisi', 'elma23'); Kes('E-Kol');