Форум: "WinAPI";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
Install Shield не запускается из под CreateProcess Найти похожие ветки
← →
stikriz (2002-06-25 06:37) [0]Чего-то не запускается InstallShield вызовом CreateProcess с ожиданием завершения. Чего ему надо?
← →
Gandalf (2002-06-25 12:31) [1]Занимался этим давно, но минуту назад снова использовал. Если я правильно понял проблему то решается так:
...
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := SW_SHOWNORMAL;
end;
Application.Minimize;
str:=CorPath(ExtractFileDir(ParamStr(0))+"\Setup.exe");
str2:=ExtractFileDir(ParamStr(0));
Createprocess(nil,PChar(str),nil,nil,false,Create_default_error_mode,nil,PChar(ExtractFileDir(str)),si,p);
While FindWindow("InstallShield_Win","Micro-Cap 7.0 Setup")<=0 do
Application.ProcessMessages;
While FindWindow("InstallShield_Win","Micro-Cap 7.0 Setup")<>0 do
Application.ProcessMessages;
Sleep(1000);
...
Все инталляция завершена
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c