unit Unit1;

{©Drkb v.3(2007): www.drkb.ru}

interface

uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

 TForm1 = class(TForm)

  procedure FormCreate(Sender: TObject);

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure ChangeMenuLanguage(AHandle: THandle);

const

 RusTranscriptionCount = 6;

 SysMenuID: array [0..RusTranscriptionCount - 1] of UINT =

  (SC_RESTORE, SC_MOVE, SC_SIZE, SC_MINIMIZE, SC_MAXIMIZE, SC_CLOSE);

 RusTranscription: array [0..RusTranscriptionCount - 1] of String =

  ( '&Восстановить', '&Переместить', '&Размер', '&Свернуть',

  'Р&азвернуть', '&Закрыть'#9'Alt+F4');

var

 SysMenu: HMENU;

 MenuItem: TMenuItemInfo;

 ItemCount, I, A: Integer;

 MenuString: array [0..MAXCHAR - 1] of Char;

begin

 SysMenu := GetSystemMenu(AHandle, False);

 if SysMenu <> 0 then

 begin

  ItemCount := GetMenuItemCount(SysMenu);

  for I := 0 to ItemCount - 1 do

  begin

  ZeroMemory(@MenuItem, SizeOf(TMenuItemInfo));

  MenuItem.cbSize := SizeOf(TMenuItemInfo);

  MenuItem.fMask := MIIM_ID or MIIM_STRING or MIIM_BITMAP;

  MenuItem.dwTypeData := MenuString;

  MenuItem.cch := MAXCHAR;

  if GetMenuItemInfo(SysMenu, I, True, MenuItem) then

  for A := 0 to RusTranscriptionCount - 1 do

  if SysMenuID[A] = MenuItem.wID then

  begin

  MenuItem.dwTypeData := PChar(RusTranscription[A]);

  MenuItem.cch := Length(RusTranscription[A]);

  if not SetMenuItemInfo(SysMenu, I, True, MenuItem) then RaiseLastOSError;

  end;

  end;

 end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 ChangeMenuLanguage(Handle);

 ChangeMenuLanguage(Application.Handle);

end;