überprüfen ob ein netzwerk vorhanden ist

[markus lemcke]

hallo,

wie kann ich mit delphi überprüfen ob ein rechner am netzwerk hängt?

mfg

markus

[Günter Portisch]

procedure TForm1.Button1Click(Sender: TObject);
begin
Versuch es mal damit! <br>
Habe ich bei Tips und Tricks bei www.swissdelphicenter.ch gefunden! <br>
<p>

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then <br>
ShowMessage('Computer is attached to a network!') <br>
else <br>
ShowMessage('Computer is not attached to a network!'); <br>
end; <br>
<p>
Gruß Günte

[Günter Portisch]

Korrektur - das ganze ist ein wenig durcheinander geraten! <p>

Versuch es mal damit! <br>
Habe ich bei Tips und Tricks bei www.swissdelphicenter.ch gefunden! <br>
<p>
procedure TForm1.Button1Click(Sender: TObject); <br>
begin <br>
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then <br>
ShowMessage('Computer is attached to a network!') <br>
else <br>
ShowMessage('Computer is not attached to a network!'); <br>
end; <br>
<p>
Melde Dich bitte wenns funktioniert hat!
<p>

Gruß Günte

[markus lemcke]

danke!! mache ich!!!

mfg

marku

[markus lemcke]

hi!!!!!!

das ist ja ne superdelphi-seite!!!!!!!<br>
ich kannte sie zwar, weil die einen banner von mir wollen,<br>
habe aber nie so gründlich reingeschaut!!!<br>
da kann ic einiges für meinen dateiverwalter rausholen!!<br>

mfg

marku

[markus lemcke]

ne funzt nicht!!!!!!!!!!!!

daheim........ moment...... ich mache nochmal ein test!!

mfg

marku

[markus lemcke]

ne tut nicht!!!!!!!!!

daheim habe ich kein netzwerk und er sagt ich habe eines!!

sorry!!!!!!

mfg

marku