forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


InstallShield 2 VDS.

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help
View previous topic :: View next topic  
Author Message
Eric
Newbie


Joined: 07 May 2002
Posts: 8
Location: France
PostPosted: Wed Sep 18, 2002 9:55 pm    Post subject: InstallShield 2 VDS. Reply with quote
hi all
i don't have insert the images, an i don't translate this source code but it work properly, for the key in the installation look at the source code.







REM %%SS AND %%TT adapt automaticaly the resolution of installer

%%SS = @SYSINFO(SCREENWIDTH)
%%TT = @SYSINFO(SCREENHEIGHT)

%%taillex = @FDIV(%%SS,2)
%%tailley = @FDiv(%%TT,2)
%%x = @sum(%%taillex,50)
%%y = @sum(%%tailley,250)


OPTION ERRORTRAP,yikes !
DIALOG CREATE,///,-1,0,799,600,NOTITLE
DIALOG ADD,BITMAP,BITMAP2,0,0,804,608,Setup.BMP
dialog show
DIALOG CREATE,InstallShield Wizard,%%x,%%y,375,116,NOSYS
DIALOG ADD,TEXT,TEXT1,16,62,,,INSTALL de ControlPC prpare l'assistant
DIALOG ADD,BITMAP,BITMAP1,20,10,35,40,logo.bmp

DIALOG ADD,TEXT,TEXT5,29,62,,,d'InstallShield(R)"," qui vous guidera travers les tapes du
DIALOG ADD,TEXT,TEXT6,42,62,,,processus d'installation qui restent. Veuillez patienter...
DIALOG ADD,BUTTON,BUTTON1,83,293,74,24,Annuler
DIALOG ADD,PROGRESS,INTROPROGRESS,84,13,270,16
dialog show
:evloop
wait "0,5",event
%E = @event()
goto %E
:TIMER
%P = @sum(%P,10)
dialog set,INTROPROGRESS,%P
wait "1"
%P = @sum(%P,5)
dialog set,INTROPROGRESS,%P
%P = @sum(%P,7)
dialog set,INTROPROGRESS,%P
wait "2"
%P = @sum(%P,10)
dialog set,INTROPROGRESS,%P
wait "2"
%P = @sum(%P,25)
dialog set,INTROPROGRESS,%P
wait "1"
%P = @sum(%P,10)
dialog set,INTROPROGRESS,%P
wait "1"
%P = @sum(%P,10)
dialog set,INTROPROGRESS,%P
wait "0,1"
%P = @sum(%P,10)
dialog set,INTROPROGRESS,%P
wait "0,5",event
%P = @sum(%P,10)
dialog set,INTROPROGRESS,%P

%E = @event()
if @equal(TIMER,%E)
goto ininstall
else
goto close
end
end


:ininstall
DIALOG SELECT,0
DIALOG HIDE
DIALOG SELECT,1
DIALOG HIDE
DIALOG CREATE,Installation de ControlPC version 1.1,-1,0,986,633
DIALOG ADD,BITMAP,BITMAP1,0,0,986,650,titre1.bmp
dialog show
:ininstall2
DIALOG CREATE,Installation de ControlPC 1.1,-1,0,496,352,NOSYS,ONTOP
DIALOG ADD,STYLE,STYLE2,,6,,WHITE,FOREGROUND
DIALOG ADD,STYLE,STYLE1,,8,B,WHITE,FOREGROUND
DIALOG ADD,GROUP,GROUP1,302,2,493,2
DIALOG ADD,BITMAP,BITMAP1,0,0,496,300,clown.bmp
DIALOG ADD,TEXT,TEXT1,29,195,,,Bienvenue dans l'Installshield Wizard de,STYLE1
DIALOG ADD,TEXT,TEXT3,43,195,,,ControlPC version 1.1.,STYLE1
DIALOG ADD,TEXT,TEXT4,82,194,,,L'installshield Wizard installera ControlPC version 1.1,STYLE2
DIALOG ADD,TEXT,TEXT5,95,194,,,sur votre ordinateur. Pour continuer",",STYLE2
DIALOG ADD,TEXT,TEXT6,109,194,,,cliquez sur Suivant.,STYLE2
DIALOG ADD,BUTTON,ANNULER,316,407,75,24,Annuler
DIALOG ADD,BUTTON,SUIVANT1,316,321,75,24,Suivant >
DIALOG ADD,BUTTON,BUTTON3,316,247,75,24,< Prcedent
dialog show
DIALOG DISABLE,BUTTON3
goto evloop2
:evloop2
wait event
goto @event()

:ANNULERBUTTON
:BUTTON1BUTTON
goto close


:close
title Sortez de l'assistant d'installation
Warn L'installation n'est pas termin e. Si vous quittez maintenant le programme d'installation"," les composants que vous demands@cr()d'ajouter/supprimer ne seront pas install s/dsinstall s.@cr()@cr()Vous pouvez excuter le programme d'installation ult rieurement afin de complter les op rations.
exit
:SUIVANT1BUTTON
DIALOG HIDE
DIALOG CREATE,Vrification du Num ro de Srie,-1,0,496,352,NOSYS
DIALOG ADD,STYLE,STYLE2,,6,,WHITE,FOREGROUND
DIALOG ADD,STYLE,STYLE1,,8,B,WHITE,FOREGROUND
DIALOG ADD,GROUP,GROUP1,302,2,493,2

