Ist der PC im Netzwerk eingeschaltet ??

[Omi]

Delphi-Quellcode:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
    if AReplyStatus.ReplyStatusType = rsEcho then Online := true;
    if AreplyStatus.ReplyStatusType <> rsEcho then Online := false;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
      idIcmpClient1.Host := '192.168.0.99'; {DIE IP DES PCs}
      idIcmpClient1.Ping;
        if Online = true then Status.Text := 'Der PC ist eingeschaltet' ;
        if Online = false then Status.Text := 'Der PC ist ausgeschaltet';
end;