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;

TITRE
TITRE

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.56 MB
Ora: 0.026 c
1-22244
Socol
2001-12-15 15:42
2002.01.08
Scarica il file!


4-22493
mangoost
2001-11-05 12:06
2002.01.08
Come evitare una violazione di accesso mentre si tenta di scrivere (+)


14-22358
spesso
2001-11-07 19:08
2002.01.08
Dov'è hosting frisny SMALL ma HIGH-SPEED?


3-21972
wetnose
2001-12-06 08:30
2002.01.08
FIB + + generatori


1-22103
ProfiUgl
2001-12-19 17:15
2002.01.08
Forma di evento





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ù
Inglese Francese tedesco italiano portoghese russo spagnolo