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);
...
Все инталляция завершена

Install Shield не запускается из под CreateProcess Найти похожие ветки