почему этот код интерфейса не работает.

[KWN, lnc]

меняется заголовок а вот насчет кнопки несрабатывает (((

SetLanguage(GetDlgItem(Button1.Handle, 2), 'Russian.ini'); не хватает ему чегото

[Скандербег]

Забавный код. Что то новенькое в дельфи программировании.
Создать VCL приложение с формой, а затем все делать API функциями. Можно, конечно, и API применять когда необходимо, но зачем их применять везде.
Кто сказал, что у Button1 identifier равен 2 (GetDlgItem(Button1.Handle, 2))?

Ну, а код... и сказать нечего. Если помягче, то не работает он как надо. В переплавку его.

[KWN, lnc]

можно ли сделать так чтобы язык интерфейса лежади в отдельных файлах как у меня там Eng.ini Rus.ini и чтобы нумерация была 1=Форма 2=Кнопка и т.д. ???? помогите пожалуйста

[Скандербег]

Предварительно расставив значения свойства Tag у тех компонентов, у которых надо менять надписи. Значения Tag должны соответствовать ключам в ini-файлах. В этом проекте Button1.Tag = 2.

procedure SetLanguage({hWin: HWND; id: integer;} LangFile: String);
var
  I : Integer;
  hWin: HWND;
begin
  Edit_SetText(Form1.Handle, IniReadString(GetCurDir + 'Language\' + LangFile, 'Language', '1', ''));
  for I := 0 to Form1.ComponentCount-1 do
    if Form1.Components[I].Tag > 0 then begin
      hWin := TWinControl(Form1.Components[I]).Handle;
      Edit_SetText( hWin,
                   IniReadString(GetCurDir + 'Language\' + LangFile,
                   'Language', IntToStr(Form1.Controls[I].Tag), ''));
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var id : integer;
begin
  SetLanguage('Russian.ini');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLanguage('english.ini');
end;

[KWN, lnc]

Скандербег? Спасибо огромное)))

[KWN, lnc]

а можно ли сделать похожее на это .ini

[LangOptions]
InformationTitle=Информация
ConfirmTitle=Подтверждение
ErrorTitle=Ошибка