频道分类

Delphi 取最前窗口标题(不重复)

作者:admin 来源: 日期:2013/1/9 13:51:29 人气: 标签:

 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;