谁有PUDN帐号,帮我下载一个代码,谢谢(300分)

http://www.pudn.com/downloads91/sourcecode/windows/comm/detail350555.html,发到邮箱13859908@163.com

http://www.pudn.com/downloads58/sourcecode/windows/comm/detail204585.html这个也下来,分再加100分

请查收邮件：）

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,unitwjshook,
StdCtrls,registry;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

procedure StartHook(FileBeSpy,readfile,writefilechar);
stdcall;external 'ComTSRDLL';
procedure StopHook;
stdcall;external 'ComTSRDLL';
var
Form1: TForm1;

implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
FileRead,FileWrite:string;
begin

if button1.caption='开始' then

begin

button1.caption:='停止';
FileRead:=edit1.text;
FileWrite:=edit2.text;
deletefile(FileRead);
deletefile(FileWrite);
StartHook(Pchar(combobox1.text),pchar(FileRead),pchar(FileWrite));
end
else
begin

StopHook;
button1.caption:='开始';
end;

end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

if button1.caption<>'开始' then
Button1Click(Sender);
end;

procedure TForm1.FormShow(Sender: TObject);
var
reg:tregistry;
i:integer;
begin

reg:=tregistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.openkey('System/CurrentControlSet/Services/Class/Modem/',true);
reg.GetKeyNames(combobox2.items);
reg.closekey;
for i:=0 to combobox2.items.count-1 do

begin

reg.openkey('System/CurrentControlSet/Services/Class/Modem/'+combobox2.items,true);
if reg.ValueExists('model') then
combobox1.items.add('//./'+reg.ReadString('model'));
reg.closekey;
end;

reg.free;
combobox1.itemindex:=1;
end;

end.

object Form1: TForm1
Left = 192
Top = 107
Width = 284
Height = 220
Caption = '锦山文件读写跟踪软件1.0'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 120
Width = 104
Height = 13
Caption = '读文件时记录到：'
end
object Label2: TLabel
Left = 16
Top = 160
Width = 104
Height = 13
Caption = '写文件时记录到：'
end
object ComboBox2: TComboBox
Left = 64
Top = 24
Width = 89
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'ComboBox2'
Visible = False
Items.Strings = (
'//./COM1'
'//./COM2'
'//./COM3'
'//./COM4'
'//./COM5'
'//./COM6')
end
object Button1: TButton
Left = 88
Top = 72
Width = 75
Height = 25
Caption = '开始'
TabOrder = 0
OnClick = Button1Click
end
object ComboBox1: TComboBox
Left = 24
Top = 24
Width = 225
Height = 21
ItemHeight = 13
TabOrder = 1
Text = 'ComboBox1'
Items.Strings = (
'//./COM1'
'//./COM2'
'//./COM3'
'//./COM4'
'//./COM5'
'//./COM6'
'COM1'
'COM2'
'COM3'
'COM4'
'COM5'
'COM6')
end
object Edit1: TEdit
Left = 120
Top = 112
Width = 137
Height = 21
TabOrder = 3
Text = 'c:/SpyCom.dat'
end
object Edit2: TEdit
Left = 120
Top = 152
Width = 137
Height = 21
TabOrder = 4
Text = 'c:/SpyCom.dat'
end
end

接受答案了.