Проверка Radmin

[foxes]

подскажите, как можно определить включен сервер радмина или нет, сделал так не видит

begin
       ClientSocket1.Active:=true; //Коннектимся
      if ClientSocket1.Socket.Connected=true then
begin //Если подключились то
    memo1.lines.add('Соединение установленно...'); //пишим в memo
   end else //в противном случае пишим это
    memo1.lines.add('Соединение неустановленно...'); //<--вот это :)

end;

[Stilet]

А почему именно программно? Почему на самим Вьювером РАдмина проверять?

[foxes]

Сообщение от Stilet

А почему именно программно? Почему на самим Вьювером РАдмина проверять?

Мы с друзьями пользуемся этой программой, хотел бы сделать как когда кто то из них включил программу, у меня выскочила сообщение что он в сети .(как в icq)