unit1.dfm

File Compression/Decompression Example Using ntdll.dll

object Form1: TForm1
  Left = 159
  Top = 148
  BorderStyle = bsDialog
  Caption = 'File Compression/Decompression'
  ClientHeight = 315
  ClientWidth = 449
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 200
    Width = 433
    Height = 51
    Caption = 'Compress File'
    TabOrder = 0
    object Button1: TButton
      Left = 336
      Top = 16
      Width = 81
      Height = 25
      Caption = 'Compress'
      Enabled = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 16
      Top = 20
      Width = 281
      Height = 17
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ReadOnly = True
      TabOrder = 1
    end
    object Button2: TButton
      Left = 304
      Top = 16
      Width = 25
      Height = 25
      Caption = '...'
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 256
    Width = 433
    Height = 51
    Caption = 'Decompress File'
    TabOrder = 1
    object Button3: TButton
      Left = 336
      Top = 16
      Width = 81
      Height = 25
      Caption = 'Decompress'
      Enabled = False
      TabOrder = 0
      OnClick = Button3Click
    end
    object Edit2: TEdit
      Left = 16
      Top = 20
      Width = 281
      Height = 17
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ReadOnly = True
      TabOrder = 1
    end
    object Button4: TButton
      Left = 304
      Top = 16
      Width = 25
      Height = 25
      Caption = '...'
      TabOrder = 2
      OnClick = Button4Click
    end
  end
  object ListViewLog: TListView
    Left = 8
    Top = 8
    Width = 433
    Height = 185
    Columns = <
      item
        Caption = 'Timestamp'
        Width = 100
      end
      item
        Caption = 'File Name'
        Width = 110
      end
      item
        Caption = 'Status'
        Width = 200
      end>
    GridLines = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupEmpty
    SmallImages = PngImageList1
    TabOrder = 2
    ViewStyle = vsReport
  end
  object OD1: TOpenDialog
    Title = 'Open...'
    Left = 384
    Top = 32
  end
  object XPManifest1: TXPManifest
    Left = 416
    Top = 32
  end
  object PopupEmpty: TPopupMenu
    Left = 264
    Top = 32
  end
  object PngImageList1: TPngImageList
    PngImages = <
      item
        PngImage.Data = {
          89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37
          EA0000000467414D410000AFC837058AE90000001974455874536F6674776172
          650041646F626520496D616765526561647971C9653C000000FC4944415478DA
          6D91BD6A02411485CFCC2E31082218888DD6F6C61F040BF31479040B7D17616B
          DBB4BE418A5426111B4BAB443BED45DDF9F1CE9D1533EA1DE6877BBE73666084
          85A8A08C08616DB0B2C61D04012FFB8FA820E445551827C391471CD04AA70729
          32C9E088276C3149068C080834D5770A09C38026A044D3E03DE98FEC6F06684C
          A97944CAE32DBB2A6E6396017411352CF935A5A4E45778FE0F00336A2BCA500C
          19BCA21802E7B22C6BDAF321B020AF773BD1A08B87FB0960D9AD71082CF97986
          E3416BFD1AF05E3F7DC910F863B71B1EA9917001BE20705B26EED81FF7178DC3
          67F408792DEB5DAE67E70EA8D277CB3B091A1BBB3E012E688B13C4F22AE80000
          000049454E44AE426082}
        Name = 'PngImage0'
        Background = clWindow
      end>
    Left = 328
    Top = 112
    Bitmap = {}
  end
end