Schnelle Prüfung, ob Computer im Netzwerk erreichbar ist.

[Akut-Programming]

Dann will ich auch mal was dazugeben.. hier is mal n Code aus ner Anwendung von mir, in der ich auch pingen wollte.. - Ich verwende die Indy-Kompo "IdIcmpClient"

Delphi-Quellcode:

procedure Tfrm_main.Label7Click(Sender: TObject);
var i: integer;
begin
     if edIpAdr.Text<>''
     then begin
          memLogFile.Lines.Add('Pingstatus ('+DateTimeToStr(Now)+')');
          if edAnzahl1.Text<>''
          then begin
               PageControl1.Enabled:=false;
               for i:=0 to StrToInt(edAnzahl1.Text)
               do begin
                  IdIcmpClient1.Host:=edIpAdr.Text;
                  IdIcmpClient1.Ping();
               end;
               PageControl1.Enabled:=true;
          end
          else if edAnzahl2.Text=''
          then begin
               IdIcmpClient1.Host:=edIpAdr.Text;
               IdIcmpClient1.Ping();
          end;
          memLogFile.Lines.Add('');
          edIpAdr.Clear;
     end else Application.MessageBox('Please insert a IP Adress to ping', 'Failure', MB_OK+MB_ICONSTOP);
end;

Vielleicht kannst du´s ja für deine Bedürfnisse anpassen.

Sascha