delphi4arab منتديات دلفي للعرب

السلام عليكم

ممكن كود لمعرفة هل هناك اتصال بالنت اة لا يعني مثلا اذا كان هناك اتصال اضهر هذه الفورم وان لم يكن هناك اتصال showmessage .......

وشكرا

وعليكم السلام

PHP كود :
function InternetConnected: Boolean;
const
  INTERNET_CONNECTION_MODEM = 1;
  INTERNET_CONNECTION_LAN = 2;
  INTERNET_CONNECTION_PROXY = 4;
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

begin
  if InternetConnected then
  begin
    ShowMessage('Connected')
  end else
  begin
    ShowMessage('Not connected');
  end;
end; 

مع اضافة الوحدة

كود :
uses WinInet;

hadji.samir

Agmcz