Exceptions-Boxen ausschalten

[Luckie]

Und warum macht der Service weiter, wenn er den Server nicht findet?

Delphi-Quellcode:

while Running do
begin
  ServerGefunden := ServerPingen();
  if ServerGefunden then
    MachWas();
  else
    ServerPingen;
end;