Buscar

Executando uma chamada para a conexão dial-up

Código

{Executando uma chamada para a Conexão Dial-Up

Insira um objeto do tipo Button definindo sua propriedade name para Button1.}


implementation
uses Registry;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
Conexao, Executa, Conecta : string;
Dialup : Pchar;
reg : TRegIniFile;
begin
  reg := TRegIniFile.create('RemoteAccess');
  Conexao := reg.ReadString('','Default','');
  reg.free;
  Executa:='rundll32.exe rnaui.dll,RnaDial '; {executável e biblioteca do windows}
  Conecta:=Executa+Conexao; {concatena comando e nome da conexão}
  Dialup:=Pchar(Conecta); {transforma string em caractere para ser aceita pela função}
  winexec(Dialup,sw_show);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Rede
Adicionada dia: 20/06/03
Por: Felipe Monteiro
Visualizada: 2197 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009