276 lines
6.6 KiB
Plaintext
276 lines
6.6 KiB
Plaintext
|
object frmMain: TfrmMain
|
||
|
|
Left = 271
|
||
|
|
Top = 251
|
||
|
|
Width = 640
|
||
|
|
Height = 480
|
||
|
|
Caption = 'NT Service Control Demo'
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
Menu = mnuMain
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poDesktopCenter
|
||
|
|
OnCreate = FormCreate
|
||
|
|
OnDestroy = FormDestroy
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object lstSvc: TListView
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 632
|
||
|
|
Height = 415
|
||
|
|
Align = alClient
|
||
|
|
Columns = <
|
||
|
|
item
|
||
|
|
Caption = 'Service Name'
|
||
|
|
Width = 80
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Caption = 'Display Name'
|
||
|
|
Width = 300
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Caption = 'State'
|
||
|
|
Width = 64
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Caption = 'Start Type'
|
||
|
|
Width = 80
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Caption = 'Err Ctrl Type'
|
||
|
|
Width = 80
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Caption = 'Exit Code'
|
||
|
|
Width = 60
|
||
|
|
end
|
||
|
|
item
|
||
|
|
AutoSize = True
|
||
|
|
Caption = 'Description'
|
||
|
|
WidthType = (
|
||
|
|
-12)
|
||
|
|
end
|
||
|
|
item
|
||
|
|
AutoSize = True
|
||
|
|
Caption = 'File Name'
|
||
|
|
WidthType = (
|
||
|
|
-12)
|
||
|
|
end
|
||
|
|
item
|
||
|
|
AutoSize = True
|
||
|
|
Caption = 'Group'
|
||
|
|
WidthType = (
|
||
|
|
-12)
|
||
|
|
end>
|
||
|
|
GridLines = True
|
||
|
|
HideSelection = False
|
||
|
|
HotTrack = True
|
||
|
|
HotTrackStyles = [htHandPoint, htUnderlineHot]
|
||
|
|
OwnerData = True
|
||
|
|
ReadOnly = True
|
||
|
|
RowSelect = True
|
||
|
|
ParentShowHint = False
|
||
|
|
PopupMenu = mnuPopup
|
||
|
|
ShowHint = True
|
||
|
|
TabOrder = 0
|
||
|
|
ViewStyle = vsReport
|
||
|
|
OnColumnClick = lstSvcColumnClick
|
||
|
|
OnData = lstSvcData
|
||
|
|
end
|
||
|
|
object barStatus: TStatusBar
|
||
|
|
Left = 0
|
||
|
|
Top = 415
|
||
|
|
Width = 632
|
||
|
|
Height = 19
|
||
|
|
Panels = <>
|
||
|
|
SimplePanel = True
|
||
|
|
end
|
||
|
|
object lstActions: TActionList
|
||
|
|
Left = 24
|
||
|
|
Top = 40
|
||
|
|
object actViewRefresh: TAction
|
||
|
|
Category = 'View'
|
||
|
|
Caption = '&Refresh'
|
||
|
|
Hint = 'Refresh all'
|
||
|
|
ShortCut = 116
|
||
|
|
OnExecute = actViewRefreshExecute
|
||
|
|
end
|
||
|
|
object actFileConnect: TAction
|
||
|
|
Category = 'File'
|
||
|
|
Caption = '&Connect...'
|
||
|
|
Hint = 'Connect to computer'
|
||
|
|
ShortCut = 16462
|
||
|
|
OnExecute = actFileConnectExecute
|
||
|
|
end
|
||
|
|
object actFileExit: TAction
|
||
|
|
Category = 'File'
|
||
|
|
Caption = 'E&xit'
|
||
|
|
Hint = 'Exit the program'
|
||
|
|
ShortCut = 32883
|
||
|
|
OnExecute = actFileExitExecute
|
||
|
|
end
|
||
|
|
object actHelpAbout: TAction
|
||
|
|
Category = 'Help'
|
||
|
|
Caption = 'About'
|
||
|
|
Hint = 'About the program'
|
||
|
|
ShortCut = 112
|
||
|
|
OnExecute = actHelpAboutExecute
|
||
|
|
end
|
||
|
|
object actControlStart: TAction
|
||
|
|
Category = 'Control'
|
||
|
|
Caption = '&Start'
|
||
|
|
Hint = 'Start Service'
|
||
|
|
ShortCut = 16466
|
||
|
|
OnExecute = actControlStartExecute
|
||
|
|
OnUpdate = actControlStartUpdate
|
||
|
|
end
|
||
|
|
object actControlStop: TAction
|
||
|
|
Category = 'Control'
|
||
|
|
Caption = 'St&op'
|
||
|
|
Hint = 'Stop Service'
|
||
|
|
ShortCut = 16467
|
||
|
|
OnExecute = actControlStopExecute
|
||
|
|
OnUpdate = actControlStopUpdate
|
||
|
|
end
|
||
|
|
object actControlPause: TAction
|
||
|
|
Category = 'Control'
|
||
|
|
Caption = '&Pause'
|
||
|
|
Hint = 'Pause Service'
|
||
|
|
ShortCut = 16464
|
||
|
|
OnExecute = actControlPauseExecute
|
||
|
|
OnUpdate = actControlPauseUpdate
|
||
|
|
end
|
||
|
|
object actControlContinue: TAction
|
||
|
|
Category = 'Control'
|
||
|
|
Caption = '&Continue'
|
||
|
|
Hint = 'Continue Service'
|
||
|
|
ShortCut = 16468
|
||
|
|
OnExecute = actControlContinueExecute
|
||
|
|
OnUpdate = actControlContinueUpdate
|
||
|
|
end
|
||
|
|
object actViewDependent: TAction
|
||
|
|
Category = 'View'
|
||
|
|
Caption = '&Dependent'
|
||
|
|
Hint = 'View the service dependent'
|
||
|
|
ShortCut = 16452
|
||
|
|
OnExecute = actViewDependentExecute
|
||
|
|
OnUpdate = actViewDependentUpdate
|
||
|
|
end
|
||
|
|
object actViewGroups: TAction
|
||
|
|
Category = 'View'
|
||
|
|
Caption = 'Groups'
|
||
|
|
Hint = 'View the service groups'
|
||
|
|
ShortCut = 16455
|
||
|
|
OnExecute = actViewGroupsExecute
|
||
|
|
OnUpdate = actViewGroupsUpdate
|
||
|
|
end
|
||
|
|
object actControlDelete: TAction
|
||
|
|
Category = 'Control'
|
||
|
|
Caption = '&Delete'
|
||
|
|
Hint = 'Delete Service'
|
||
|
|
ShortCut = 16430
|
||
|
|
OnExecute = actControlDeleteExecute
|
||
|
|
OnUpdate = ActionItemSelected
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuPopup: TPopupMenu
|
||
|
|
Left = 136
|
||
|
|
Top = 40
|
||
|
|
object popControlStart: TMenuItem
|
||
|
|
Action = actControlStart
|
||
|
|
end
|
||
|
|
object popControlStop: TMenuItem
|
||
|
|
Action = actControlStop
|
||
|
|
end
|
||
|
|
object popControlPause: TMenuItem
|
||
|
|
Action = actControlPause
|
||
|
|
end
|
||
|
|
object popControlContinue: TMenuItem
|
||
|
|
Action = actControlContinue
|
||
|
|
end
|
||
|
|
object popLine0: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object popControlDelete: TMenuItem
|
||
|
|
Action = actControlDelete
|
||
|
|
end
|
||
|
|
object popLine1: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object popViewDependent: TMenuItem
|
||
|
|
Action = actViewDependent
|
||
|
|
end
|
||
|
|
object popViewGroups: TMenuItem
|
||
|
|
Action = actViewGroups
|
||
|
|
end
|
||
|
|
object popLine2: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object popViewRefresh: TMenuItem
|
||
|
|
Action = actViewRefresh
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuMain: TMainMenu
|
||
|
|
Left = 80
|
||
|
|
Top = 40
|
||
|
|
object mnuFile: TMenuItem
|
||
|
|
Caption = '&File'
|
||
|
|
object mnuFileConnect: TMenuItem
|
||
|
|
Action = actFileConnect
|
||
|
|
end
|
||
|
|
object mnuFileLine1: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object mnuFileExit: TMenuItem
|
||
|
|
Action = actFileExit
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuView: TMenuItem
|
||
|
|
Caption = '&View'
|
||
|
|
object mnuViewDependent: TMenuItem
|
||
|
|
Action = actViewDependent
|
||
|
|
end
|
||
|
|
object mnuViewGroups: TMenuItem
|
||
|
|
Action = actViewGroups
|
||
|
|
end
|
||
|
|
object mnuViewLine1: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object mnuViewRefreshStatus: TMenuItem
|
||
|
|
Action = actViewRefresh
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuControl: TMenuItem
|
||
|
|
Caption = '&Control'
|
||
|
|
object mnuControlStart: TMenuItem
|
||
|
|
Action = actControlStart
|
||
|
|
end
|
||
|
|
object mnuControlStop: TMenuItem
|
||
|
|
Action = actControlStop
|
||
|
|
end
|
||
|
|
object mnuControlPause: TMenuItem
|
||
|
|
Action = actControlPause
|
||
|
|
end
|
||
|
|
object mnuControlContinue: TMenuItem
|
||
|
|
Action = actControlContinue
|
||
|
|
end
|
||
|
|
object mnuControlLine1: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object mnuControlDelete: TMenuItem
|
||
|
|
Action = actControlDelete
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuHelp: TMenuItem
|
||
|
|
Caption = '&Help'
|
||
|
|
object mnuHelpAbout: TMenuItem
|
||
|
|
Action = actHelpAbout
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|