反病毒爱好者论坛汉化版本可疑文件包裹程序
由Borland Delphi 6.0 编写
文件格式 : probaly MS-DOS
代码段长度 : 69A00
程序入口 : 0006A814
代码段起始 : 00001000
编译代码如下
object Form1: TForm1
Left = 257
Top = 205
BorderStyle = bsDialog
Caption = '可疑文件包裹程序 －＝－反病毒爱好者论坛汉化版－＝－'
ClientHeight = 305
ClientWidth = 545
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
545
305)
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 529
Height = 289
ActivePage = tabStep1
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
object tabStep1: TTabSheet
Caption = '第一步：粘贴可疑文件路径'
DesignSize = (
521
261)
object Label1: TLabel
Left = 8
Top = 8
Width = 505
Height = 25
AutoSize = False
Caption = '请将可疑文件的绝对路径粘贴在框内，每行一个路径'
WordWrap = True
end
object memoFilenames: TMemo
Left = 8
Top = 32
Width = 505
Height = 185
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
end
object bnContinue: TBitBtn
Left = 200
Top = 224
Width = 150
Height = 33
Anchors = [akRight, akBottom]
Caption = '点击进行包裹压缩'
TabOrder = 1
OnClick = bnContinueClick
Glyph.Data = {
36090000424D3609000000000000360000002800000018000000180000000100
2000000000000009000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00EFF9
F000C0D5C200C7C7C700C0D5C200C0D5C200DDEADD00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00A1C79E00267D27000450
070005710A0005710A0005710A000450070004500700255E2800668E6700DDEA
DD00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00D0E2CE000F83190005710A0018992E0009B2
190009B2190009B2190009B2190009B2190009B21900029A030005710A000450
070087918500FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00A1C79E0005710A0018992E0016B4320016B4320016B4
320016B4320009B2190009B2190009B2190009B2190009B2190009B21900029A
030004500700668E6700FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00A1C79E000F83190016B4320025BB4F0025BB4F0016B4320016B4
320016B4320016B4320016B4320009B2190009B2190009B2190009B2190009B2
1900029A030004500700668E6700FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00E1F1E1000F83190025A63D0025BB4F0025BB4F0025BB4F0025BB4F0016B4
320047CE7100F2FAF500F2FAF50039C3390016B4320009B2190009B2190009B2
190009B219000EA31B00045007009F9F9F00FF00FF00FF00FF00FF00FF00FF00
FF0049AA490018992E0030C3690030C3690025BB4F0025BB4F0025BB4F0025BB
4F0091DEA900FEFEFE00FFFFFF00F2FAF50030C3690016B4320009B2190009B2
190009B2190009B219000EA31B0004500700F3F3F300FF00FF00FF00FF00D9F3
E2000F83190030C3690030C3690030C3690030C3690030C3690025BB4F0025BB
4F0047CE7100EFF9F000FFFFFF00FCFEFE00F8F8F80039C3390016B4320016B4
320009B2190009B2190009B2190005710A007DA97200FF00FF00FF00FF007ACE
7F0018992E0030C3690030C3690030C3690030C3690030C3690030C3690025BB
4F0025BB4F0047CE7100F2FAF500FFFEFF00FFFFFF00EFF9F00030C3690016B4
320016B4320009B2190009B219000EA31B00255E2800FF00FF00FF00FF0049AA
490025BB4F0030C3690030C3690030C3690030C3690030C3690030C3690030C3
690030C3690030C3690047CE7100F2FAF500FCFEFE00FFFFFE00F2FAF50030C3
690016B4320016B4320016B4320009B2190004500700DDEADD00FF00FF000EA3
1B0025BB4F0030C3690030C3690058E08700AFE6BF0091DEA90091DEA90091DE
A90091DEA90091DEA90091DEA900AFE6BF00FFFFFF00FFFEFF00FFFFFF00F2FA
F50030C3690016B4320016B4320016B4320005710A00C0D5C200FF00FF00029A
030030C3690030C3690030C3690091DEA900FFFFFF00FFFEFF00FEFEFE00FFFF
FF00FFFFFF00FEFEFE00FFFFFF00FFFEFF00FFFFFF00FFFEFF00FFFFFF00FEFE
FE00F2FAF50030C3690025BB4F0016B4320005710A00C0D5C200FF00FF00029A
030030C3690030C3690030C3690091DEA900FBFBFC00FCFEFE00FFFFFF00F9FF
FE00FCFEFE00FFFFFF00FFFFFF00FFFFFF00FCFEFE00FFFEFF00FCFEFE00FFFF
FF00D9F3E20025BB4F0016B4320016B432000F831900C0D5C200FF00FF0016B4
320030C3690030C3690030C3690058E08700AFE6BF0091DEA90091DEA900AFE6
BF0091DEA90091DEA90091DEA900D9F3E200FFFFFF00FFFEFF00FFFFFF00D9F3
E20030C3690025BB4F0025BB4F0025BB4F0005710A00C0D5C200FF00FF0039C3
390039C3390047CE710030C3690030C3690030C3690030C3690030C3690030C3
690030C3690030C3690091DEA900F9FFFE00FFFEFF00FEFEFE00D9F3E20030C3
690030C3690025BB4F0025BB4F0025BB4F0005710A00FF00FF00FF00FF0091DE
A90016B432007ACE7F0047CE710047CE710030C3690030C3690030C3690030C3
690030C3690091DEA900FFFFFE00FFFFFF00FCFEFE00D9F3E20030C3690030C3
690030C3690030C3690025BB4F0018992E0049AA4900FF00FF00FF00FF00EFF9
F00009B219007ACE7F0091DEA90058E0870047CE710030C3690030C3690030C3
690058E08700FBFBFC00FEFEFE00FFFEFF00D9F3E20047CE710030C3690030C3
690030C3690030C3690030C369000F831900AFD0B000FF00FF00FF00FF00FF00
FF007ACE7F0016B4320091DEA90091DEA90058E087007ACE7F0047CE710030C3
69007ACE7F00FFFEFF00FEFEFE00D9F3E20047CE710030C3690030C3690030C3
690030C3690030C3690025A63D0049AA4900FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0039C3390039C33900AFE6BF0091DEA90091DEA90058E0870047CE
710047CE710091DEA900AFE6BF0047CE710030C3690030C3690030C3690030C3
690030C3690025BB4F000F831900D9F3E200FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EFF9F00039C3390039C33900BBE5B90091DEA90091DEA9007ACE
7F0058E0870051B4940030C3690030C3690030C3690030C3690030C3690030C3
690025BB4F00029A0300A1C79E00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EFF9F00039C3390039C3390091DEA900BBE5B90091DE
A90091DEA90058E0870058E0870030C3690030C3690030C3690030C3690016B4
32000EA31B00AFD0B000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF007ACE7F0009B2190039C339007ACE
7F007ACE7F007ACE7F007ACE7F0047CE710025BB4F0016B43200029A030047CE
7100E1F1E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00EFF9F00091DEA90039C3
390039C3390009B2190009B2190009B2190039C3390091DEA900E1F1E100FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
end
object tabStep2: TTabSheet
Caption = '第二步：建立包裹文件'
ImageIndex = 1
object labelPacking: TLabel
Left = 8
Top = 8
Width = 505
Height = 25
AutoSize = False
Caption = '将在您的桌面建立可疑文件包裹文件
http://avfbbs.com.cn'
WordWrap = True
end
object labelFinished: TLabel
Left = 288
Top = 192
Width = 225
Height = 65
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
WordWrap = True
end
object listPacking: TListBox
Left = 8
Top = 32
Width = 505
Height = 153
ItemHeight = 13
TabOrder = 0
end
object anim: TAnimate
Left = 8
Top = 192
Width = 272
Height = 60
CommonAVI = aviCopyFiles
StopFrame = 31
Visible = False
end
end
end
object CabinetWriter1: TCabinetWriter
FailOnIncompressible = False
FileHandler = StreamCabinetFileHandler1
Left = 264
Top = 152
end
object StreamCabinetFileHandler1: TStreamCabinetFileHandler
Left = 296
Top = 152
end
end
还是用这个吧
