可以使用VirtualProtect在Delphi中更改资源吗?

我正在D2010做一个简单的本地化工作。我正在处理表单上的所有字符串,因为ETM对于我的需求来说似乎太过分了,其他第三方工具也是如此(虽然我现在不太确定!)

下面更改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, 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;