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;

相关阅读 >>

system单元一些有用的变量或者常数

Delphi 根据delta自动生成sql语句

Delphi 调用批处理

Delphi 判断操作系统是否是64位的函数

Delphi中进行指纹仪的二次开发

Delphi检测当前鼠标点击处是否在指定控件内部

Delphi fmx播放m4a声音文件

Delphi 跨平台获取文件列表

Delphi 获取url特殊路径

Delphi 内进行音量控制及静音

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...