delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放

本文整理自网络，侵删。

 
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 判断一个颜色是否是亮色

Delphi中查找进程及强行结束进程的方法

Delphi 中窗体form显示在第二个显示器中的方法

Delphi中使用自定义字体

Delphi 如何获得其他进程的token

如何判断硬盘是fat32还是ntfs

Delphi #9、 #10、 #13 表示的意思

Delphi cef4Delphi chromium1 设置user-agent

Delphi 获取文件夹下包括子目录所有文件

Delphi 最简单的升级下载代码

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

转载请注明出处：木庄网络博客 » delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放