Install Shield не запускается из под CreateProcess
stikriz © (2002-06-25 06:37:00)
Чего-то не запускается InstallShield вызовом CreateProcess с
ожиданием завершения. Чего ему надо?
Gandalf (2002-06-25 12:31:00) [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);
...
Все инталляция завершена
Наверх 
ЧАТ |
Орешник |
|
