[Amin_Mansouri]

This small function will tell you if you are currently connected to the internet or not. Note: You MUST add 'wininet' to the 'USES' clause of your application in order for this to work!

با سورس زیر میتوید بفهمید ایا شما به اینترنت اتصال دارید یا نه؟

کد:

function IsUserOnline:boolean;
var
connect_status:dword;
begin
connect_status := 2 {user uses a lan}    +
                   1 {user uses a modem.} +
                   4 {user uses a .......}  ;
result := InternetGetConnectedState(@connect_status,0);
end;

{----------example-----------}

  if IsUserOnline = true then
   ShowMessage('User is connected!')
  else ShowMessage('User is not connected!');