Hm,žádná chytrá hlava
Nevím jak ostatní systémy ale ve W8 tohle nefunguje.
procedure TForm1.Timer1Timer(Sender: TObject);
var
Flag : word;
begin
Label1.Caption := IntToStr(Flag and INTERNET_CONNECTION_LAN)
End;
Furt 0
Hm,žádná chytrá hlava
Nevím jak ostatní systémy ale ve W8 tohle nefunguje.
procedure TForm1.Timer1Timer(Sender: TObject);
var
Flag : word;
begin
Label1.Caption := IntToStr(Flag and INTERNET_CONNECTION_LAN)
End;
Furt 0