unit1.dfm

DELPHI 系统服务源码OpenService,OpenSCManager,QueryServiceStatus,CloseServiceHandle

object Form1: TForm1
  Left = 201
  Top = 148
  Width = 740
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 0
    Top = 45
    Width = 732
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Button1: TButton
    Left = 8
    Top = 16
    Width = 97
    Height = 25
    Caption = #21015#20030#31995#32479#26381#21153
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 48
    Width = 732
    Height = 405
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 1
    object LView1: TListView
      Left = 1
      Top = 1
      Width = 730
      Height = 403
      Align = alClient
      Columns = <
        item
          Caption = #24207#21495
        end
        item
          Alignment = taCenter
          Caption = #26381#21153#21517
          Width = 100
        end
        item
          Alignment = taCenter
          Caption = #25551#36848
          Width = 400
        end
        item
          Alignment = taCenter
          Caption = #21551#21160#31867#22411
          Width = 100
        end
        item
          Alignment = taCenter
          Caption = #29366#24577
          Width = 100
        end>
      GridLines = True
      RowSelect = True
      PopupMenu = PopupMenu1
      SortType = stBoth
      TabOrder = 0
      ViewStyle = vsReport
      OnColumnClick = LView1ColumnClick
      OnCompare = LView1Compare
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 184
    Top = 8
    object N1: TMenuItem
      Caption = #20572#27490
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21551#21160
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #35774#32622#21551#21160#31867#22411
      object N4: TMenuItem
        Caption = #33258#21160
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #25163#21160
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #31105#27490
        OnClick = N6Click
      end
    end
  end
end