Besteht eine Internetverbindung?

[Darty]

Hi,

hier mein Code, auch wenn der ähnlich wie die von Christian Seehase ist. Ich konnte mein Freund nicht erreichen, aber er hat auch einen Router und ich vermute bei ihm hatte es geklappt ..

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  dwResult : cardinal;
begin
  dwResult := 0;
  if internetgetconnectedstate(@dwResult,0) = FALSE then
    begin
      ShowMessage('Keine Verbindung');
    end
  else
    begin
      ShowMessage('Verbindung vorhanden');
    end
end;

Und in Uses muss noch WININET eingefügt werden.