Como Listar todas as Conexão dialup do computador?
Olá Amigos do Forum .
Tudo Ok ?
É o seguinte ! To precisando criar um form com um button , e um listview ou treeview , sei lá , algo do tipo , que liste todas as conexões Dial Up que estão istaladas no PC , aí o usuário do meu sistema , seleciona uma delas , clica no botão e começa a conectar .
Se alguem souber como faz isso , poderia me explica passo - a -passo , pois sou iniciante !!!!!
:wink: Valeu Galera !
Tudo Ok ?
É o seguinte ! To precisando criar um form com um button , e um listview ou treeview , sei lá , algo do tipo , que liste todas as conexões Dial Up que estão istaladas no PC , aí o usuário do meu sistema , seleciona uma delas , clica no botão e começa a conectar .
Se alguem souber como faz isso , poderia me explica passo - a -passo , pois sou iniciante !!!!!
:wink: Valeu Galera !
Tiagojmilam
Curtidas 0
Respostas
Marcelino
05/07/2004
Prezado Tiago,
Insira uma combobox e um button em uma Form. No evento OnClick do button , insira o codigo abaixo :
Vc deve incluir a unit Registry, na clausula Uses, abaixo da linha Interface
procedure TForm1.BitBtn1Click(Sender: TObject);
var Registry:TRegistry;
begin
Registry:=TRegistry.Create;
ComboBox1.Items.Clear;
try
Registry.Rootkey := HKEY_CURRENT_USER;
Registry.OpenKey(´RemoteAccess\Addresses´,false);
Registry.GetValueNames(ComboBox1.Items);
if ComboBox1.Items.Count=0 then
begin
ShowMessage(´Não existe conexão para Internet configurada neste computador.´);
ComboBox1.Items[0]:=´Conexão Internet inexistente´;
end
else
ComboBox1.ItemIndex := 0; // Posiciona na primeira conexao localizada
Registry.CloseKey;
finally
Registry.Free;
end;
end;
Rode a aplicação...
[]s
Insira uma combobox e um button em uma Form. No evento OnClick do button , insira o codigo abaixo :
Vc deve incluir a unit Registry, na clausula Uses, abaixo da linha Interface
procedure TForm1.BitBtn1Click(Sender: TObject);
var Registry:TRegistry;
begin
Registry:=TRegistry.Create;
ComboBox1.Items.Clear;
try
Registry.Rootkey := HKEY_CURRENT_USER;
Registry.OpenKey(´RemoteAccess\Addresses´,false);
Registry.GetValueNames(ComboBox1.Items);
if ComboBox1.Items.Count=0 then
begin
ShowMessage(´Não existe conexão para Internet configurada neste computador.´);
ComboBox1.Items[0]:=´Conexão Internet inexistente´;
end
else
ComboBox1.ItemIndex := 0; // Posiciona na primeira conexao localizada
Registry.CloseKey;
finally
Registry.Free;
end;
end;
Rode a aplicação...
[]s
GOSTEI 0