Delphi 取最前窗口标题（不重复）

本文整理自网络，侵删。

 Delphi 取最前窗口标题（不重复）

memo1.Align:=alClient;

procedure TForm1.Timer1Timer(Sender: TObject);
var
p:pchar;
itemp:integer;
begin

p:=allocmem(255);
itemp:=GetForegroundWindow;
GetWindowText(itemp,p,255);
if (p<>'') then
begin
if Pos(p,Memo1.Text)=0 then //不重复，则添加，已有重复的不再添加到memo中

Memo1.Lines.Add(p) ;
end;
freemem(p,255);
end;
 

相关阅读 >>

Delphi 如何禁止用户更改窗体的大小

Delphi 对提交参数编码

Delphi 清空目录以及子目录

Delphi winapi: getmodulefilename、getmodulehandle

Delphi中嵌入汇编检测是否在虚拟机里运行

Delphi sametext

Delphi 获取系统的硬盘分区及使用信息

Delphi 将 html 代码直接加入到 twebbrowser 组件中去

用Delphi通过setupapi.dll列举和停用硬件设备

Delphi读写二进制文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取最前窗口标题（不重复）