delphi 取得当前运行窗口的标题

本文整理自网络，侵删。

 procedure tform1.timer1timer(sender:object);
var
whandle,wparenthandle:hwnd;
wcaptionlen:integer;
wtext:pchar;
ctime:tdatetime;
window,number_window:longint;
begin
//取得时间
ctime:=now();
//取得窗口名
whandle:=getforegroundwindow();
//取得当前活动的应用程序的窗口句柄
wparenthandle:=getparent(whandle);
if wparenthandle<>0 then
whandle:=wparenthandle;
wcaptionlen:=getwindowtextlength(whandle);
getmem(wtext,wcaptionlen+1);
getwindowtext(whandle,wtext,wcaptionlen+1);
memo1.text:=datetostr(ctime)+'-'+timetostr(ctime)+'所属程序:'+wtext;
end; 

相关阅读 >>

Delphi 监控其它进程

Delphi截取技巧 lastdelimiter

Delphi 中相对路径与绝对路径函数

Delphi pascal 单元文件的特殊定义格式

Delphi xe2 - 点点滴滴

Delphi 模拟按键的一些误解

Delphi写的一个屏幕截取函数

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi 注册表管理

Delphi embeddedwb 遍历frames并执行子frame的js脚本

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

转载请注明出处：木庄网络博客 » delphi 取得当前运行窗口的标题