Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Stav síť. připojení (Delphi)

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 :.(

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny