home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 32
/
hot34.iso
/
ficheros
/
9SEG
/
ABSEC120.ZIP
/
EXTRACT.BI_
/
EXTRACT.BI
/
0
/
RCDATA
/
TFEXPAND
/
TFEXPAND.txt
Wrap
Text File
|
1998-02-09
|
15KB
|
375 lines
object FExpand: TFExpand
Left = 315
Top = 353
Width = 619
Height = 313
Caption = 'PEPSOFT Absolute Security PRO * Compressed Archive *'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Scaled = False
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object NoBDEResizerPanel1: TNoBDEResizerPanel
Left = 0
Top = 0
Width = 611
Height = 285
Align = alClient
Caption = 'NoBDEResizerPanel1'
TabOrder = 0
Active = True
object ButtHelp: TExplorerButton
Left = 166
Top = 3
Width = 59
Height = 43
Bitmap.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888800008888888888888888888800008888888887778888888800008888
8888600788888888000088888888E60788888888000088888888EE6888888888
000088888888877788888888000088888888600788888888000088888888E607
78888888000088888888E660778888880000888888888E660778888800008888
888878E660778888000088888880778E660788880000888888660778E6078888
0000888888E66077E608888800008888888E660066688888000088888888E666
6E8888880000888888888EEEE888888800008888888888888888888800008888
88888888888888880000}
Caption = '&Help'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
IBitmap = {
424DE60400000000000036000000280000001400000014000000010018000000
0000B004000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFCFD8DF000000000000CFD8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8
DFCFD8DF000000CFD8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DF
CFD8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCF
D8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DF000000000000CFD8DFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DF000000CFD8DFCFD8DFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DF000000CFD8DFCFD8DFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DF000000CFD8DFCFD8DFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFCFD8DFBFBFBFCFD8DFCFD8DFCFD8DF000000CFD8DFCFD8DFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000CFD8
DFCFD8DFBFBFBFCFD8DFCFD8DFCFD8DF000000CFD8DFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DF000000CFD8DF
CFD8DFBFBFBFCFD8DFCFD8DF000000CFD8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DF000000CFD8DFCF
D8DFCFD8DFCFD8DF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DF000000000000CFD8
DFCFD8DFCFD8DFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFCFD8DFCFD8DFCFD8DFCFD8DFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF}
end
object Decrypt: TExplorerButton
Left = 166
Top = 102
Width = 59
Height = 35
Hint = 'Decrypt a File'
Bitmap.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777007777770007777060777777000777066000007
7000770666666607700070666666660770007706666666077000777066000007
7000777706077777700077777007777770007777770777777000777777777777
7000}
Caption = '&Decrypt'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = DecryptClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D3E0200000000000036000000280000000D0000000D000000010018000000
00000802000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000CFD8DF
000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBFBFBFBFBFBFBFBFBFBFBF00
0000CFD8DFCFD8DF000000000000000000000000000000BFBFBF7F7FBFBFBFBF
BFBFBFBF000000CFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DF000000BF
BFBF7F7FBFBFBFBFBF000000CFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8
DFCFD8DF000000BFBFBF7F7FBFBFBFBFBFBFBFBF000000CFD8DFCFD8DFCFD8DF
CFD8DFCFD8DFCFD8DFCFD8DF000000BFBFBF7F7FBFBFBFBFBFBFBFBFBFBFBF00
0000CFD8DFCFD8DF000000000000000000000000000000BFBFBF7F7FBFBFBFBF
BFBFBFBFBFBFBFBFBFBF000000CFD8DF000000BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF7F7FBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF00BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF00}
end
object DecryptALL: TExplorerButton
Left = 166
Top = 190
Width = 59
Height = 35
Hint = 'Decrypt All Files'
Bitmap.Data = {
3E020000424D3E0200000000000036000000280000000D0000000D0000000100
18000000000008020000851200008B1200000000000000000000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000C0C0C0
C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C000
0000000000C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0000000BFBF
00000000000000BFBF00000000C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0
000000BFBF00BFBF00000000BFBF00BFBF000000000000000000000000000000
0000C0C0C0000000BFBF00BFBF00000000BFBF00BFBF00BFBF00BFBF00BFBF00
BFBF00BFBF0000000000000000BFBF00BFBF00000000BFBF00BFBF00BFBF00BF
BF00BFBF00BFBF00BFBF00BFBF0000000000C0C0C0000000BFBF00BFBF000000
00BFBF00BFBF00BFBF00BFBF00BFBF00BFBF00BFBF0000000000C0C0C0C0C0C0
000000BFBF00BFBF00000000BFBF00BFBF000000000000000000000000000000
0000C0C0C0C0C0C0C0C0C0000000BFBF00000000000000BFBF00000000C0C0C0
C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C000
0000000000C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0000000C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C000}
Caption = 'Dec. &All'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = DecryptALLClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {
424D3E0200000000000036000000280000000D0000000D000000010018000000
00000802000000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08181C0BFC0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000C0C0C0C0C0C0C0
C0C08181C0BFC0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C00000000000
00C0C0C0C0C0C0C0C0C08181C0BFC0C0C0C0C0C0C0C0C0000000CFD8DF000000
000000CFD8DF000000C0C0C0C0C0C0C0C0C08181C0BFC0C0C0C0C0C0000000CF
D8DFCFD8DF000000CFD8DFCFD8DF000000000000000000000000000000BFC0C0
C0000000CFD8DFCFD8DF000000CFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCF
D8DF010000BF000000CFD8DFCFD8DF000000CFD8DFCFD8DFCFD8DFCFD8DFCFD8
DFCFD8DFCFD8DFCFD8DF010000BFC0C0C0000000CFD8DFCFD8DF000000CFD8DF
CFD8DFCFD8DFCFD8DFCFD8DFCFD8DFCFD8DF010000BFC0C0C0C0C0C0000000CF
D8DFCFD8DF000000CFD8DFCFD8DF000000000000000000000000000000BFC0C0
C0C0C0C0C0C0C0000000CFD8DF000000000000CFD8DF000000C0C0C0C0C0C0C0
C0C08181C0BFC0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C00000000000
00C0C0C0C0C0C0C0C0C08181C0BFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000
C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C08181C0BFC0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08181C0BF}
end
object DriveComboBox1: TDriveComboBox
Left = 6
Top = 5
Width = 155
Height = 22
DirList = DirectoryListBox1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DirectoryListBox1: TDirectoryListBox
Left = 6
Top = 33
Width = 155
Height = 208
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
end
object viewlistfiles: TListView
Left = 232
Top = 16
Width = 377
Height = 225
Columns = <>
ReadOnly = True
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
IconOptions.AutoArrange = True
MultiSelect = True
TabOrder = 2
ViewStyle = vsReport
end
object CheckMakeDir: TCheckBox
Left = 8
Top = 248
Width = 153
Height = 17
Caption = '&Make Directories'
TabOrder = 3
OnClick = CheckMakeDirClick
end
object StatusBar1: TAdvStatusBar
Left = 1
Top = 265
Width = 609
Height = 19
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Panels = <
item
Text = 'LabelFileName'
Width = 200
end
item
Alignment = taCenter
Text = 'Info'
Width = 80
end
item
Text = 'Size'
Width = 200
end
item
Width = 80
end
item
Width = 50
end>
ParentFont = False
SimplePanel = False
object LedReady: KrLed
Left = 568
Top = 5
Width = 20
Height = 10
Hint = 'Just a LED'
About = 'Kr Led, version 1.00, 04-10-97'
CaptionAlign = caLeft
CaptionBorder = olNone
CaptionLineColor = clBlack
CaptionBackGround = clBlue
LedOnColor = clLime
LedOffColor = clGray
ColorBackGround = clBackground
LedColorLine = clBlack
LedState = stOn
LedAlign = alLeft
LedCircle = 10
LedBorder = olNone
Border = olNone
Transparant = True
BorderLine = clBlack
LedSpotColorOn = clWhite
LedSpotColorOff = clWhite
ParentShowHint = False
ShowHint = True
end
object LedBusy: KrLed
Left = 584
Top = 5
Width = 20
Height = 10
Hint = 'Just a LED'
About = 'Kr Led, version 1.00, 04-10-97'
CaptionAlign = caLeft
CaptionBorder = olNone
CaptionLineColor = clBlack
CaptionBackGround = clSilver
LedOnColor = clRed
LedOffColor = clGray
ColorBackGround = clBtnFace
LedColorLine = clBlack
LedState = stOff
LedAlign = alLeft
LedCircle = 10
LedBorder = olNone
Border = olNone
Transparant = True
BorderLine = clBlack
LedSpotColorOn = clWhite
LedSpotColorOff = clWhite
ParentShowHint = False
ShowHint = True
end
object Gauge1: TGauge
Left = 484
Top = 3
Width = 73
Height = 15
ShowText = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
BorderStyle = bsNone
ForeColor = clYellow
BackColor = clBtnFace
ParentFont = False
Progress = 50
end
end
end
object Compress1: TCompress
RegName = 'Gregory Noe'
RegNumber = 11359
OnCheckFile = Compress1CheckFile
OnShowProgress = Compress1ShowProgress
MakeDirectories = False
ExceptionOnFileError = False
Key = 0
CheckSpaceBeforeExpand = False
Left = 168
Top = 56
end
object MSOfficeCaption1: TMSOfficeCaption
AppNameText.Caption = 'Absolute Security PRO'
AppNameText.FontKind = fkSystemB
AppNameText.Visible = True
CaptionText.Caption = '* Compressed Archive *'
CaptionText.FontKind = fkSystem
CaptionText.Visible = True
CompanyText.Caption = 'PEPSOFT'
CompanyText.FontKind = fkSystemBI
CompanyText.Visible = True
Left = 208
Top = 56
end
end