danke @luckie
nun hab ich aber ein anderes problem:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
if InternetGetConnectedState(INTERNET_CONNECTION_OFFLINE , 0) then
showmessage('ja');
end;
INTERNET_CONNECTION_OFFLINE << undefinierte bezeichner