C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
环境：Microsoft Windows 2000 Advanced Server<br> Borland Delphi 5 Pack #1 ADO Pack #2<br> InstallSheilder Express Limited Edition for Delphi 5 2.12<br>用以下函数调用InstallSheilder Express 制作的安装盘不能得到期望的效果<br>procedure ExecAndWait(Filename:String);<br>var<br> bCreateProcess: boolean;<br> lpStartupInfo: TStartupInfo;<br> lpProcessInformation: TProcessInformation;<br>begin<br> FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);<br> lpStartupInfo.cb := Sizeof(TStartupInfo);<br> lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;<br> lpStartupInfo.wShowWindow := SW_NORMAL;<br> bCreateProcess := CreateProcess(nil, PChar(Filename),<br> nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,<br> nil, nil, lpStartupInfo, lpProcessInformation);<br> if bCreateProcess then //Wait for exit<br> WaitForSingleObject(lpProcessInformation.hProcess, infinite);<br>end;<br><br>procedure TForm1.btnDataClick(Sender: TObject);<br>begin<br> ExecAndWait(DefaultPath + 'mdac_typ.exe');<br>end;<br><br>procedure TForm1.btnRecoverClick(Sender: TObject);<br>begin<br> ExecAndWait(DefaultPath + 'BININST/SETUP.EXE');<br>end;<br><br>procedure TForm1.btnClearDataClick(Sender: TObject);<br>begin<br> ExecAndWait(DefaultPath + 'DATAINST/SETUP.exe');<br>end;<br><br>procedure TForm1.btnFullClick(Sender: TObject);<br>begin<br> btnRecover.Click;<br> btnClearData.Click;<br> btnData.Click;<br>end;<br>被调用的SETUP程序不被执行，而我的程序也死，强行结束之，setup执行了...
<br><br><br> // I've said, I always deal with concrete matters relating to work, so I give up the <br> // CreateProcess... In fact, in my mind, we cannot use such a way. Because InstallSheilder<br> // is playing a trick for us. As we know, <br> // The setup.exe unpack some file, which is known as InstallSheilder Wizard, to the temp <br> // directory, then it start the wizard and terminate itself. So, if we wait setup.exe <br> // successfully by WaitForSimpleObject, when the installation interface apears, <br> // the WaitForSimpleObject returned. It shows why WINRAR cannot run setup program made by<br> // InstallSheilder currectly. And why winzip need we to click 'ok' button to finish setup.<br> // Now, I use a "silly" way to finish my work.<br> // We use spy++ in Microsoft Visual Studio to find the window class, and wait for both 2<br> // program(preparing program and the installsheilder wizard) terminate.<br> // Now, my work finished, but I cannot prove why the setup program does not run. perhaps <br> // you are right, but WinRAR doesn't have such a problem, it really runs though it's not<br> // currect... but anyway, the problem solved. thanx all of you.<br> // The following is my key code:<br><br> if WinExec(pchar(Filename), SW_SHOWNORMAL) > 31 then //if successful<br> begin<br> //In fact, On my computer, without the following sleep is acceptable<br> //Because before winexec return, the window is created.<br> //But I'm really not sure...<br> Sleep(10);<br> //here, we use the most easy, sily and poor-performance way to finish our work<br> //To avoid the white screen, we use Application.ProcessMessages;<br> //We use Microsoft spy++ to find the window class<br> //InstallShield_Win is the class for Setup program<br> //InstallShieldSetup30 is the class for unpacking window(is preparing InstallSheilder Wizard... )<br> while (FindWindow('InstallShield_Win',nil) <> 0) or<br> (FindWindow('InstallShieldSetup30',nil) <> 0) do<br> Application.ProcessMessages;<br> end;