千年2的脱机源代码
源代码在线查看： dllform.dfm
object DllForm1: TDllForm1
Left = 300
Top = 169
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = #21315#24180' ---- '#23553#21253#30417#35270
ClientHeight = 373
ClientWidth = 487
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Visible = True
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 487
Height = 373
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #23553#21253#21015#34920
object ListSend: TListView
Left = 0
Top = 0
Width = 480
Height = 145
Columns = <
item
Caption = 'send'
Width = 40
end
item
Caption = #24635#38271#24230
Width = 40
end
item
Caption = 'num'
Width = 40
end
item
Caption = 'four'
Width = 40
end
item
Caption = 'size'
Width = 40
end
item
Caption = 'ctrl'
Width = 40
end
item
Caption = #21442#25968
Width = 150
end
item
Caption = #20869#23384#21442#25968
Width = 150
end>
Ctl3D = False
GridLines = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnSelectItem = ListSendSelectItem
end
object Checksend: TCheckBox
Left = 8
Top = 148
Width = 89
Height = 17
Caption = #28155#21152'send'#23553#21253
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 1
end
object Checksave: TCheckBox
Left = 216
Top = 148
Width = 57
Height = 17
Caption = #20445#23384#21040
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Edit1: TEdit
Left = 272
Top = 148
Width = 201
Height = 21
TabOrder = 3
Text = 'F:\cracker\'#28304#20195#30721'\delphi\'#21315#24180#22806#25346'\'#21315#24180#23553#21253#25130#21462'\fenbao.txt'
end
object ListRecv: TListView
Left = 0
Top = 168
Width = 481
Height = 137
Columns = <
item
Caption = 'recv'
Width = 40
end
item
Caption = #24635#38271#24230
Width = 40
end
item
Caption = 'num'
Width = 40
end
item
Caption = 'four'
Width = 40
end
item
Caption = 'size'
Width = 40
end
item
Caption = 'wcmd'
Width = 40
end
item
Caption = #21442#25968
Width = 150
end
item
Caption = #20869#23384#21442#25968
Width = 150
end>
Ctl3D = False
GridLines = True
RowSelect = True
TabOrder = 4
ViewStyle = vsReport
OnSelectItem = ListRecvSelectItem
end
object Buttonsend: TButton
Left = 104
Top = 152
Width = 89
Height = 17
Caption = #28165#31354' send '#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = ButtonsendClick
end
object Checkrecv: TCheckBox
Left = 0
Top = 312
Width = 97
Height = 17
Caption = #28155#21152'recv'#23553#21253
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 6
end
object Buttonrecv: TButton
Left = 104
Top = 312
Width = 89
Height = 17
Caption = #28165#31354' recv '#34920
TabOrder = 7
OnClick = ButtonrecvClick
end
end
object TabSheet2: TTabSheet
Caption = #22079#22079
ImageIndex = 1
end
end
object Edit2: TEdit
Left = 0
Top = 352
Width = 481
Height = 21
BevelInner = bvLowered
TabOrder = 1
end
end
