Danke für die schnelle Hlfe, jetzt geht´s. Mir haben wirklich die Rechte gefehlt
Bleibt nur noch die Frage mit dem Abfragen des Lan-Status. Vielleicht weiß da ja auch irgend jemand Rat
Gruß, banick
Edit:
Hab´s selber gefunden:
http://www.delphipraxis.net/internal...ect.php?t=6541
Also langsam fang ich an an mir zu zweifeln:
ich hab den Quellcode einfach übernommen. Aber dann sagt der mir das die Verbindung immer besteht. Etwas kürzer gefasst lautet die Funktion ja:
Delphi-Quellcode:
function Lanstatus: Boolean;
begin
Result := (GetSystemMetrics(SM_NETWORK)and $01) = $01;
end;
aber was heißt/bedeutet $01?? Ich kann dafür auch z.B. §02 schreiben, völlig egal, er bringt immer true.Ich hab mir überlegt, das ich doch eigentlich das §01 auf der linken Seite auch weglassen könnte, weil $01 müsste ja logischer weiße gleich $01 sein (oder??). Aber ohne das and $01 bringt er dann immer false. WARUM???
Hier noch mal der kurze Quellcode:
Delphi-Quellcode:
function Lanstatus: Boolean;
begin
Result := (GetSystemMetrics(SM_NETWORK)and $02) = $02;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Lanstatus=false then Edit1.Text:='keine Verbindung';
if Lanstatus=true then Edit1.Text:='Verbindung besteht';
end;
Bin auch über eine direte Hilfe per ICQ oder MSN glücklich:
banick@live.de
221528661