Localization Consts

ConstsRus.pas

unit ConstsRus;

interface

implementation

uses Windows, Consts;

procedure HookResourceString(ResStringRec: pResStringRec; NewStr: pChar) ;
var
    OldProtect: DWORD;
begin
    VirtualProtect(ResStringRec, SizeOf(ResStringRec^), PAGE_EXECUTE_READWRITE, @OldProtect) ;
    ResStringRec^.Identifier := Integer(NewStr) ;
    VirtualProtect(ResStringRec, SizeOf(ResStringRec^), OldProtect, @OldProtect) ;
end;

initialization
    {
        SMsgDlgWarning = 'Warning';
        SMsgDlgError = 'Error';
        SMsgDlgInformation = 'Information';
        SMsgDlgConfirm = 'Confirm';
        SMsgDlgYes = '&Yes';
        SMsgDlgNo = '&No';
        SMsgDlgOK = 'OK';
        SMsgDlgCancel = 'Cancel';
        SMsgDlgHelp = '&Help';
        SMsgDlgHelpNone = 'No help available';
        SMsgDlgHelpHelp = 'Help';
        SMsgDlgAbort = '&Abort';
        SMsgDlgRetry = '&Retry';
        SMsgDlgIgnore = '&Ignore';
        SMsgDlgAll = '&All';
        SMsgDlgNoToAll = 'N&o to All';
        SMsgDlgYesToAll = 'Yes to &All';
    }

    HookResourceString(@SMsgDlgWarning, 'Предупреждение');
    HookResourceString(@SMsgDlgError, 'Ошибка');
    HookResourceString(@SMsgDlgInformation, 'Оповещение');
    HookResourceString(@SMsgDlgConfirm, 'Подтверждение');
    HookResourceString(@SMsgDlgYes, 'Да');
    HookResourceString(@SMsgDlgNo, 'Нет');
    HookResourceString(@SMsgDlgCancel, 'Отмена');
    HookResourceString(@SMsgDlgHelp, 'Помощь');
    HookResourceString(@SMsgDlgHelpNone, 'Помощь не доступна');
    HookResourceString(@SMsgDlgHelpHelp, 'Помощь');
    HookResourceString(@SMsgDlgAbort, 'Прервать');
    HookResourceString(@SMsgDlgRetry, 'Повторить');
    HookResourceString(@SMsgDlgIgnore, 'Пропустить');
    HookResourceString(@SMsgDlgAll, 'Все');
    HookResourceString(@SMsgDlgNoToAll, 'Нет для всех');
    HookResourceString(@SMsgDlgYesToAll, 'Да для всех');

end.