Funkcja sprawdzajaca polaczenie z siecia blad :/

0

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;

0

No OK funkcja dziala ale sprawdz jak funkcja sie zachowuje gdy wezmiesz w komentarze cala zmienna "Flags" wraz z jej wartosciami funkcja nadal bedzie zwracac wartosc "True" :-/ a poza tym dlaczego nie moge dorzucic do zmiennej Flags wartosci "INTERNET_CONNECTION_OFFLINE " lub "INTERNET_CONNECTION_CONFIGURED" tak jak na stronce microsoftu [???]

1 użytkowników online, w tym zalogowanych: 0, gości: 1