определить кодировку

[Putin-mode]

Добрый вечер! Пишу программу для распаковки дров при текстовом этапе установки Windows XP. (хоть такая уже и есть но я чисто для себя)
Появилась проблема с отображение русского языка. Текст который вписан в кнопку и в чекбокс отображается нормально а вот лейблы никак не хотят.



первый лейбл я обработал этой функцией

function StrAnsiToOem(const aStr : String) : String;
var
  Len : Integer;
begin
  Result := '';
  Len := Length(aStr);
  if Len = 0 then Exit;
  SetLength(Result, Len);
  CharToOemBuff(PChar(aStr), PChar(Result), Len);
end;

Label5.Caption :=  StrAnsiToOem('Откуда');

а второй просто

Label6.Caption :=  'Откуда';

ничего не помогло.

Не подскажете в чем может быть загвоздка?

P.S. программа работает на 40 минуте установки винды. По идее там должна быть одна из 2 кодировок. или win1251 или dos 866. Но на деле почему то ни то ни другое не срабатывает.

[Stilet]

Шрифт по ходу не подтянулся...
Попробуй что-ли принудительно загрузить шрифт, который программа использует.
Я когда-то в сети видел похожие проблемы, но это было давно, сейчас не помню чем решилось. По-моему авторы просто переходили на лейбы на Аглицком...

[opel431]

Смотря в чем работаем и какая кодировка нужна.
Для русского:
D7 - Font.Charset в RUSSIAN_CHARSET;
D2009+ - лучше Font.Charset := DEFAULT_CHARSET;

[Putin-mode]

Проблему решил. В самой дельфе в свойствах шрифта лейбла поставил Russian_charset.

[Putin-mode]

Ваш ответ не успел увидеть, так как писал ))) сам щас тоже до этого способа дошел. Правда если запускать на живой системе то шрифт нормальный, а если уже на 40 минуте то именно этот шрифт в лейблах увеличивается с 8 до 10 где то. Но это уже мелочи.

Всем спасибо!