Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Contato por Skype

Skype

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Delphi - Comunicação e Internet

Como abrir uma conexão dial-up?

Banner
Inclua na seção uses: Windows
{ A função abaixo abre a caixa de diálogo de conexão 
  com a rede Dial-Up. O parâmetro "name" é o nome da
  conexão previamente configurada.
}

procedure DialUpConnect(const Name: string);
begin
  WinExec(PChar('rundll32.exe rnaui.dll,RnaDial ' + Name), SW_SHOW);
end;

{ Exemplo de uso: }

procedure TForm1.Button1Click(Sender: TObject);
begin
  DialUpConnect('NomeDaConexão');
end;

O conteúdo desta página pode ajudar alguém? Compartilhe!