请教为什么用delphi编译后生成的exe文件总是提示有病毒

Question

编译出来的文件为什么总是有病毒提示？如下图

Answer 1

补充一下，我编译的程序里面是有Edit控件文本的读取。会是这个原因吗？

Answer 2

我试编译的是这个程序
如何把一个程序中 Edit 中的文本赋给另一个程序的 Edit ? - 回复 "Disk_" 的问题
本例效果图:首先应该知道要接受文本的 Edit 的句柄, 这个有很多办法, 本例用了最简单的自我获取的办法.程序1: 准备接受文本的程序
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Edit1.Handle);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Text := '程序1';
  Button1.Caption := '显示 Edit1 的句柄';
end;end.程序2: 发送文本的程序
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  p: PChar;
  h: HWND;
begin
  p := PChar(Edit1.Text);
  h := HWND(StrToIntDef(Edit2.Text, 0));
  SendMessage(h, WM_SETTEXT, StrLen(p), Cardinal(p));
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Text := '程序2';
  Button1.Caption := '把 Edit1 中的内容发送到 Edit2 中句柄指示的文本控件中...';
  Button1.WordWrap := True; {如果是 Delphi 2009 之前的版本, Button 可能不支持换行}
end;end.这是发送文本, 如果是从对方接收文本要稍麻烦些, 参见:
http://www.cnblogs.com/del/archive/2008/11/15/1334237.html另外: 获取任意窗口(或控件)的句柄, 可以参见:
http://www.cnblogs.com/del/archive/2008/03/09/1097793.html

Answer 3

检查\Source\Vcl\Consts.pas的大小是不是12.9KB，如果大就是中毒了。

Answer 4

检查了一下Consts，是12.2KB。