Помогите со спрятанными окнами программ

[semkovv]

Здравствуйте.
У меня есть приложение (допустим Proga.exe), из него запускаются другие программы, например:

var
StartupInfo: TStartupInfo;
ProcessInformation: TProcessInformation;
....................
GetStartupInfo(StartupInfo);
with StartupInfo do
begin
wShowWindow:= SW_HIDE;
end;
...................
Win32Check(CreateProcess(nil,pchar('C:\WINDOWS\system32\cmd.exe /c c:\1.msi'),
nil, nil, FALSE, CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInformation));
WaitForSingleObjectEx(ProcessInformation.hThread,178560000,true);

При запуске самого файла программы (то есть Proga.exe), окно программы cmd.exe скрывается - появляется только окно прораммы 1.msi. А вот если запускать с ярлыка программы Proga.exe - все скрытые окна отображаются при выполнении.
Как можно эту проблему решить, что бы окна оставались невидимыми.

[mihali4]

Предлагаю открыть свойства любого ярлыка на рабочем столе и обратить внимание на параметр "Окно" на закладке "Ярлык".
Хотя меня несколько удивил способ запуска - почему не использовать просто асоциативный запуск, без указания cmd.exe?
Ведь, если вам нужно запустить файл 1.msi вручную, вы просто делаете двойной щелчок по нему, а не составляете командную строку? Система сама знает, что ей делать с файлом, имеющим расширение MSI, разве не так?

[semkovv]

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

Предлагаю открыть свойства любого ярлыка на рабочем столе и обратить внимание на параметр "Окно" на закладке "Ярлык".
Хотя меня несколько удивил способ запуска - почему не использовать просто асоциативный запуск, без указания cmd.exe?
Ведь, если вам нужно запустить файл 1.msi вручную, вы просто делаете двойной щелчок по нему, а не составляете командную строку? Система сама знает, что ей делать с файлом, имеющим расширение MSI, разве не так?

Не-не вы меня не правильно поняли. Не я должен манипулировать мышкой или чем нибудь еще для запуска программы (1.msi). Это программа(1.msi) должна запускаться из другой проги (Proga.exe).

Вроде сам разобрался как запускать внешние программы без использования CMD.EXE.:

// фрагмент кода запускает калькулятор и
// выдает сообщение, когда он закрываетсяuses
ShellApi;
...var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
  ExecuteFile := 'c:\1.msi';
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do
    beginfMask := SEE_MASK_NOCLOSEPROCESS;
  Wnd := Application.Handle;
  lpFile := PChar(ExecuteFile);
  {ParamString can contain theapplication parameters.}
  // lpParameters := PChar(ParamString);
  {StartInString specifies thename of the working
  directory.If ommited, the current
  directory is used.}
  // lpDirectory := PChar(StartInString);
  nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then
begin
  repeatApplication.ProcessMessages;
  GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
ShowMessage('MSI  terminated');
end
else
  ShowMessage('Error starting MSI!');
end;