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 xe filesizebyname 要引用哪些文件

Delphi 7 中的随机函数

Delphi开发获取文件md5值

Delphi fdconnection1 获取数据库总记录数

Delphi简单的字符串加密解密函数

Delphi webbrowser获取iframe页面内容

Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式

Delphi+汇编例子

Delphi通过adoquery控件实现sqlserver数据库多结果集的数据打印

Delphi中的sha256算法

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

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