Вверх ↑
Этот топик читают: Гость
Ответов: 44
Рейтинг: 0
#1: 2018-08-13 09:05:06 ЛС | профиль | цитата
Ребят, подскажите у компонента WinExec есть свойство MODE, можно как-то управлять его значением в уже запущенной программе?

Редактировалось 1 раз(а), последний 2018-08-13 09:09:45
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 4611
Рейтинг: 745
#2: 2018-08-13 12:08:53 ЛС | профиль | цитата
Это можно сделать. Для себя - посмотри в других компонентах как делается (файлы *.ini и *.pas).

Поскольку HiAsm - для людей, не знающих языков программирования, то названия констант в этом свойстве лучше заменить на более понятные значения (типа SW_HIDE -> Hide, SW_NORMAL -> Normal, SW_SHOWMINIMIZED -> Minimized и т.д.)
Описание свойства, вероятно, лучше сменить на "Состояние первого созданного запускаемой программой окна" и добавить описание значений каждого режима.
карма: 26

0
Ответов: 44
Рейтинг: 0
#3: 2018-08-13 12:16:05 ЛС | профиль | цитата
Если не сложно, можно маленький пример.

--- Добавлено в 2018-08-13 12:17:59

Не пойму, как подсунуть свойству MODE значение (SW_HIDE, SW_NORMAL, SW_SHOWMINIMIZED и т.д) у него же нет точки, менять можно только в схеме.

Редактировалось 1 раз(а), последний 2018-08-13 12:17:59
карма: 0

0
Ответов: 4611
Рейтинг: 745
#4: 2018-08-13 12:46:10 ЛС | профиль | цитата
Создать точку - в файле WinExec.ini добавить "@" перед названием свойства:
@Mode=Режим запуска приложения|4|1|SW_HIDE,SW_NORMAL,SW_SHOWMINIMIZED,SW_SHOWMAXIMIZED,SW_SHOWNOACTIVATE,SW_SHOW,SW_MINIMIZE,SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_RESTORE,SW_MAX

В файле WinExec.pas:
- после строки
procedure _work_doConsoleTerminate(var _Data:TData; Index:word);
добавить строку
procedure _work_doMode(var _Data: TData; Index: Word);

- после строки
implementation
добавить код
procedure THIWinExec._work_doMode(var _Data: TData; Index: Word);
begin
_prop_Mode := ToInteger(_Data);
end;


Редактировалось 1 раз(а), последний 2018-08-13 12:47:15
карма: 26

0
Ответов: 44
Рейтинг: 0
#5: 2018-08-13 12:55:59 ЛС | профиль | цитата
Спасибо
карма: 0

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)