procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring,1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format(‘%s:%d‘,[mystring,strlen(mystring)]); FreeMem(mystring); end;
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。