Русификация кнопок InputBox в D7

[Xo66um]

Всем привет.

Собственно, сабж. Можно ли изменить заголовки кнопок в диалоге InputBox из программы? т.е. не прибегая к редактированию каких-то определенных файлов Delphi 7.

[Stilet]

Придется переписать исходники InputBox.
Или написать свою замену.

[Xo66um]

Спасибо, разобрался.

Плюс поставил.

[Человек_Борща]

Придется переписать исходники InputBox.
Или написать свою замену.

или поставить хук WinAPI и переписать свои же ресурсы в Run-Time. Я так MessageDlg сделал мультиязычным в XE6.

[Stilet]

или поставить хук WinAPI

ЯИМХО проще свой написать. Там не так уж и много надо, это ведь простейший диалог.

[Человек_Борща]

ЯИМХО проще свой написать. Там не так уж и много надо, это ведь простейший диалог.

По кол-ву кода - не сказал бы. Хук 5 строчек - диалог - много строчек. © Ындусский метод.

[Xo66um]

Сообщение от Человек_Борща

или поставить хук WinAPI и переписать свои же ресурсы в Run-Time. Я так MessageDlg сделал мультиязычным в XE6.

Пример можно? А то я вообще не понимаю как это можно сделать.

[Человек_Борща]

http://www.swissdelphicenter.ch/en/showcode.php?id=946

ses
  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.

[Xo66um]

Сообщение от Человек_Борща

http://www.swissdelphicenter.ch/en/showcode.php?id=946

Очень интересный метод. Не знал, что можно изменять константы. Спасибо большое

[Vapaamies]

А еще на CodeNet.ru я когда-то выкладывал русифицированные модули с константами VCL. По Сети ходит также альтернативный перевод.