Frage zu IsConnectedToInternet, Speicher freigeben?

**Hallo_Thomas**

Hallo,
ich verwende folgenden Code, der klappt auch wunderbar. Nur ist nach der Abfrage die Datei ca 1MB grösser, wie kann ich den Speicher wieder freigeben?

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  WinInet;

{...}

function IsConnectedToInternet: Boolean;

var

  dwConnectionTypes: DWORD;

begin

  dwConnectionTypes :=

    INTERNET_CONNECTION_MODEM +

    INTERNET_CONNECTION_LAN +

    INTERNET_CONNECTION_PROXY;

  Result := InternetGetConnectedState(@dwConnectionTypes, 0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if IsConnectedToInternet then

    ShowMessage('Connected.')

  else

    ShowMessage('Not Connected.')

end;

Frage zu IsConnectedToInternet, Speicher freigeben?

Frage zu IsConnectedToInternet, Speicher freigeben?

Forumregeln