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 idhttp post中文的问题

delph做的百叶窗小程序

Delphi更改android亮度

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

Delphi实现屏幕抓图

Delphi 对image字段存取图片、文件

线程与进程的区别

Delphi分割字符串的函数--extractstrings

Delphi 数组类型与数组指针的巧妙利用

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



打赏

取消

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

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

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

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

评论

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