#120266 - 2004-05-27 02:28 PM
Re: Drop KiXforms 2.3.0.44 object
|
Shawn
Administrator
   
Registered: 1999-08-13
Posts: 8611
|
Jooels solution should work, for example:
Code:
Break On
$System = CreateObject("Kixtart.System")
$System = 0
If $System ?"System does exist..." Else ?"System does not exist..." Endif
Exit 1
|
|
Top
|
|
|
|
#120270 - 2004-08-24 11:56 AM
Re: Drop KiXforms 2.3.0.44 object
|
Schuliebug
Hey THIS is FUN
   
Registered: 2002-01-18
Posts: 379
Loc: Netherlands
|
I've tested the code again with the released version and yes, it seems to drop the GUI object ($GUI=0, $GUI.Dispose() ?). However, when i use Shell 'InstallShield install Program' all action still stops until i kill KiXtart. With the old KiXforms 2.2.0, when i dropped the GUI object ($GUI=0) the Shell action was correct executed without killing KiXtart..
Sample: Code:
$System=CreateObject('KiXtart.System') If @Error Shell 'regsvr32 /s %SystemRoot%\Utils\KixForms.dll' $System=CreateObject('KiXtart.System') If @ERROR Exit EndIf EndIf
; Define window.. $Basis = $System.Form() $Basis.Text = 'Installing applications..' $Basis.Left = 50 $Basis.Top = 50 $Basis.Width = 350 $Basis.Height = 130 $Basis.Minbutton = 0 $Basis.Maxbutton = 0 $Basis.Sysmenu = 0 $Basis.Visible = 1 $Basis.Show
; Place labels, text window, status frame.. $BasisWelcome = $Basis.Label('Package installation script',10,10,260,18) $BasisApplication = $Basis.Label('Installing :',10,$BasisWelcome.Bottom+2,50,18) $BasisPackage = $Basis.Label('',65,$BasisWelcome.Bottom+2,$Basis.Width-71,18) $BasisStatusFrame = $Basis.Groupbox('Status',6,$BasisApplication.Bottom+2,$Basis.Width-20,$Basis.ClientHeight-($BasisApplication.Bottom+10)) $BasisStatus = $BasisStatusFrame.Label('',8,14,$BasisStatusFrame.Width-12,$BasisStatusFrame.Height-24)
$Basis=0 If $Basis $Basis.Shell('%ComSpec% /c \\server\ofcscan\pccnt\disk1\install.exe') Else Shell '%ComSpec% /c \\server\ofcscan\pccnt\disk1\install.exe' EndIf
_________________________
Kind regards,
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
1 registered
(Allen)
and 1198 anonymous users online.
|
|
|