Delphi 10.1 Berlin Стили приложения

[gdu]

Добрый день!
Народ подскажите уже всю голову сломал, ситуация следующая:
Есть мной написанное приложение на Delphi 10.1 Berlin, простенькое, при применении стиля для приложения через Options-Shift+Ctrl+F11/ Appearance
выбираю стиль приложения Windows10 Dark, мое приложение перестает открывать исполняемый файл по сети (*.exe), восстанавливаю стиль обычный все работает!!! Что может быть? Ясно дело проблема наверное в стиле, но без стиля нельзя оставлять т.к процесс визуализации на стадии завершения и перерабатывать его не хочется. Что может быть? может кто знает решение?

if CheckBox7.checked then begin
ShellExecute(Handle, 'open', '\\192.168.0.2\setup.exe', nil, nil, SW_RESTORE);
end else
ShellExecute(Handle, 'open', '\\192.168.0.2\setup1.exe', nil, nil, SW_RESTORE);

end;

[Alex11223]

Что значит "перестает"?
Читайте документацию, смотрите возвращаемое значение.

[gdu]

Сообщение от Alex11223

Что значит "перестает"?
Читайте документацию, смотрите возвращаемое значение.

Перестает работать кнопка ЗАПУСТИТЬ.

[gdu]

Вот окно включения стилей

[Sciv]

Вот есть у меня дурацкое предположение, что при включении стилей Win10 прога начинает думать, что и система у неё тоже Win10 и с этого момента хочет каких-то дополнительных прав на ShellExecute :D

А что возвращает ShellExecute в этом случае?

[gdu]

Сообщение от Sciv

Вот есть у меня дурацкое предположение, что при включении стилей Win10 прога начинает думать, что и система у неё тоже Win10 и с этого момента хочет каких-то дополнительных прав на ShellExecute :D

А что возвращает ShellExecute в этом случае?

ОС windows 10! Ошибок в программе нет! Это какое-то взаимодействие стилей с ОС win 10 x64 наверное.
Это все происходит после удачного запуска программы, т.е прога запустилась, начинаешь в ней работать нажимать по кнопкам запуска исп файла по сети, появляется окно ОС с запросом запустить исполняемый файл или нет, вот тут то и перестает работать кнопка ЗАпустить.

[Sciv]

Сообщение от gdu

Это все происходит после удачного запуска программы.

Итого - возвращаемся к вопросу, который Вам уже два раза задали: каков результат работы ShellExecute? Какое число она возвращает, когда не хочет запускать файл?

[gdu]

Может я не там смотрю?

[gdu]

?????

[Sciv]

Добавьте в код для отладки, потом удалите, когда не нужно будет:

var ShExResult: integer;
....
if CheckBox7.checked then begin
  ShExResult := ShellExecute(Handle, 'open', '\\192.168.0.2\setup.exe', nil, nil, SW_RESTORE);
end else
  ShExResult := ShellExecute(Handle, 'open', '\\192.168.0.2\setup1.exe', nil, nil, SW_RESTORE);
ShowMessage(IntToStr(ShExResult));

Так быстрее, чем объяснять, как пользоваться Watch Debug. На экран должно вывестись окно с числом.