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');