Соединение программ-2

← →
Abu (2002-05-21 19:19) [0]

Ребята, подскажите еще. Программа с помощью ShellExecute вызывается - все отлично, но первую прогу - вызывающую, никак не могу скрыть - программы выполняются параллельно. Form1.Visible:=False; или Form1.Hide не помогают.

← →
Song (2002-05-21 19:24) [1]

Вы из вызываемой программы пытаетесь скрыть вызывающую?

← →
Abu (2002-05-21 19:36) [2]

Да, т.е. пока работает вызаваемая, вызвавшей ее не должно быть видно.

← →
Song (2002-05-21 19:51) [3]

Перед ShellExecute сделайте:
Form1.Hide;
Application.ProcessMessages;

← →
Abu (2002-05-21 20:01) [4]

Song ©

Не помогает

← →
Song (2002-05-21 20:04) [5]

Тект программы приведите

← →
Abu (2002-05-21 20:19) [6]

По нажатию кнопки (OnClick) должна вызываться программа WorkP:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.Hide;
Application.ProcessMessages;
ShellExecute(0,nil,"WorkP.exe",nil,nil,SW_SHOWNORMAL);
Form1.Show;
end;

← →
Song (2002-05-21 20:23) [7]

Дык понятно... у Вас она прячется и сразу показывается... :)) надо ждать до тех пор пока прога workp.exe не закончяит свою работу. Сделать это можно используя WaitForSingleObject() или TShellExecuteInfo

← →
Abu (2002-05-21 20:42) [8]

Спасибо.

Соединение программ-2 Найти похожие ветки