casa
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Come faccio a sapere che la connessione è stabilita? Trova rami simili


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

Come intercettare un messaggio dialer standard di Windows che stabilisce una connessione (accesso remoto)?



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

C'è una chiave nel registro, indica la presenza di una connessione Dial-Up.

var:
i_connected: byte;
r0: TRegistry;

...
...

r0: = TRegistry.Create;
r0.RootKey: = HKEY_LOCAL_MACHINE;
r0.OpenKey ("Sistema \ CurrentControlSet \ Services \ RemoteAccess", False);
r0.ReadBinaryData ("Connessione remota", i_connected, SizeOf (i_connected));
r0.Free;
// i_connected = 0 nessuna connessione / = 1 c'è una connessione

Successo.



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

Puoi anche guardare qui in FAK!



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

Funziona esattamente. Solo con chiarimenti (i_connected: intero)
in caso contrario si blocca con un errore.



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

unità Unit1;

interfaccia

usa
Windows, Messaggi, SysUtils, Classi, Grafica, Controlli, Forms, Dialogs, StdCtrls; {Flags for InternetGetConnectedState}
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
funzione InternetGetConnectedState (lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall; nome winetdll esterno "InternetGetConnectedState";
Digitare
TForm1 = class (TForm)
Button1: TButton;
procedura Button1Click (Sender: TObject);

privato
{Dichiarazioni private}
pubblico
{Dichiarazioni pubbliche}
fine;

var
Form1: TForm1;

implementazione

{$ R * .DFM}




funzione InternetConnected: Boolean;
var
dwConnectionTypes: DWORD;
// Risultato: booleano;
iniziare
dwConnectionTypes: = INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Risultato: = InternetGetConnectedState (@dwConnectionTypes, 0);

fine;

procedura TForm1.Button1Click (Sender: TObject);
iniziare
se InternetConnected = true then showmessage ("There is a connection") else showmessage ("Nessuna connessione");
fine;

fine.



Pagine: 1 tutto il ramo

Forum: "WinAPI";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.82 MB
Ora: 0.035 c
6-22288
atmosferico
2001-10-09 23:49
2002.01.08
WinGate


1-22261
bk
2001-12-17 15:42
2002.01.08
Excel


1-22131
Katia
2001-12-20 08:27
2002.01.08
Ho davvero bisogno


1-22021
Socol
2001-12-18 08:54
2002.01.08
Scarica il file!


1-22015
cacciatore
2001-12-17 13:17
2002.01.08
Immagine per stampante





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo