Я тут когда-то выкладывал программу, которая графики рисует и всё такое.
Мне вдруг эта программа очень понадобилась, но старые ехе не сохранились нигде.
Программа собрана в GNAT2010.
Однако при сборке в GNAT2011 выдаётся предупреждение, что-то типа что вызывается инициализатор объекта, которого не существует и типа будет ошибка при запуске (повторить флаги, при которых выдаётся это предупреждение, не удалось). И вправду, exe при запуске сразу закрывается.
Плюс со средой что-то стало: при попытке запустить программу (даже новую) из среды выдаётся ошибка:
Где б взять еще 2011, чтобы проверить...
2012 прекрасно собирает проект, и запускает, кстати:
только изменил первую строку GPR-файла на
with "win32ada.gpr";, и изменил структуру папок:
Во, за екзешник спасибо, очень нужен!
Правда ерунда с кодировкой в заголовке окна смущает, но это ладно.
Новая структура папок мне не нравится, ибо по замыслу UNITS она как бы одна на все проекты.
Ерунда с кодировкой - это из-за нерусифицированной Windows. В русскоязычной (или с применением AppLocale, позволяющей имитировать таковую) все нормально. Тот же EXE-шник, запущенный на XP через AppLocale:
А заголовки окон в английской версии быть русскими не могут?
Дело в том, что я пытался и сами окна создавать через CreateWindowW, но в заголовке была какая-то ерунда, хотя я текст в них отправлял так же, как и в кнопки, поля ввода итд, поэтому я для окон сделал исключение.
Могут. Но для этого надо приложить дополнительные усилия. Мало того, что нужно создавать окна через CreateWindowW, так еще и текст, который будет отправляться в заголовок, должен сохраняться не редактором GPS, а сторонним. Дело в том, что для корректной работы с заголовками окон (странно, но это так. С остальным кириллическим текстом это не так критично, хотя тоже желательно) нужно текст хранить в UTF8 with BOM, чего редактор GPS не делает, он хранит без BOM.
Поэтому обычно я делаю проще: все (даже не только кириллические) строковые константы выношу в отдельный модуль, который редактирую другим редактором. Можно редактировать и GPS-овским, но перед сборкой обязательно пересохранить сторонним в нужном формате.
with Interfaces.C;, а потом создается окно:
package TxtConst is
use type Interfaces.C.wchar_array; -- Для &
Main_Class : constant Interfaces.C.wchar_array := "TestAppClass" & Interfaces.C.wide_nul;
Main_Caption : constant Interfaces.C.wchar_array := "Заголовок - кириллица" & Interfaces.C.wide_nul;
end TxtConst;
function To_LPCWSTR is
new Ada.Unchecked_Conversion (System.Address, Win32.LPCWSTR);
-- ...
Main_Hwnd := CreateWindowW
(
To_LPCWSTR(Main_Class'Address),
To_LPCWSTR(Main_Caption'Address),
WS_OVERLAPPEDWINDOW or WS_CLIPCHILDREN,
CW_USEDEFAULT, CW_USEDEFAULT, 200, 150,
Null_Address, Null_Address, hInst, Null_Address
);
А дописать BOM к строке принудительно прямо в GPS можно?
Типа
UTF8_BOM : constant char := ...
Main_Class : constant Interfaces.C.wchar_array := UTF8_BOM & "TestAppClass" & Interfaces.C.wide_nul;
Нет, нельзя. BOM относится не к отдельной цепочке символов, а ко всему файлу. И стоять этот самый признак должен не в начале строки, а именно в начале исходника, который эту строку содержит.