TProcess win64 и win32 программа

[Vadim]

На компе с Win64 запускаю 32-ухбитную программу в которой вызывается (с помощью TProcess) системная программулька "quser.exe" с целью узнать, кто тут у меня зарегистрировался на сервере, чтобы потом его насильно выгнать. Если на Win32-ОС всё спокойно отрабатывает, то на Win64 получаю ошибку:

Failed to execute : 2

Имя программы записано вместе с путём, так что ошибка поиска экзешника исключена:

Код: Выделить всё

Var
  Process: TProcess;
...
  Process.Executable := 'c:\windows\system32\quser.exe'

Кто что посоветует?

[Sergei I. Gorelkin]

win64 подсовывает 32-битным программам вместо "c:\windows\system32\" путь "c:\windows\syswow64", в котором нет quser.exe.
Для отключения такого поведения надо вызывать функцию Wow64DisableWow64FsRedirection из kernel32.dll, для включения обратно - Wow64RevertWow64FsRedirection.

[Vadim]

Sergei I. Gorelkin
Ага! Большое спасибо!

Добавлено спустя 42 минуты 14 секунд:
Ещё вопрос, есть ли в FPC какой-нибудь {$DEFINE} который в программе для win32 укажет, что операционка всё-таки 64-ехразрядная?
Или не будет ли ошибки исполнения, если эти функции вызвать в 32-ухразрядной ОС?

[MysticCoder]

это в рантайме надо смотреть
http://wiki.lazarus.freepascal.org/Detect_Windows_x32-x64_example