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 xe2 idhttp 获取utf-8编码中文网页

Delphi 选择目录对话框（selectdirectory 函数）

Delphi 文件crc和md5校验

Delphi延时4种方法

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi 让嵌入窗体的 webbrowser 控件无边框

Delphi tms web core 实现下载

Delphi 数据集转换json对象

Delphi 让程序自己更新本程序

Delphi 获取指定进程中的～内存数据

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

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