请教为什么用delphi编译后生成的exe文件总是提示有病毒 编译出来的文件为什么总是有病毒提示?如下图 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 补充一下,我编译的程序里面是有Edit控件文本的读取。会是这个原因吗? 我试编译的是这个程序如何把一个程序中 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 检查\Source\Vcl\Consts.pas的大小是不是12.9KB,如果大就是中毒了。 检查了一下Consts,是12.2KB。 求助:请问有没有这样的控件 线程中使用ADO,切换输入法卡死,急救啊!!! 回调函数执行6次以后,结尾的时候报访问越界错误?求解了 引用DLL的问题 一个简单的问题,delphi 怎么不能实现?? fae 超醋难题(但实用的一个问题,请大家来看看) DELPHI调用SQL的问题 请问一下关于停靠窗口的问题(DOCK) fldARRAY这条语句为什么编译错误 如何把edit1.text的值作为sql server的数据库名字用create database语句建立,请细心指教。 ADOQuery参数查询问题?
如何把一个程序中 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
检查了一下Consts,是12.2KB。