Показать сообщение отдельно
  #12  
Старый 16.05.2011, 11:46
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
uses UnitCheckServer;

procedure TForm1.Button100500Click(Sender: TObject);
begin
  if CheckServer('10.4.84.102', 27015) then
    ShowMessage('ok')
  else
    ShowMessage('err');
end;
Вложения
Тип файла: rar UnitCheckServer.rar (1.8 Кбайт, 35 просмотров)
__________________
Пишу программы за еду.
__________________
Ответить с цитированием