home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 364
- Top = 130
- Width = 560
- Height = 383
- Caption = 'Tim'#39's APIThing Demo App'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object Button1: TButton
- Left = 12
- Top = 8
- Width = 125
- Height = 30
- Caption = 'File Comments'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 12
- Top = 48
- Width = 125
- Height = 30
- Caption = 'File Version'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 12
- Top = 88
- Width = 125
- Height = 30
- Caption = 'Free Disk Space'
- TabOrder = 2
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 12
- Top = 128
- Width = 125
- Height = 30
- Caption = 'Current Directory'
- TabOrder = 3
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 148
- Top = 8
- Width = 125
- Height = 30
- Caption = 'File Size'
- TabOrder = 4
- OnClick = Button5Click
- end
- object Button6: TButton
- Left = 148
- Top = 48
- Width = 125
- Height = 30
- Caption = 'Short Path Name'
- TabOrder = 5
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 148
- Top = 88
- Width = 125
- Height = 30
- Caption = 'Temp Path'
- TabOrder = 6
- OnClick = Button7Click
- end
- object Button8: TButton
- Left = 148
- Top = 128
- Width = 125
- Height = 30
- Caption = 'Volume Info'
- TabOrder = 7
- OnClick = Button8Click
- end
- object Button9: TButton
- Left = 284
- Top = 8
- Width = 125
- Height = 30
- Caption = 'Full Path Name'
- TabOrder = 8
- OnClick = Button9Click
- end
- object Button10: TButton
- Left = 284
- Top = 48
- Width = 125
- Height = 30
- Caption = 'Logical Drives'
- TabOrder = 9
- OnClick = Button10Click
- end
- object Button11: TButton
- Left = 284
- Top = 88
- Width = 125
- Height = 30
- Caption = 'Windows Directory'
- TabOrder = 10
- OnClick = Button11Click
- end
- object Button12: TButton
- Left = 284
- Top = 128
- Width = 125
- Height = 30
- Caption = 'System Directory'
- TabOrder = 11
- OnClick = Button12Click
- end
- object Panel1: TPanel
- Left = 12
- Top = 288
- Width = 397
- Height = 57
- BevelInner = bvLowered
- BevelOuter = bvLowered
- TabOrder = 12
- object Image1: TImage
- Left = 8
- Top = 8
- Width = 81
- Height = 41
- AutoSize = True
- Center = True
- IncrementalDisplay = True
- Stretch = True
- end
- object Label1: TLabel
- Left = 256
- Top = 16
- Width = 41
- Height = 16
- Alignment = taRightJustify
- Caption = 'Label1'
- end
- end
- object Button13: TButton
- Left = 12
- Top = 168
- Width = 125
- Height = 30
- Caption = 'File Times'
- TabOrder = 13
- OnClick = Button13Click
- end
- object Button14: TButton
- Left = 284
- Top = 168
- Width = 125
- Height = 30
- Caption = 'User Name'
- TabOrder = 14
- OnClick = Button14Click
- end
- object Button15: TButton
- Left = 12
- Top = 208
- Width = 125
- Height = 30
- Caption = 'Computer Name'
- TabOrder = 15
- OnClick = Button15Click
- end
- object Button16: TButton
- Left = 12
- Top = 248
- Width = 125
- Height = 30
- Caption = 'Find Executable'
- TabOrder = 16
- OnClick = Button16Click
- end
- object Button18: TButton
- Left = 148
- Top = 168
- Width = 125
- Height = 30
- Caption = 'Processor Type'
- TabOrder = 17
- OnClick = Button18Click
- end
- object Button19: TButton
- Left = 284
- Top = 208
- Width = 125
- Height = 30
- Caption = 'Page Size'
- TabOrder = 18
- OnClick = Button19Click
- end
- object Button20: TButton
- Left = 148
- Top = 208
- Width = 125
- Height = 30
- Caption = 'Processors'
- TabOrder = 19
- OnClick = Button20Click
- end
- object Button21: TButton
- Left = 148
- Top = 248
- Width = 125
- Height = 30
- Caption = 'OS Version Info'
- TabOrder = 20
- OnClick = Button21Click
- end
- object Button17: TButton
- Left = 284
- Top = 248
- Width = 125
- Height = 30
- Caption = 'About'
- TabOrder = 21
- OnClick = Button17Click
- end
- object Button22: TButton
- Left = 420
- Top = 8
- Width = 125
- Height = 30
- Caption = 'Format A:\'
- TabOrder = 22
- OnClick = Button22Click
- end
- object Button23: TButton
- Left = 419
- Top = 48
- Width = 125
- Height = 30
- Caption = 'Physical Memory'
- TabOrder = 23
- OnClick = Button23Click
- end
- object Button24: TButton
- Left = 419
- Top = 88
- Width = 125
- Height = 30
- Caption = 'Drive Type'
- TabOrder = 24
- OnClick = Button24Click
- end
- object Button25: TButton
- Left = 419
- Top = 128
- Width = 125
- Height = 30
- Caption = 'Shut Down'
- TabOrder = 25
- OnClick = Button25Click
- end
- object Timer1: TTimer
- Interval = 500
- OnTimer = Timer1Timer
- Left = 312
- Top = 296
- end
- object APIThing: TtvAPIThing
- Left = 448
- Top = 232
- end
- end
-