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

@gdu · Регистрация: 05.12.2017

Студворк — интернет-сервис помощи студентам

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

Delphi
1
2
3
4
5
6
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;

@gdu · 05.12.2017, 12:20 **[ТС]**

Перестает кнопка "Запустить" работать.
OS Win10

@qwertehok · 05.12.2017, 12:21

отладчик что говорит?

@gdu · 05.12.2017, 12:24 **[ТС]**

Отладчик без ошибок отрабатывает.

@qwertehok · 05.12.2017, 12:25

а с другим стилем?

@gdu · 05.12.2017, 12:45 **[ТС]**

Есть стили на которых кнопка Запустить отрабатывает, не все стили такие, в основном стили темного цвета.
НЕТ Обманул, такое со всеми стилями происходит!!!!

Добавлено через 6 минут
Снова обманул, стиль Silver с ним все работает.!

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

@qwertehok · 05.12.2017, 13:05

попробуй заменить ShellExecute на что то другое

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 11.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 10.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@gdu 0 / 0 / 0 Регистрация: 05.12.2017 Сообщений: 7
	05.12.2017, 12:20 [ТС]
	Перестает кнопка "Запустить" работать. OS Win10 Миниатюры 0

@qwertehok 5987 / 4562 / 1096 Регистрация: 29.08.2013 Сообщений: 28,202 Записей в блоге: 3
	05.12.2017, 12:21
	отладчик что говорит? 0

@gdu 0 / 0 / 0 Регистрация: 05.12.2017 Сообщений: 7
	05.12.2017, 12:24 [ТС]
	Отладчик без ошибок отрабатывает. Миниатюры 0

@qwertehok 5987 / 4562 / 1096 Регистрация: 29.08.2013 Сообщений: 28,202 Записей в блоге: 3
	05.12.2017, 12:25
	а с другим стилем? 0

@gdu 0 / 0 / 0 Регистрация: 05.12.2017 Сообщений: 7
	05.12.2017, 12:45 [ТС]
	Есть стили на которых кнопка Запустить отрабатывает, не все стили такие, в основном стили темного цвета. НЕТ Обманул, такое со всеми стилями происходит!!!! Добавлено через 6 минут Снова обманул, стиль Silver с ним все работает.! Добавлено через 11 минут ОС windows 10! Ошибок в программе нет! Это какое-то взаимодействие стилей с ОС win 10 x64 наверное. Это все происходит после удачного запуска программы, т.е прога запустилась, начинаешь в ней работать нажимать по кнопкам запуска исполняемого файл по сети, появляется окно ОС с запросом запустить исполняемый файл или нет, вот тут то и перестает работать кнопка ЗАпустить. 0

@qwertehok 5987 / 4562 / 1096 Регистрация: 29.08.2013 Сообщений: 28,202 Записей в блоге: 3
	05.12.2017, 13:05
	попробуй заменить ShellExecute на что то другое 0