БОЛЬШОЙ FAQ ПО DELPHI



Установить соединение с Интернет

Стал старик кликать золотую рыбку и не открылась ему страница, видно линия была перегружена.


 unit Unit1;
 
 { This unit shows how you can establish a connection to the internet without any
   user interaction.}
 
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;
 
 type
   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     edtEntry: TEdit;  // holds the name of the connection, e.g. 'bluewin' 
     edtUser: TEdit;   // the username for the above connection 
     edtPass: TEdit;   // and the password 
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 uses shellapi;
 {$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   cmd, par, fil, dir: PChar;
 begin
   // establish the connection 
   // die Verbindung aufbauen 
   // rasdial.exe entryname username password 
   cmd := 'open';
   fil := 'rasdial.exe';
   par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text);
   dir := 'C:';
   // call rasdial.exe with Shellexecute 
   // rasdial mit Shellexecute aufrufen 
   ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
 end;
 
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
   cmd, par, fil, dir: PChar;
 begin
   // disconnect the connection to the Internet 
   // Verbindung zum Internet abbrechen 
   cmd := 'open';
   fil := 'rasdial.exe';
   par := PChar(edtEntry.Text + ' /DISCONNECT');
   dir := 'C:';
   ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
 end;
 end.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