ushutdown1.dfm

Program to shutdown Windows. Good exemple how to use "AdjustTokenPrivileges". Same thing to use so

object Form1: TForm1
  Left = 269
  Top = 178
  Width = 232
  Height = 449
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 130
    Height = 13
    Caption = 'Shutdown programm'#233' :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 344
    Width = 177
    Height = 13
    Alignment = taCenter
    Caption = 'Label2'
  end
  object Label3: TLabel
    Left = 152
    Top = 16
    Width = 3
    Height = 13
  end
  object Panel1: TPanel
    Left = 24
    Top = 40
    Width = 177
    Height = 137
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 16
      Top = 8
      Width = 113
      Height = 17
      Caption = 'Vendredi'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RadioButtonGroup1
    end
    object RadioButton2: TRadioButton
      Left = 16
      Top = 32
      Width = 113
      Height = 17
      Caption = 'Samedi'
      TabOrder = 1
      OnClick = RadioButtonGroup1
    end
    object RadioButton3: TRadioButton
      Left = 16
      Top = 56
      Width = 113
      Height = 17
      Caption = 'Dimanche'
      TabOrder = 2
      OnClick = RadioButtonGroup1
    end
    object RadioButton7: TRadioButton
      Left = 16
      Top = 80
      Width = 113
      Height = 17
      Caption = 'Date fix'#233'e'
      TabOrder = 3
      OnClick = RadioButtonGroup1
    end
    object DateTimePicker2: TDateTimePicker
      Left = 40
      Top = 104
      Width = 113
      Height = 21
      Date = 39422.602672337960000000
      Time = 39422.602672337960000000
      TabOrder = 4
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 24
    Top = 192
    Width = 177
    Height = 137
    TabOrder = 1
    object RadioButton4: TRadioButton
      Left = 16
      Top = 8
      Width = 113
      Height = 17
      Caption = '18 heure'
      TabOrder = 0
      OnClick = RadioButtonGroup2
    end
    object RadioButton5: TRadioButton
      Left = 16
      Top = 32
      Width = 113
      Height = 17
      Caption = '20 heure'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = RadioButtonGroup2
    end
    object RadioButton6: TRadioButton
      Left = 16
      Top = 56
      Width = 113
      Height = 17
      Caption = '23 heure'
      TabOrder = 2
      OnClick = RadioButtonGroup2
    end
    object DateTimePicker3: TDateTimePicker
      Left = 40
      Top = 104
      Width = 113
      Height = 21
      Date = 39422.604242256950000000
      Time = 39422.604242256950000000
      Kind = dtkTime
      TabOrder = 3
      Visible = False
    end
    object RadioButton8: TRadioButton
      Left = 16
      Top = 80
      Width = 113
      Height = 17
      Caption = 'Heure fix'#233'e'
      TabOrder = 4
      OnClick = RadioButtonGroup2
    end
  end
  object Button1: TButton
    Left = 72
    Top = 376
    Width = 75
    Height = 25
    Caption = 'Stopper'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 184
    Top = 64
  end
end