Tut mir wirklich leid, dass ich mich nochmal melden muss, aber es funktioniert bei mir nicht (Delphi 3 Professionel)
Das ist mein Code und ich kann nicht kompilieren:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, WinInet;
type
TForm1 =
class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function IsInternetConnected: Boolean;
begin
if InternetGetConnectedState(
nil, 0)
then
begin
Result := True;
end
else
begin
Result := False;
end;
end;
end.
Wo ist der Fehler? Vielen Dank für eure Geduld
[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]