delphi GetMem使用
2021-04-01 23:27
阅读：544
标签：phi form ring color proc mys win button RoCE delphi GetMem使用 标签：phi form ring color proc mys win button RoCE 原文地址：https://www.cnblogs.com/yangxuming/p/9228216.html
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;
评论
亲，登录后才可以留言！