object Form1: TForm1 Left = 235 Top = 253 Width = 549 Height = 300 Caption = 'Unregistered' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu1 Position = poDefault ShowHint = True OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object ListView: TCoolListView Left = 0 Top = 30 Width = 541 Height = 205 Align = alClient AutoSort = True Columns = < item Caption = 'Name' Width = 140 end item Caption = 'Location' Width = 170 end item Alignment = taRightJustify Caption = 'Size' Width = 80 end item Alignment = taRightJustify Caption = 'Date' Width = 60 end item Alignment = taRightJustify Caption = 'Time' Width = 60 end> ReadOnly = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] IconOptions.AutoArrange = True MultiSelect = True OnChange = ListViewChange OnChanging = ListViewChanging SortType = stBoth TabOrder = 3 ViewStyle = vsReport OnKeyPress = FormKeyPress end object LVSetup: TCoolListView Left = 0 Top = 30 Width = 541 Height = 205 Align = alClient OnDblClick = LVSetupDblClick Columns = < item Caption = 'Location' Width = 200 end item Caption = 'File Specs' Width = 80 end item Alignment = taRightJustify Caption = 'File Age' Width = 80 end item Alignment = taRightJustify Caption = 'File Size' Width = 80 end item Alignment = taCenter Caption = 'Include SubDir' Width = 88 end> ReadOnly = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MultiSelect = True TabOrder = 1 ViewStyle = vsReport Visible = False OnKeyPress = FormKeyPress end object Panel1: TPanel Left = 0 Top = 0 Width = 541 Height = 30 Align = alTop TabOrder = 0 object Bevel3: TBevel Left = 139 Top = 1 Width = 14 Height = 28 Shape = bsLeftLine end object Bevel1: TBevel Left = 83 Top = 1 Width = 14 Height = 28 Shape = bsLeftLine end object EBAdd: TExplorerButton Left = 112 Top = 2 Width = 25 Height = 25 Hint = 'Add file|Add file for CleanUp' Alignment = taRightJustify AllowAllUp = True Bitmap.Data = { B0010000424DB001000000000000760000002800000018000000180000000100 0400000000002001000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333B3333333B333333 B33333333B333333B33333333BB33888BB8888BB3333333333B00000000000B3 333333333330FFFFFFFFF083333333333330FFFFFFFFF083333333333330FFFF FFFFF083333333333330FFFFFFFFF083333333333330FFFFFFFFF08333333333 3BB0FFFFFFFFF0833333333BB330FFFFFFFFF0BB333333333330FFFFFF777033 BB3333333330FFFFF0000033333333333330FFFFF0FF0333333333333330FFFF F0F0B333333333333330FFFFF003BB333333333333B0000000333BB333333333 3BB33333BB3333BB33333333B3333333B3333333B33333333333333333333333 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClick = EBAddClick ParentFont = False ParentShowHint = False ShowHint = True Visible = False end object Bevel2: TBevel Left = 243 Top = 1 Width = 14 Height = 28 Shape = bsLeftLine end object EBConfirm: TExplorerButton Left = 32 Top = 2 Width = 25 Height = 25 Hint = 'Confirm Delete|Confirm Delete - Press to toggle' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDD0000D DDDDDDDDDD3BBB30DDDDDDDDDD3BBB30DDDDDDDDDDD33370DDDDDDDDDD00000D DDDDDDDDDD3BBB30DDDDDDDDDD3BBB30DDDDDDDDDD3BBB30DDDDDDDDDDD3BBB3 0DDDDD30000D3BBB30DDDD3BBB300BBB30DDDD3BBB303BBB30DDDD37BBBBBBBB 30DDDDD37BBBBBB733DDDDDD33FFFF773DDDDDDDDD333333DDDD} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] ShadingType = stDark OnClick = EBConfirmClick ParentShowHint = False ShowHint = True end object EBRecycle: TExplorerButton Left = 56 Top = 2 Width = 25 Height = 25 Hint = 'Use Recycle Bin|Use Recycle Bin - Press to toggle' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDD000 0DDDDDDDDDD0077880DDDDDDD007777880DDDDD00772777880DDDDD877222278 880DDDD872727278880DDD8772777778880DDD8722272278880DDD8772772278 8880DD877722FFFF8880D87777FF8777FF80D877FF0887777FF0D8FF8808777F F880D88FF8077FF88DDDDDD88F8FF88DDDDDDDDDD8888DDDDDDD} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] ShadingType = stDark OnClick = EBRecycleClick ParentShowHint = False ShowHint = True end object EBNotConfirm: TExplorerButton Left = 32 Top = 2 Width = 25 Height = 25 Hint = 'Instant Delete|Instant Delete - Press to toggle' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDD999999D DDDDDDD9999999999DDDDD999D3BBB3999DDD9999DD33370999DD9999900000D D99D99DD999BBB30DD9999DDD999BB30DD9999DDDD999B30DD9999DDDDD999B3 0D999930000D999B3099993BBB3009993099D99BBB303B99999DD999BBBBBBB9 999DDD999BBBBBB999DDDDD9999999999DDDDDDDD9999993DDDD} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] ShadingType = stDark OnClick = EBConfirmClick ParentShowHint = False ShowHint = True Visible = False end object EBNotRecycle: TExplorerButton Left = 56 Top = 2 Width = 25 Height = 25 Hint = 'Do Not Use Recycle Bin|Do Not Use Recycle Bin - Press to toggle' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDD9999990 0DDDDDD99999999990DDDD999007777999DDD99997727778999DD99999222278 899D99D899927278889999877999777888999987229992788899998772799978 889999877722999F8899997777FF8999FF99D997FF0887999990D99988087779 9990D89998077FF999DDDDD9999999999DDDDDDDD999999DDDDD} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] ShadingType = stDark OnClick = EBRecycleClick ParentShowHint = False ShowHint = True Visible = False end object EBSetup: TExplorerButton Left = 8 Top = 2 Width = 25 Height = 25 Hint = 'Toggle Setup/View Mode|Press to toggle between Setup & View Mode' AllowAllUp = True Bitmap.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777000000070000000000007777000000070FFFFFFFFFF07777000000070FC CFCCCCCF07777000000070FFFFFFFFFF07777000000070FCCFCCCCCF07777000 000070FFFFFFFFFF07777000000070FFFFFFF0FF07777000000070F00FFF0B0F 07770000000070F0F0F0B0F000700000000070FF0B0B0F0FBF00000000007000 00F0F0FBFBF0000000007777770B0FBFBFB00000000077777770FBFBFB000000 0000777777770000007000000000777777777777777770000000777777777777 777770000000} GroupIndex = 3 Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = EBSetupClick ParentShowHint = False ShowHint = False end object EBDelete: TExplorerButton Left = 88 Top = 2 Width = 25 Height = 25 Hint = 'Delete|Delete selected files' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222222222222222222222202222222222022200022222222222220000222222 2022222000222222022222220002222002222222200022002222222222000002 2222222222200022222222222200000222222222200022002222222000022220 0222220000222222002222000222222222022222222222222222} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = EBDeleteClick ParentShowHint = False ShowHint = True end object EBStart: TExplorerButton Left = 112 Top = 2 Width = 25 Height = 25 Hint = 'CleanUp|Execute CleanUp process' AllowAllUp = True Bitmap.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333333300003333373333333333333300003333 07733333333333330000333000773333333333330000330F0007733333333333 00003330F000777777733333000033330F000000007733330000333330F00788 87077333000033333300788FF870773300003333330788888F87073300003333 3308888888F80733000033333307888888F807330000333333078FF888880733 0000333333777FF8888773330000333333307788887033330000333333330777 7703333300003333333337000733333300003333333333333333333300003333 33333333333333330000} Caption = 'ExplorerButton' Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = SpeedButton3Click ParentShowHint = False ShowHint = True end object EBLargeIcons: TExplorerButton Left = 144 Top = 2 Width = 25 Height = 25 Hint = 'Large Icons|View large icons' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 222222222222200000022222222222222222222222222244442222222222224F F42222222222224FF42222222222224F44222000000222444222222222222222 22222244442222222222224FF42222222222224FF42222222222224F44222222 2222224442222222222222222222222222222222222222222222} Caption = 'ExplorerButton' GroupIndex = 1 Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = EBLargeIconsClick ParentShowHint = False ShowHint = True end object EBSmallIcons: TExplorerButton Left = 168 Top = 2 Width = 25 Height = 25 Hint = 'Small Icons|View small icons' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 222222244422222222222224F420002222222224422222222222222222222222 222222222222222222222222222244422222222222224F420002222222224422 222222222222222222222222222222222222244422222222222224F420002222 2222244222222222222222222222222222222222222222222222} Caption = 'ExplorerButton' GroupIndex = 1 Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = EBSmallIconsClick ParentShowHint = False ShowHint = True end object EBList: TExplorerButton Left = 192 Top = 2 Width = 25 Height = 25 Hint = 'List|View list' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 222244422222444222224F4200024F4200024422222244222222222222222222 2222222222222222222244422222444222224F4200024F420002442222224422 22222222222222222222222222222222222244422222444222224F4200024F42 0002442222224422222222222222222222222222222222222222} Caption = 'ExplorerButton' GroupIndex = 1 Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = EBListClick ParentShowHint = False ShowHint = True end object EBDetails: TExplorerButton Left = 216 Top = 2 Width = 25 Height = 25 Hint = 'Details|View Details' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222422000020002000222222222222222224220000200020002222222222222 2222422000020002000222222222222222224220000200020002222222222222 2222422000020002000222222222222222224444444444444444222222222222 2222222000020002000222222222222222222222222222222222} Caption = 'ExplorerButton' GroupIndex = 1 Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = EBDetailsClick ParentShowHint = False ShowHint = True end object EBExit: TExplorerButton Left = 248 Top = 2 Width = 25 Height = 25 Hint = 'Exit|Exit CleanUp' AllowAllUp = True Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222220002222222222220BF0222222222200BFB0000000000020FBF0FF0222 222220BFB0FF0222222220FBF0FF0222222220B0B0FF0222022220FBF0FF0220 022220BFB0FF0200000220FBF0FF0220022220BFB0FF0222022220FBF0FF0222 222220BF0FFF0222222220F0FFFF022222222000000002222222} Layout = blBitmapLeft Options = [boIconOnly, boPopupMark] OnClick = Exit1Click ParentShowHint = False ShowHint = True end end object StatusBar: TAStatusBar Left = 0 Top = 235 Width = 541 Height = 19 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = < item Width = 300 end item Text = 'Ready' Width = 200 end> ParentFont = False SimplePanel = False end object MSOfficeCaption1: TMSOfficeCaption AppNameText.Caption = 'CleanUp -' AppNameText.Font.Color = clWindowText AppNameText.Font.Height = -11 AppNameText.Font.Name = 'MS Sans Serif' AppNameText.Font.Style = [fsBold] AppNameText.FontKind = fkAutoHeight CaptionText.Caption = 'Unregistered' CaptionText.FontKind = fkSystem CompanyText.Caption = 'Doesn'#39't Byte Software' CompanyText.Font.Color = clWindowText CompanyText.Font.Height = -11 CompanyText.Font.Name = 'MS Sans Serif' CompanyText.Font.Style = [fsBold, fsItalic] CompanyText.FontKind = fkAutoHeight Left = 440 Top = 160 end object MainMenu1: TMainMenu Left = 368 Top = 96 object File1: TMenuItem Caption = '&File' ShortCut = 0 object StartCleanUp1: TMenuItem Caption = '&Start CleanUp' ShortCut = 0 OnClick = SpeedButton3Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Add1: TMenuItem Caption = '&Add' Hint = 'Add file for CleanUp' ShortCut = 0 Visible = False OnClick = EBAddClick end object Delete1: TMenuItem Caption = '&Delete' Hint = 'Delete selected files' ShortCut = 0 Visible = False OnClick = EBDeleteClick end object N1: TMenuItem Caption = '-' ShortCut = 0 Visible = False end object Exit1: TMenuItem Caption = '&Exit' Hint = 'Exit CleanUp' ShortCut = 0 OnClick = Exit1Click end end object Setup1: TMenuItem Caption = '&Options' ShortCut = 0 object Setup2: TMenuItem Caption = '&Setup' Hint = 'Toggle between Setup & View Mode' ShortCut = 0 OnClick = Setup2Click end object ConfirmDelete1: TMenuItem Caption = '&Confirm Delete' Checked = True Hint = 'Toggle delete confirmation' ShortCut = 0 OnClick = ConfirmDelete1Click end object UseRecycleBin1: TMenuItem Caption = '&Use Recycle Bin' Checked = True Hint = 'Toggle use of Recycle Bin for deleted files' ShortCut = 0 OnClick = UseRecycleBin1Click end object RunduringWin95Boot1: TMenuItem Caption = '&Run At Win95 Boot' Hint = 'Toggle to run CleanUp during Windows95 startup' ShortCut = 0 OnClick = RunduringWin95Boot1Click end object SaveSettingsatExit1: TMenuItem Caption = 'Save Settings On &Exit' Checked = True Hint = 'Save settings on CleanUp exit' ShortCut = 0 OnClick = SaveSettingsatExit1Click end object Register1: TMenuItem Caption = '&Register' Hint = 'Register CleanUp' ShortCut = 0 Visible = False OnClick = Register1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Contents1: TMenuItem Caption = '&Contents' Hint = 'Open help file' ShortCut = 0 OnClick = Contents1Click end object About1: TMenuItem Caption = '&About' Hint = 'View about box' ShortCut = 0 OnClick = About1Click end end end object FileScan: TFileScan FileType = [ftReadOnly, ftHidden, ftArchive, ftNormal] Directory = 'C:\' FileSpecs = '*.tmp' FileSize = 0 FileAge = 0 CurrInfoLabel = Form3.Status Left = 368 Top = 160 end object ShellLink: TPBShellLink Arguments = '-a' Description = 'CleanUp' FileIcon.IconIndex = 0 HotKey = 0 FileName = 'C:\WINDOWS\Start Menu\Programs\StartUp\CleanUp.lnk' WindowState = wsMinimized ShellFolder = sfStartup Left = 440 Top = 96 end object Validator: TValidator RandSeed = 945213084 RegKey = 'Software\Doesn'#39't Byte Software\CleanUp' OnVldOk = ValidatorVldOk OnVldFailed = ValidatorVldFailed Left = 304 Top = 96 end object ProgramCheck1: TProgramCheck Active = True AutoCheck = True OnCheckError = ProgramCheck1CheckError Left = 304 Top = 160 end end