function GetSysWow64Dir: String;
Эта функция действительна только в 64-разрядной версии Windows. Возвращает полный путь к папке SysWOW64, которая используется для 32-разрядных системных файлов. Функция возвращает пустую строку, если её вызов выполняется на 32-разрядной версии Windows, или если по каким-то причинам не удаётся получить путь к каталогу на 64-разрядной версии Windows (что маловероятно).
var S: String; begin S := GetSysWow64Dir; // Проверяем строку S: если строка пустая, // каталог SysWOW64 не существует. if S <> '' then MsgBox('Каталог SysWOW64: ' + S, mbInformation, MB_OK) else MsgBox('Здесь нет каталога SysWOW64.', mbInformation, MB_OK); end;