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中case语法的使用方法

Delphi 四舍五入含小数点函数

Delphi 运行js

Delphi android-api 开发常用函数

Delphi实现二分查找

Delphi篇之写托盘图标

Delphi 判断安卓app第一次启动

Delphi侦测按键输入

Delphi里参数修饰符const、var、out的作用分别是什么?

Delphi打开网址链接的四种方法

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

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