Lazarus RDP приложение не запускается на Windows 10

[misabov]

Приложение создаю на Lazarus (даже самое простое - одно окно). Размещаю его на терминальном сервере Windows 2008. В диспетчере удаленных приложений RemoteApp , добавляю его как Удаленное приложение RemoteApp. Создаю RDP-файл, который потом копирую на комп с Windows 10. При запуске RDP-файла на этом компе (с Windows 10), окно приложения не появляется, но бывает что и появляется но обрезанное (только кусочек маленький видно). В диспетчере задач терминального сервера в процессах оно присутствует. На компе с Windows 7 такой проблемы нет - все отображается и работает. А приложения созданные на Delphi и размещенные на терминальном сервере - отображаются прекрасно на WIN7 и на WIN10. В параметрах проекта на Lazarus всё перепробовал. Не могу понять, в чем может быть проблема?

[Alex2013]

Первая мысль: Что c разрядностью? Если Windows 10 64х разрядная, а Лазарус (и серверная винда ) 32-х разрядные то 32-х разрядные приложения запускаются через дополнительный программный слой для эмуляции 32 разрядных АПИ который вполне возможно криво поддерживается в RemoteApp . (Ну или наоборот что мнение вероятно, но вдруг ! В общем пробуй. )

[misabov]

Alex2013 Серверная винда и Windows 10 - 64 разрядные . Приложение Лазаря 32 разр. И приложение Делфи тоже 32 разр. Запуск приложений RDP: Delphi отображается на Win10 а Lazarus - нет. Приложение самое простое (для теста) - одна форма. В параметрах проекта Лазаря "использовать ресурс манифест" -включен и выбраны значения такие, как и в проекте на Делфи. Пробовал на нескольких рабоч. станциях с Виндой-10 64х - таже картина, иногда может показать кусок обрезанный этой формы, без титульной части формы.

[Alex2013]

Что сказать? Пробуй "Лазарь64" с компиляцией на 64-е разряд (не факт что поможет "но вдруг". )
Следующий вариант: у лазаря в LCL своя отрисовка возможно дело в этом. (пробуй програму "с чистым" WinApi или LLCL ( https://github.com/FChrisF/LLCL ) )

[e2t]

Добавь в код проекта

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

Application.MainFormOnTaskBar := True;

Примерно так:

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

begin
  RequireDerivedFormResource := True;

  {$IFDEF WINDOWS} {$WARNINGS OFF}
  Application.MainFormOnTaskBar := True;
  {$WARNINGS ON} {$ENDIF}

  Application.Scaled := True;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.