unit Unit1;
   
interface
   
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
   
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   
var
  Form1: TForm1;
   
implementation
   
uses Consts; // 大部份的 resourcestring 所在 unit
   
{$R *.DFM}
   
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'; // 新的 Caption 值
   
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('TEST');
end;
  
initialization
  HookResourceString(@SMsgDlgOK, NewOK); // SMsgDlgOK 為 consts unit 中一個變數    end.