Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "WinAPI";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

¿Cómo sé que la conexión está establecida? Encontrar ramas similares


Wic   (2001-10-29 18:54) [0]

¿Cómo interceptar un mensaje de un marcador estándar de Windows que establece una conexión (acceso remoto)?



Dabus   (2001-11-04 20:51) [1]

Hay una clave en el registro que indica la presencia de una conexión de acceso telefónico.

var
i_connected: byte;
r0: TRegistry;

...Venta de Casas y Condominios en Calgary. Fernando Aramburu agente inmobiliario
...Venta de Casas y Condominios en Calgary. Fernando Aramburu agente inmobiliario

r0: = TRegistry.Create;
r0.RootKey: = HKEY_LOCAL_MACHINE;
r0.OpenKey ("Sistema \ CurrentControlSet \ Services \ RemoteAccess", Falso);
r0.ReadBinaryData ("Conexión remota", i_connected, SizeOf (i_connected));
r0.Free;
// i_connected = 0 sin conexión / = 1 hay una conexión

Éxito.



ASTARD   (2001-11-04 22:24) [2]

¡Aún puedes verlo aquí en FAK!



Skiv   (2001-11-05 09:51) [3]

Funciona exactamente Solo refinado (i_connected: integer)
de lo contrario se bloquea con un error.



Oleg1   (2001-11-07 07:53) [4]

unidad Unit1;

interfaz.

usos
Windows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Diálogos, StdCtrls; {Banderas para InternetGetConnectedState}
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
función InternetGetConnectedState (lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall; nombre externo de winetdll "InternetGetConnectedState";
tipo
TForm1 = clase (TForm)
Button1: TButton;
procedimiento Button1Click (Sender: TObject);

privada
{Declaraciones privadas}
público
{Declaraciones públicas}
fin;

var
Form1: TForm1;

implementación

{$ R * .DFM}




función conectada a Internet: booleano;
var
dwConnectionTypes: DWORD;
// Resultado: boolean;
comenzar
dwConnectionTypes: = INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Resultado: = InternetGetConnectedState (@dwConnectionTypes, 0);

fin;

procedimiento TForm1.Button1Click (Sender: TObject);
comenzar
si InternetConnected = true, showmessage ("Hay una conexión"), si no showmessage ("No hay conexión");
fin;

fin.



Páginas: 1 rama entera

Foro: "WinAPI";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.022 c
1-22101
DenKop
2001-12-18 14:38
2002.01.08
Creando ayuda s


1-22219
dimonf
2001-12-16 17:23
2002.01.08
Cómo hacer un lienzo dibujado cuando una ventana pasa con una ventana


4-22504
Besa
2001-09-11 11:11
2002.01.08
WinExec neponyatka


1-22143
[NWC] Eminem
2001-12-20 12:04
2002.01.08
.dcu


4-22499
Yus
2001-10-31 20:51
2002.01.08
FindWindow





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español