Запускаю exe-файл из программы:

ShellExecute(0, nil, filename, nil, nil, SW_SHOW);

Exe-шник запускается, работает, все OK. Но когда в Exe-шник выскакивает диалоговое окно с "предупреждением", то я теряю доступ к своей программе, пока не закрою это диалоговое окно.

Как сделать так что-бы программа и Exe-шник не имели ничего общего?

> Как сделать так что-бы программа и Exe-шник не имели ничего
> общего?

Если окно чужой программы захочет выскочить на передний план, оно это сделает, и ты ему не помешаешь. И дело тут не в какой то мистической связи.

> Если окно чужой программы захочет выскочить на передний
> план

Вот интересно что это за "диалоговое окно с предупреждением" если это предупреждение само по себе не важно автору?

> Германн  (04.09.2010 02:05:02)  [2]

И чем программа отличается от приложения.

"Диалоговое окно с предупреждением" : class #32770 (Dialog)
При этом, доступ к другим программам не блокируется, только к основной программе, которая запустила exe-шник

может поскажите, каким механизмом попробовать запустить exe-шник?

> Zhen73 ©   (06.09.10 11:03) [4]
> "Диалоговое окно с предупреждением" : class #32770 (Dialog)

Скопируй (^C) сюда этот диалог.
Только раскладку на рус. переключай.

--
Regards, LVT.

> Скопируй (^C) сюда этот диалог.

У него там окно с исключением вероятно :)

Вообщем, основная программа, запускает exe-шник и вводит необходимые данные в этот exe-шник через TEdit TButton. И когда данные не верные, то выскакивает этот Dialog (окно с исключением вероятно :))

> Zhen73 ©   (06.09.10 13:01) [9]


> И когда данные не верные, то выскакивает этот Dialog (окно
> с исключением вероятно :))

Теперь осталось разобраться, какая из двух программ выдает исключение.
Если убить процесс "основной программы" - это окно с исключением остается на экране?

> И когда данные не верные, то выскакивает этот Dialog


больно слышать

исключение выдает - вызываемая программа
то что данные не верны - это ничего страшного (это нормальная рабочая ситуация)

основной процесс можно спокойно закрыть, вызываемая программы будет работать дальше

Запускаю exe-шник через CreateProcess

       CreateProcess(filename, nil, nil, nil, False,
       CREATE_DEFAULT_ERROR_MODE or NORMAL_PRIORITY_CLASS,
       nil, nil, SUInfo, ProcInfo);

все равно тоже самое.

Может подкажите необходимые параметры для CreateProcess что-бы родительская программа не зависила от запускаемого процесса

> исключение выдает - вызываемая программа

как ты данные в нее передаешь?

> Zhen73 ©   (06.09.10 14:19) [13]

Дело тут совсем в другом. Как ты не запускай - дело не в этом.

Как ты данные передаешь в вызываемую программу? С помощью сообщений?
Твоя основная программа небось ждет отклика от второстепенной, а она висит на окне с исключением.

Данные передаю при помощи сообщений

       h1 := FindWindow('TCodeForm', nil);
       h2 := FindWindowEx(h1, 0,'TPanel', '');
       h3 := FindWindowEx(h2, 0,'TEdit', '');
       h4 := FindWindowEx(h2, 0,nil, PChar('Nummer OK [ENTER]'));
       h5 := FindWindowEx(h2, 0,nil, PChar('Abbruch [ESC]'));

               SendMessage(h3, WM_SETTEXT, 0, Integer(PChar(IntToStr(i))));
               SendMessage(h4, WM_LButtonDown, 1, 1);
               SendMessage(h4, WM_LButtonUP, 1, 1);
 
Да, проблема в том, что когда вываливается сообщение от ошибке ввода, моя основная программа, перестает работать и ждет когда это окно закроют

> Zhen73 ©   (06.09.10 17:03) [16]

SendMessageTimeout возьми или PostMessage

> DVM ©   (06.09.10 17:16) [17]

> SendMessageTimeout возьми или PostMessage

SendMessage & WM_SETTEXT.
PostMessage & BM_CLICK.

--
Regards, LVT.