اضهار الفورم حسب اتصالك بالنت

[hadji.samir]

السلام عليكم

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

وشكرا

[Agmcz]

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

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;