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 获取网卡mac为软件注册机器码

Delphi free和freeandnil之间的区别

Delphi 十进制转十六进制

Delphi xe5实现按android的back键无法退出关闭程序

Delphi idhttp代理设置

Delphi xe安装2010版控件

Delphi 使用onvalidate事件或onvalidating事件验证在输入字段(tedit)中输入的值

Delphi键盘按键伪码多类型

Delphi中利用中断获得系统启动以来的时间

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



打赏

取消

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

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

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

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

评论

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