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

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

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

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com