本文整理自网络,侵删。
procedure TForm1.Button4Click(Sender: TObject);var myString:PChar;Begin //SetLength (S1, 100); //GetWindowText (Handle, PChar (S1), Length (S1)); //Button1.Caption := S1;
GetMem(myString,1024);//开辟1024个字节
GetWindowText (Handle, myString, 100); Button4.Caption :=format('%s:%d',[myString,strlen(myString)]); FreeMem(myString,1024);//释放end;
相关阅读 >>
Delphi xe filesizebyname 要引用哪些文件
Delphi fdconnection1 获取数据库总记录数
Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式
Delphi通过adoquery控件实现sqlserver数据库多结果集的数据打印
更多相关阅读请进入《Delphi》频道 >>