Delphi 2010 编写的注意了类型定义,应该可以在D7下直接编译
首先是MainProg.DFM文件
object SPForm: TSPForm
Left = 215
Top = 153
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #25195#25551#31471#21475
ClientHeight = 380
ClientWidth = 556
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 16
Top = 17
Width = 84
Height = 12
Caption = #35831#36755#20837#36215#22987'IP'#65306
end
object Label2: TLabel
Left = 16
Top = 43
Width = 84
Height = 12
Caption = #35831#36755#20837#32467#26463'IP'#65306
end
object Label3: TLabel
Left = 234
Top = 17
Width = 60
Height = 12
Caption = #31471#21475#33539#22260#65306
end
object Label4: TLabel
Left = 296
Top = 43
Width = 198
Height = 12
Caption = #20363#22914#65306'135,139,1433-2000,3389,4000'
end
object Label5: TLabel
Left = 16
Top = 69
Width = 48
Height = 12
Caption = #32447#31243#25968#65306
end
object Label8: TLabel
Left = 378
Top = 95
Width = 96
Height = 12
Caption = #36830#25509#36229#26102#65288#31186#65289#65306
end
object IPStart: TEdit
Left = 106
Top = 13
Width = 121
Height = 20
TabOrder = 0
Text = '192.168.2.1'
end
object IPEnd: TEdit
Left = 106
Top = 39
Width = 121
Height = 20
TabOrder = 1
Text = '192.168.2.1'
end
object Ports: TEdit
Left = 294
Top = 13
Width = 243
Height = 20
TabOrder = 2
Text = '1'
end
object StartBtn: TButton
Left = 185
Top = 63
Width = 75
Height = 25
Caption = #24320#22987#25195#25551
TabOrder = 3
OnClick = StartBtnClick
end
object ThreadCount: TComboBox
Left = 106
Top = 65
Width = 63
Height = 20
AutoComplete = False
TabOrder = 4
Text = '1'
Items.Strings = (
'1'
'5'
'10'
'20'
'30'
'40'
'50'
'100'
'200'
'300')
end
object SendaCharCK: TCheckBox
Left = 16
Top = 93
Width = 255
Height = 17
Caption = #21457#36865#19968#20010#23383#31526#65288#24403#36830#25509#25104#21151#26102#26469#20445#35777#20934#30830#24615#65289
Checked = True
State = cbChecked
TabOrder = 5
end
object OutMemo: TMemo
Left = 16
Top = 116
Width = 250
Height = 256
Color = clBlack
Font.Charset = GB2312_CHARSET
Font.Color = 33023
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 6
end
object ProcSel: TComboBox
Left = 266
Top = 65
Width = 271
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 7
Text = #25353#29031'IP'#20998#37197#20219#21153#65288#36866#21512#20110'IP'#22810#65292#31471#21475#23569#30340#24773#20917#65289
Items.Strings = (
#25353#29031'IP'#20998#37197#20219#21153#65288#36866#21512#20110'IP'#22810#65292#31471#21475#23569#30340#24773#20917#65289
#36880#20010'IP'#20998#37197#20219#21153#65288#36866#21512#20110'IP'#23569#65292#31471#21475#22810#30340#24773#20917#65289)
e