DIALOG ADD,BUTTON,BUTTON1,316,407,75,24,Annuler
DIALOG ADD,BUTTON,SUIVANT2,316,321,75,24,Suivant >
DIALOG ADD,BUTTON,PRECEDENT1,316,247,75,24,< Pr cedent
DIALOG ADD,BITMAP,BITMAP1,0,0,166,302,serial.bmp
DIALOG ADD,TEXT,TEXT1,42,171,,,Veuillez entrer le numro de s rie se trouvant sur votre vieux bout de
DIALOG ADD,TEXT,TEXT3,55,171,,,papier chifonn. Cliquez sur suivant pour continuer.
DIALOG ADD,EDIT,EDIT1,86,169,34,20
DIALOG ADD,EDIT,EDIT3,86,286,52,20
DIALOG ADD,EDIT,EDIT2,86,219,50,20
DIALOG ADD,EDIT,EDIT4,86,354,36,20
DIALOG ADD,TEXT,TEXT4,84,208,,,_
DIALOG ADD,TEXT,TEXT5,84,274,,,_
DIALOG ADD,TEXT,TEXT6,84,343,,,_
dialog show
goto evloop2

:PRECEDENT1BUTTON
dialog hide
goto ininstall2
:SUIVANT2BUTTON
%%edit1 = @dlgtext(EDIT1)
%%edit2 = @dlgtext(EDIT2)
%%edit3 = @dlgtext(EDIT3)
%%edit4 = @dlgtext(EDIT4)
if @equal(1245-198471-1548748-1257,%%edit1-%%edit2-%%edit3-%%edit4)
goto installation
exit
else
%%serial = @msgbox(Le num ro de srie n'est pas valide.,NUMERO DE SERIE NON VALIDE,$010)
goto evloop2
exit


:installation
DIALOG SELECT,4
DIALOG HIDE
DIALOG SELECT,1
DIALOG HIDE
:re-install
DIALOG CREATE,Installshield,-1,0,488,351
DIALOG ADD,STYLE,STYLE1,,6,,WHITE,FOREGROUND
DIALOG ADD,STYLE,STYLE322,,8,B,WHITE,FOREGROUND
DIALOG ADD,BITMAP,BITMAP1,0,0,500,62,install.bmp
DIALOG ADD,TEXT,TEXT1,10,24,,,Slection du dossier cible,STYLE322
DIALOG ADD,TEXT,TEXT223,28,51,,,Veuillez choisir le dossier de destination,STYLE1
DIALOG ADD,EDIT,EDIT1,86,22,180,19
DIALOG ADD,BUTTON,BUTTON12,86,217,64,20,Parcourir ....
DIALOG ADD,BUTTON,BUTTON23,320,323,72,24,Installer
DIALOG ADD,BUTTON,BUTTON51,106,217,84,20,Cr er rpertoire
DIALOG ADD,BUTTON,BUTTON34,320,249,74,24,<< Pr cedent
DIALOG ADD,BUTTON,BUTTON1,320,417,64,24,Annuler

dialog show
goto evloop2
:button34button
dialog hide
goto suivant1button

:button51button
title Installshield Wizard
if @ask(Voulez-Vous Crer un nouveau R pertoire ?)
%%dir1 = @input(Destination :,C:\Windows\Bureau\ControlPC)
%%dir = @shortname(%%dir1)
DIALOG SET,EDIT1,%%DIR1
goto evloop2
exit
else
goto evloop2
end
end
:button12button
%%dir1 = @dirdlg(Veuillez choisir un dossier d'installation :,C:\)
%%dir = @shortname(%%dir1)
DIALOG SET,EDIT1,%%dir1
goto evloop2
:BUTTON23BUTTON
DIALOG HIDE
:dialog2
DIALOG CREATE,InstallShield Wizard,-1,0,496,352
DIALOG ADD,STYLE,STYLE1,,6,B,WHITE,FOREGROUND
DIALOG ADD,GROUP,GROUP1,302,62,433,2
DIALOG ADD,TEXT,TEXT1,294,1,,,InstallShield
DIALOG ADD,TEXT,TEXT2,70,19,,,ControlPC version 1.1 est en train d'ffectuer les op rations suivantes.
DIALOG ADD,BITMAP,BITMAP1,0,0,496,60,install.bmp
DIALOG ADD,GROUP,GROUP2,62,0,494,2
DIALOG ADD,TEXT,TEXT3,124,19,,,Installation :
DIALOG ADD,TEXT,TEXT4,145,19,500,13,Copie en cours ...
DIALOG ADD,PROGRESS,PROGRESS30,172,20,448,22
DIALOG ADD,BUTTON,BUTTON1,318,407,75,24,Annuler
DIALOG ADD,TEXT,TEXT5,4,10,,,Status de l'installation,STYLE1

dialog show
DIALOG DISABLE,TEXT1
:TIMER2
%D = @sum(%D,20)
dialog set,PROGRESS30,%D
wait "1"

DIALOG SET,TEXT4,Copie en cours : %%dir1\ControlPC.exe
file copy,@curdir()\DATA\controlPC.exe,%%dir\controlPC.exe,SHOWERRORS
%%OO = @sum(%%OO,50)
dialog set,PROGRESS30,%%OO
wait "1"

%%LL = @sum(%%LL,70)
dialog set,PROGRESS30,%%LL
DIALOG SET,TEXT4,Copie en cours : %%dir1\vdsrun30.dll
file copy,@curdir()\DATA\vdsrun30.dll,%%dir\vdsrun30.dll,SHOWERRORS
wait "1"
%%DF = @sum(%%DF,80)
dialog set,PROGRESS30,%%DF
DIALOG SET,TEXT4,Copie en cours : C:\Windows\System32\vdsrun30.dll
file copy,@curdir()\DATA\vdsrun30.dll,c:\Windows\system32\vdsrun30.dll,SHOWERRORS
wait "1"
%%IL = @sum(%%IL,100)
dialog set,PROGRESS30,%%IL
DIALOG SET,TEXT4,Copie en cours : %%dir1\sledge.dll
file copy,@curdir()\data\sledge.dll,%%dir\sledge.dll,SHOWERRORS
wait "1"
DIALOG HIDE
DIALOG CREATE,Installshield Wizard,-1,0,496,352
DIALOG ADD,STYLE,STYLE100,,6,,WHITE,FOREGROUND
DIALOG ADD,STYLE,STYLE50,,6,B,WHITE,FOREGROUND
DIALOG ADD,BITMAP,BITMAP1,-1,0,500,306,fin.bmp
DIALOG ADD,BUTTON,BUTTON35,318,249,74,24,< Prcedent
DIALOG ADD,BUTTON,BUTTON25,318,322,74,24,Fin
DIALOG ADD,BUTTON,BUTTON36,317,408,74,24,Annuler
DIALOG ADD,TEXT,TEXT1,21,175,,,InstallShield Wizard Complete,STYLE50
DIALOG ADD,TEXT,TEXT2,61,172,,,Install a fini d'installer ControlPC version 1.1",",Style100
DIALOG ADD,TEXT,TEXT3,74,172,,,sur de votre ordinateur.,Style100
dialog show
DIALOG DISABLE,BUTTON36
DIALOG DISABLE,BUTTON35
goto evloop2

:yikes !
TITLE Installshield
INFO Erreur @ERROR(E) ligne @ERROR(N)@cr()@cr()N'oubliez pas de NOTER !!!!!
Warn Une erreur vient de se produire@cr()Vu la fort progr s du logiciel il faut le dboguer au fur et mesure donc nous attribuons la possibilit de reporter une de ses commandes la console@cr()@cr()-JUMP vers Ecran 1 = @cr()ecran1@cr()-JUMP vers Ecran 2 =@cr()ecran2@cr()-Jump vers Ecran 3=@cr()ecran3@cr()-Jump vers Exit@cr()exit@cr()@cr()En cas de bug mme sous l'effet de d boguage annuler les oprations !.
%%ecran = @input(Quel cran ?,ecran1","2 ou 3)
if @equal(%%ecran,ecran1)
goto ininstall2
else
if @equal(%%ecran,ecran2)
goto suivant1button
else
if @equal(%%ecran,ecran3)
goto re-install
else
if @equal(%%ecran,exit)
exit
else
WARN Erreur de commande ! :@cr()il faut tapez o ecran1 ecran2 ecran3 ou exit
goto yikes !
end
end
end
_________________
-----------------------------------

Eric11
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Dr. Dread
Professional Member
Professional Member


Joined: 03 Aug 2001
Posts: 1065
Location: Copenhagen, Denmark
PostPosted: Thu Sep 19, 2002 5:34 am    Post subject: Reply with quote
Nice piece of work. Did you see this thread?:

http://www.vdsworld.com/forum/viewtopic.php?t=649

That would be a great place to promote your script.

Greetz
Dr. Dread
_________________
~~ Alcohol and calculus don't mix... Don't drink and derive! ~~

String.DLL * advanced string processing
Back to top
View user's profile Send private message
Hortalonus
Valued Contributor
Valued Contributor


Joined: 15 Mar 2002
Posts: 344
Location: Western USA
PostPosted: Thu Sep 19, 2002 2:59 pm    Post subject: Reply with quote
Hey Eric!

If you want your code to be highlighted, just put [code] at the beginning of it and [/code] at the end if it.
Or you can use [code] at the beginning and [/code] at the end to make the text all green.
Just remember you have to have BBCode enabled to use these tags. Check the settings in your profile if it's not working for you.
Back to top
View user's profile Send private message Send e-mail
Eric
Newbie


Joined: 07 May 2002
Posts: 8
Location: France
PostPosted: Sun Sep 22, 2002 4:42 pm    Post subject: Reply with quote
ok thanks all Razz
_________________
-----------------------------------

Eric11
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group