Change resource strings at runtime.

posted 9 Mar 2010, 03:42 by Delphi Basics
This snippet shows you how to modify resource strings at runtime of an application:

uses
    Consts;

procedure TForm1.Button1Click(Sender: TObject);
begin
    InputBox('Test', 'Enter something', 'Test');
end;

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';

initialization
    HookResourceString(@SMsgDlgOK, NewOK);
    HookResourceString(@SMsgDlgCancel, NewCancel);
end.


Comments