unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
var h:HWnd;
i:integer;
WText : array [0..255] of char;
begin
h:=GetActiveWindow();
GetWindowText(h,WText,255);
edit1.Text:= WText;
end;end.
以上代码,在这个程序为当前程序时能看到edit1中的内容,当为非活动时,edit1就为空了,这是为什么?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
var h:HWnd;
i:integer;
WText : array [0..255] of char;
begin
h:=GetActiveWindow();
GetWindowText(h,WText,255);
edit1.Text:= WText;
end;end.
以上代码,在这个程序为当前程序时能看到edit1中的内容,当为非活动时,edit1就为空了,这是为什么?
解决方案 »
- ACCESS数据表 select 多表查询问题
- SQL 简单问题~~帮忙看一下~~
- 请问,从函数或过程的定义跳到实现部分的快捷键是什么?
- 请朋友们推荐一些有关搜索制作游戏修改器的网站或EBOOK,谢谢,来者有分
- 关于adoquery多表操做的多行删除,在线等待……
- 怎样读取CheckListBox中每一行内容,在线等候.
- strpos是否区分大小写?如果是,有没有不区分大小写的?
- 绘制基准谱是怎么做的呢,用什么控件比较好呢啊?请各位高手指点一下,
- 刚接触dephi,dephi7只显示4位小数 我想要把列名:用量 的小数点显示8位,AsString,AsFloat改来改去...好烦啊啊啊啊
- 在程序中如何动态修改PARADOX表的结构?
- ComboBox1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);中的key是什么意思?
- 仅仅是打印一些单据,如送货单、生产单、领料单等,用Rave是否够用?
_______________________________
那怎样才能在非活动时执行上述功能呢?
GetForegroundWindow 表示系统的活动窗口你再试试