//窗体  
object Form1: TForm1  
  Left = 192  
  Top = 107  
  Width = 442  
  Height = 246  
  Caption = ''Form1''  
  Color = clBtnFace  
  Font.Charset = DEFAULT_CHARSET  
  Font.Color = clWindowText  
  Font.Height = -11  
  Font.Name = ''MS Sans Serif''  
  Font.Style =   
  OldCreateOrder = False  
  PixelsPerInch = 96  
  TextHeight = 13  
  object Label1: TLabel  
    Left = 216  
    Top = 40  
    Width = 32  
    Height = 13  
    Caption = ''Label1''  
  end  
  object Button1: TButton  
    Left = 32  
    Top = 16  
    Width = 75  
    Height = 25  
    Caption = ''Button1''  
    TabOrder = 0  
    OnClick = Button1Click  
  end  
  object Button2: TButton  
    Left = 48  
    Top = 104  
    Width = 75  
    Height = 25  
    Caption = ''Button2''  
    TabOrder = 1  
    OnClick = Button2Click  
  end  
  object cs: TClientSocket  
    Active = False  
    Address = ''202.99.0.172''  
    ClientType = ctNonBlocking  
    Port = 1433  
    Left = 32  
    Top = 48  
  end  
  object Timer1: TTimer  
    Interval = 5000  
    OnTimer = Timer1Timer  
    Left = 80  
    Top = 48  
  end  
end  


////////////代码  
unit Unit1;  

interface  

uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  StdCtrls, ScktComp, ExtCtrls;  

const  
  SERVICE_STOPPED=1; // Stopped  
  SERVICE_START_PENDING=2; // Starting  
  SERVICE_STOP_PENDING=3; // Stopping  
  SERVICE_RUNNING=4; // Running  
  SERVICE_CONTINUE_PENDING=5; //