Ok to use VirtualProtect to change resource in Delphi?
I'm working on a simple localization effort in D2010. I'm handling all strings on forms because ETM seems like overkill for my needs, as did other 3rd party tools... (although I'm not so sure at this point!)
Is the code below for changing the Const.pas strings considered safe to change the button labels on standard message boxes?
procedure HookResourceString(rs: PResStringRec; newStr: PChar);
var
oldprotect: DWORD;
begin
VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldProtect);
rs^.Identifier := Integer(newStr);
VirtualProtect(rs, SizeOf(rs^), oldProtect, @oldProtect);
end;
const
NewOK: PChar = 'New Ok';
NewCancel: PChar = 'New Cancel';
Procedure TForm.FormCreate;
begin
HookResourceString(@SMsgDlgOK, NewOK);
HookResourceString(@SMsgDlgCancel, NewCancel);
end;
开发者_开发技巧
Yes, it should be fine, but I have some comments:
Make sure to call your
HookResourceString
function from only one thread at a time. If two threads call it simultaneously, you could end up restoring the wrong permissions.Also for multithreading, make sure you don't use this code at a time when some other thread might be attempting to load a resourcestring.
LoadResString
reads theIdentifier
field twice, and it needs to have the same value both times.There's no need to declare the new values as typed constants. Ordinary true constants are fine. (The compiler knows they need to be PChars because they're passed as actual arguments for a PChar parameter.)
Why not use dxgettext? It's open source, so you could at least take a look at how they do it...
http://dxgettext.po.dk/
精彩评论