Для RAD Studio XE7
Начиная с RAD Studio XE7 Доступ к хендлу приложения можно получить так FMX.Platform.Win.ApplicationHWND
Для версий < XE7
Для всех, у кого среда <= XE6 делаем следующее:
Открываем исходный файл FMX.Platform.Win.pas (Предполагаемое место расположения файла "/Program Files(x86)/Embarcadero/Studio/14.0/Source/fmx/")
В секцию interface модуля объявляем функцию:
function ApplicationHWND: HWND;
В секцию implementation модуля добавляем ее реализацию (лучше в конец модуля либо после объявления глобальной переменной PlatformWin):
function ApplicationHWND: HWND;
begin
if PlatformWin <> nil then
Result := PlatformWin.GetApplicationHWND
else
Result := 0;
end;
Добавляем модифицированный файл FMX.Platform.Win.pas в ваш проект.
P.S. Исходники коммерческих продуктов выкладывать запрещено. Поэтому выше приведено руководство.