|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
8. Jun 2002, 13:21
Moin DeCodeGuru,
probier's mal so
Code:
const
_asConnectionState : array [Boolean] of string = ('OFFLINE','ONLINE');
INTERNET_CONNECTION_OFFLINE = $20;
var
dwResult : DWord;
begin
InternetGetConnectedState(@dwResult,0);
ShowMessage(_asConnectionState[(dwResult and INTERNET_CONNECTION_OFFLINE) = 0]);
end;
[/code]
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|