Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
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
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>
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>
Comment