Stav síť. připojení (Delphi)
Zdravím
Kdysi ve Win XP byli v tray ty nádherné ikony, které ukazovali stav připojení,jak lan tak i wifi síťovky.
V dalších verzích Winu to už mrkvosovt posral a slátal je dohromady.
Da se něco takového udělat v delphi.
Nemusí to byt v tray.
Na ploše 2 x malý form,v každé by se pomocí ikon ukazoval stav těch síťovek.
Da se nějak zjistit stav těch síťovek?
Vypnuta – zapnuta – načita IP
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
Dik.
To už jsem také rozchodil.
Dá se udělat něco takového na co se ptám na začátku?
Takto si třeba do ComboBoxu vypíšu sit.adaprery.
Umím pak vyčíst MAC, IP,masku,branu,dns atd
Dá se udělat něco takového na co se ptám na začátku.
Hlavně mně zajikna jak zjistím že adaprer zrovna nečita IP.
Ono se dá načíst IP adresa s těch adaptéru a nezáleží zda je do sit.zasunut kabl nebo je zakázaná.
Takže stačí vytáhnout IP s lan a wifi a pingat si na ně.
Tak se da poznat přes kterou jedu.