CreateProcess работает странно в D10

@frolsa · Регистрация: 15.02.2016

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

Существует программа, в которой основная невидимая программа-диспетчер поочередно запускает другие программы.
В D3 и D7 все работало как часы уже лет 15. При переходе на D10 (проект тот же, без изменений) столкнулся с тем, что только первый запуск из программы-диспетчера работает нормально, остальные программы запускаются "сзади", не в режиме ForeGround (система - W10). Использование CreateProcess совершенно стандартное, без никаких дополнений. Подозреваю, что дело в параметре nCmdShow, который нужен для повторных запусков, но функция ShowWindow в программе не используется. Поиски показали что все работает нормально, если убрать Hide с формы диспетчера, но тогда она становится видна, чего не должно быть. Перепробовал все, что нашел. Максимум чего удалось добиться - мигает иконка на панели задач,но вытащить вперед не удается - только руками. Проблема еще в том, что запускаемые программы меняют окна, заголовки и жрут немалые вычислительные ресурсы (плохо слушаются).

@i8085 · 22.02.2016, 12:16

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

(система - W10)

Да, в ней изменилась логика управления окнами. Видимо, это связано с наличием разных интерфейсов "Рабочего стола". Надо заново учить матчасть.

@frolsa · 22.02.2016, 21:57 **[ТС]**

Удалось починить вот такой вставкой после CreateProcess (основа взята из интернета):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function EnumWindowsProc(Wnd: HWND): Bool;  export; {$ifdef Win32} stdcall; {$endif}
var Pid:Pointer;
    Buffer: array[0..100] of Char;
    ThisThreadID,ForeID:HWNd;
  begin
  GetWindowThreadProcessId(Wnd,@Pid); GetWindowText(Wnd,Buffer,100); 
  if copy(Buffer,1,19)='Имя окна нужной программы' then
    begin
    ForeID := GetWindowThreadProcessID(GetForegroundWindow, nil);
    ThisThreadID := GetWindowThreadPRocessId(Wnd, nil);
    if AttachThreadInput(ThisThreadID, ForeID, True) then
      begin
      BringWindowToTop(Wnd);
      SetForegroundWindow(Wnd);
      sleep(50);
      AttachThreadInput(ThisThreadID, ForeID, False);
      Result:=false;
      exit;
      end;
    end;
  result:=true;
  end;
 
procedure ForceForeground;
  begin
  EnumWindows(@EnumWindowsProc,0);
  end;

Задержка нужна для уверенного срабатывания.

@i8085 · 22.02.2016, 22:08

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

Задержка нужна для уверенного срабатывания.

По-моему, использование sleep() для ожидания выполнения системной функции совсем не гарантирует её выполнение.
Почему не Application.ProcessMessages?

@frolsa · 22.02.2016, 22:16 **[ТС]**

Я пробовал разные комбинации - винда очень ненадежно реагирует. Эта показалась мне самой надежной, хотя согласен, криво.

@i8085 · 22.02.2016, 22:54

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

Я пробовал разные комбинации...

Я бы проверок добавил. Вот у вас даже EnumWindows без проверки вызывается, хотя он boolean.
Можно и нужное состояния окна с проверкой ждать, делать пару попыток, отрабатывать случай "не удалось...".

@frolsa · 24.02.2016, 09:43 **[ТС]**

Все это есть, я здесь упростил немного...Там у меня EnumWindows в 10-шаговом цикле с проверкой и на exit. Но выкладывать такое мне показалось несколько нахальным - типа, низкий уровень, крутые ребята так не пишут

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@frolsa 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 4

	CreateProcess работает странно в D10 15.02.2016, 16:23. Показов 1052. Ответов 6 Метки нет (Все метки) Существует программа, в которой основная невидимая программа-диспетчер поочередно запускает другие программы. В D3 и D7 все работало как часы уже лет 15. При переходе на D10 (проект тот же, без изменений) столкнулся с тем, что только первый запуск из программы-диспетчера работает нормально, остальные программы запускаются "сзади", не в режиме ForeGround (система - W10). Использование CreateProcess совершенно стандартное, без никаких дополнений. Подозреваю, что дело в параметре nCmdShow, который нужен для повторных запусков, но функция ShowWindow в программе не используется. Поиски показали что все работает нормально, если убрать Hide с формы диспетчера, но тогда она становится видна, чего не должно быть. Перепробовал все, что нашел. Максимум чего удалось добиться - мигает иконка на панели задач,но вытащить вперед не удается - только руками. Проблема еще в том, что запускаемые программы меняют окна, заголовки и жрут немалые вычислительные ресурсы (плохо слушаются). 0

@frolsa 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 4
	22.02.2016, 22:16 [ТС]
	Я пробовал разные комбинации - винда очень ненадежно реагирует. Эта показалась мне самой надежной, хотя согласен, криво. 0

@frolsa 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 4
	24.02.2016, 09:43 [ТС]
	Все это есть, я здесь упростил немного...Там у меня EnumWindows в 10-шаговом цикле с проверкой и на exit. Но выкладывать такое мне показалось несколько нахальным - типа, низкий уровень, крутые ребята так не пишут 0

Опции темы