Delphi 修改资源字符串

最新推荐文章于 2022-11-30 21:32:54 发布

D调的聪

最新推荐文章于 2022-11-30 21:32:54 发布

阅读量716

点赞数

分类专栏： Delphi 文章标签： Delphi

本文链接：https://blog.csdn.net/xieyimo9/article/details/74144229

版权

Delphi 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

Demo下载：修改资源字符串

主要代码

procedure SetResourceString(OldValue, NewValue: PResStringRec);
var
  OldProtect: DWORD;
begin
  { 通过 VirtualProtect 修改指定数据所在区域的内存属性为可读写，该区域原来的属性保存在 OldProtect 中 }
  VirtualProtect(OldValue, SizeOf(PResStringRec), PAGE_EXECUTE_WRITECOPY, @OldProtect);
  { 赋值新值 }
  PResStringRec(OldValue)^ := PResStringRec(NewValue)^;
  { 恢复原内存区域内的属性 }
  VirtualProtect(OldValue, SizeOf(PResStringRec), OldProtect, @OldProtect);
end;

调用例子

procedure testShow;
begin
  ShowMessage(SMsgDlgOK);
end;

procedure testChange;
resourcestring
  test = '改变了木有';
begin
  testShow;
  SetResourceString(@SMsgDlgOK, @test);
  testShow;
end;