以下代码是否可以更改Const.pas字符串,以更改标准消息框上的按钮标签?
procedure HookResourceString(rs: PResstringRec; newStr: PChar);var oldprotect: DWORD;begin VirtualProtect(rs,SizeOf(rs^),PAGE_EXECUTE_READWRITE,@oldProtect); rs^.IDentifIEr := Integer(newStr); VirtualProtect(rs,oldProtect,@oldProtect);end;const NewOK: PChar = 'New Ok'; NewCancel: PChar = 'New Cancel';Procedure TForm.FormCreate;begin HookResourceString(@SMsgDlgOK,NewOK); HookResourceString(@SMsgDlgCancel,NewCancel); end;解决方法 是的,它应该没问题,但我有一些意见:
>确保一次只从一个线程调用HookResourceString函数.如果两个线程同时调用它,则最终可能会恢复错误的权限.>此外,对于多线程,请确保在某些其他线程可能尝试加载资源字符串时不使用此代码. LoadResstring两次读取IDentifIEr字段,并且它需要两次都具有相同的值.>不需要将新值声明为类型常量.普通的真常数很好. (编译器知道它们需要是PChars,因为它们是作为PChar参数的实际参数传递的.)
总结以上是内存溢出为你收集整理的可以使用VirtualProtect来更改Delphi中的资源吗?全部内容,希望文章能够帮你解决可以使用VirtualProtect来更改Delphi中的资源吗?所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)