Zrobilem ponizsza funkcje ktora ma sprawdzac czy jest polaczenie z siecia wedlug wskazowek z
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/wininet_functions.asp
ale mam blad wyrzuca mi pogrubionej linijce blad ze [Error] Unit1.pas(150): Incompatible types: 'Integer' and 'PDWORD' czy ktos mogl by "rzucic okiem" i powidziec co tu poknocilem :-/
function TForm1.Connected: Boolean;
var
lpdwFlags : LPDWORD;
dwReserved: DWORD;
begin
dwReserved:=0;
lpdwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
Result := InternetGetConnectedState(@lpdwFlags,dwReserved);
end;