FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Saber si esta conectado
Wenas, tengo un problemilla y es que no se como se puede saber si un ordenador esta conectado o no a internet. Muchas gracias.
|
#2
|
||||
|
||||
Truco 448 de TRUCOMANIA:
SABER SI ESTAMOS CONECTADOS A INTERNET procedure TForm1.Button1Click(Sender: TObject); function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean; { Devuelve true si la funcion _funcname esta disponible en la DLL _dllname. Si es asi, almacena en _p la direccion de la función. } var _lib: tHandle; begin Result := false; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(PChar(_dllname)); if _lib <> 0 then begin _p := GetProcAddress(_lib, PChar(_funcname)); if _p <> nil then Result := true; end; end; { En la ayuda de M$ pone que la funcion se encuentra en SHELL32.DLL, pero en mi Windowz98 no esta en esa DLL pero si en URL.DLL. Desconozco como ira en otros sistemas Windows. } var InetIsOffline : function(dwFlags: DWORD): BOOL; stdcall; begin { Ojo: 'InetIsOffline' debe de estar escrito con estas mayusculas y minusculas.} if FuncAvail('URL.DLL', 'InetIsOffline', @InetIsOffline) = true then if InetIsOffLine(0) = true then ShowMessage('No estas conectado') else ShowMessage('Estas conectado!'); end;
__________________
Saludos, Peter Investment |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|