Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Obtener el tipo de conexión a Internet - LAN, Proxy, Modem - Delphi
Lenguaje de programación Borland Delphi



Función en Delphi que muestra el tipo de conexión a Internet (LAN, Proxy, Modem):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, WinInet, shellapi;

type
  TformEstadoConexion = class(TForm)
    bEstado: TButton;
    lEstado: TLabel;
    LWEB: TLabel;
    procedure bEstadoClick(Sender: TObject);
    procedure LWEBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formEstadoConexion: TformEstadoConexion;

implementation

{$R *.DFM}

procedure TformEstadoConexion.bEstadoClick(Sender: TObject);
var
  estado : DWord;
  Resultado : Boolean;
const
  Tipo1 = INTERNET_CONNECTION_MODEM;
  Tipo2 = INTERNET_CONNECTION_LAN;
  Tipo3 = INTERNET_CONNECTION_PROXY;
  Tipo4 = INTERNET_CONNECTION_MODEM_BUSY;
begin
  Resultado := InternetGetConnectedState(@estado, 0);
  if Resultado then
  begin
    if (estado and Tipo1) = Tipo1 then
      lEstado.Caption := 'Tipo de conexión: Modem';
    if (estado and Tipo2) = Tipo2 then
      lEstado.Caption := 'Tipo de conexión: LAN';
    if (estado and Tipo3) = Tipo3 then
      lEstado.Caption := 'Tipo de conexión: Proxy';
    if (estado and Tipo4) = Tipo4 then
      lEstado.Caption := 'Modem ocupado';
  end;
end;

procedure TformEstadoConexion.LWEBClick(Sender: TObject);
begin
  ShellExecute(Handle, Nil, PChar(LWEB.CAPTION),
      Nil, Nil, SW_SHOWNORMAL);
end;

end.




Publicado el: 2006-03-05

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+