[UltraBloxX]

В программе нужно изменить текст на кнопке, но по выходу должно быть всё как было до запуска. SetWindowText устанавливает текст нормально а GetWindowText не возвращает текст кнопки. Как получить текст? Устанавливать по выходу текст "пуск" не предлагать - программа может быть запущена и не на русской Windows.

Да, у меня Delphi 2009 - по этому все версии функций юникодные.

[UltraBloxX]

Проблема решилась следующей функцией

Код:

function MyGetWindowText(h: THandle): string;
var
    len: Integer;
    txt: PWideChar;
begin
    len := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
    GetMem(txt, len);
    SendMessage(h, WM_GETTEXT, len, Longint(txt));
    Result := txt;
    FreeMem(txt);
end;