Sujet Précédent Sujet Suivant

Besoin d'aide et de conseil merci par avance

shaiinna Messages postés 32 Date d'inscription mercredi 5 octobre 2005 Statut Membre Dernière intervention 2 novembre 2005 - 5 oct. 2005 à 18:01
shaiinna Messages postés 32 Date d'inscription mercredi 5 octobre 2005 Statut Membre Dernière intervention 2 novembre 2005 - 6 oct. 2005 à 09:07
Bonjour, voila j'ai besoin de créer un .EXE ce qui est fait en partit cependant j'aimerai inserer 2 barres de progressions dans mon install ce que je n'arrive pas a faire.


Je vous fais parvenir mon script, si il y'a des erreurs merci de me les dires
Le principe de mon install et de simplement copier coller 2 fichier a des endroits precis

² ²/*******************************************************************
[Project]
DirOutput="C:\Documents and Settings\larad\Bureau\Setup"
DiskSize=1000
FirstDiskReserv=0
IconExe=C:\Documents and Settings\larad\Bureau\Nouveau dossier (2)\opera_02.ico
SfxSetup=1
IncludeExeSize=1
NameDisk=disk%i.pak
NameExe=Elior project.exe
TypeDisks=0
ClearFloppy=0
WaitOK=1
ZeroCompress=zip,arj,rar,jpg
IgnoreExt=bak,tmp
ControlEmptyData=1
LogFile=C:\Program Files\setuo generator\CreateInstall\Projects\Elior2.log
RunSetup=1
Version=2003.3.5
Windows=2.5.0.2195-1024x768



[Data1]
Level=0
Solid=0
Password=
SaveRelativePath=0
IncludeSubDir=0
OnlyFiles=0
Source1=C:\Documents and Settings\larad\Bureau\Elior project\*.*
[Data2]
Level=7
NoCheck=1
Solid=0
Source="C:\Program Files\setuo generator\CreateInstall\Projects\Elior2.set"
Source1="C:\WINNT\system32\cabinet.dll"
Source2="C:\Program Files\setuo generator\CreateInstall\custom\skins\Default - 1\logo.bmp"
Source3="C:\Program Files\setuo generator\CreateInstall\custom\skins\Default - 1\install.bmp"
Source4="C:\Program Files\setuo generator\CreateInstall\Projects\Elior2_uninstlist.gea"
Source5="C:\Program Files\setuo generator\CreateInstall\Resource\uninstall.ico"
Source6="C:\Program Files\setuo generator\CreateInstall\custom\skins\Default - 1\uninstall.bmp"


[Uninstall]
Geafile="C:\Program Files\setuo generator\CreateInstall\Projects\Elior2_uninstlist.gea"
Source1="C:\Program Files\setuo generator\CreateInstall\Projects\Elior2_uninstlist.gea"
Source2="C:\Program Files\setuo generator\CreateInstall\custom\skins\Default - 1\uninstall.bmp"
Source3="C:\Program Files\setuo generator\CreateInstall\custom\skins\Default - 1\logo.bmp"
Source4="C:\Program Files\setuo generator\CreateInstall\Projects\Elior2.set"


[Update]
Geafile="C:\Program Files\setuo generator\CreateInstall\Projects\Elior2_updatelist.gea"


*******************************************************************/


include "C:\Program Files\setuo generator\CreateInstall\sources\api.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\text.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\bitmap.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\str.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\dlg.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\dlgask.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\registry.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\message.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\background.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\welcome.g"


include "C:\Program Files\setuo generator\CreateInstall\sources\path.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\progress.g"



include "C:\Program Files\setuo generator\CreateInstall\sources\finish.g"


include "C:\Program Files\setuo generator\CreateInstall\sources\ini.g"


include "C:\Program Files\setuo generator\CreateInstall\sources\askuninst.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\uninstall.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\regdel.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\unprogress.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\notdel.g"
include "C:\Program Files\setuo generator\CreateInstall\sources\unfinish.g"


global dword bigheadfont headfont normalfont fixedfont
global str setfile
global dword unpackthread progressall


extern dword backcharset

func unpackfile{}
{

UnpackData( 1, 2, &UnpackDlgAsk, &UnpackProgressBar, MacroDone("C:\Documents and Settings\larad\Bureau\Chemin de destination"), 0 )


CopyFiles( "c:\windows\kerrigan.ini", 5, &UnpackDlgAsk, &UnpackProgressBar, MacroDone("#winpath#"))
CopyFiles( "c:\base_gr\Grpc.db", 5, &UnpackDlgAsk, &UnpackProgressBar, MacroDone("C:\Documents and Settings\larad\Bureau\grpc"))
}


func unpackreg{}
{
IniSetVal( "C:\Documents and Settings\larad\Bureau\Elior project\c:\Documents and Settings\larad\bureau\elior project\kerrigan.ini", "1", "2", "", 0 )






}


func unpacksh{}
{


}


func unpackun{}
{
var { str stemp
dword i }


DataUnpackTemp( 2, "uninstall.ico" )
NewApp( "uninstlist", 2, "#setuppath#\uninstall.exe", 1, "#uninsticon#" )
//UnpackData( 2, $UNTYPE_OVER, 0, 0,
// MacroDone("#setuppath#"), "uninstall.exe" )
AddRemoveFolder()


}


func unpackrun{}
{


UninstFileMode( 0, 0 )
}


func LoadLanguage{}
{
var str temp


MacroLoad( setfile, MacroGetStr( "deflang" ))
MacroLoad( setfile, MacroDone( str_set( temp, "Custom#deflang#")) )
MacroLoad( setfile, MacroDone( str_set( temp, "Project#deflang#")) )
MacroLoad( setfile, "CustomCommon" )
MacroLoad( setfile, "ProjectCommon" )
}


func getdeffont{}
{
var { NONCLIENTMETRICS ncm
str stemp
}
ncm.cbSize = sizeof( NONCLIENTMETRICS )
if { $SystemParametersInfo( $SPI_GETNONCLIENTMETRICS, 0, ncm, 0 ) }
{
str_set_p( stemp, &ncm.lfMessageFont.lfFaceName )
MacroSetStr( "dlgfont", stemp )
}
}


func common_init{}
{
var { dword apptype
str temp
}
api_init()


RegCommonPaths()
apptype = GetAppType()
MacroSetDw( "tempdata", 2 )

if { !apptype }
{
DataUnpackTemp( 2, "Elior2.set" )
}
else //if { apptype == 1 }
{
DataUnpackTemp( 1, "Elior2.set" )
}
file_readtobuf( MacroDone("#tempinstpath#\Elior2.set"), setfile )
buf_appendb( setfile, 0 )
MacroLoad( setfile, 0 )


// MacroLoadFile( MacroDone("#tempinstpath#\Elior2.set"), 0 )

MacroSetStr( "lopttextnew","#lopttext#" )
if { apptype }
{
MacroSetStr( "deflang", str_set_p( temp, GetAppPar( 16 )))
// LoadLanguage()
}
LoadLanguage() if { apptype 1 || apptype 2 }
{
MacroSetDw( "tempdata", 1 )
MacroSetStr( "lcaption", MacroGetStr( "luncaption" ))
MacroSetStr( "laskexit", MacroGetStr( "lunaskexit" ))
}
if { apptype == 3 }
{
MacroSetDw( "tempdata", 1 )
MacroSetStr( "lcaption", MacroGetStr( "lupcaption" ))
MacroSetStr( "laskexit", MacroGetStr( "lupaskexit" ))
}

if { !MacroGetStr("dlgfont") || !str_len( MacroGetStr("dlgfont" ))}
{ getdeffont() }
str_set( temp, MacroGetStr("dlgfont"))
if { str_isequal( temp, "MS Sans Serif" )}
{ str_set( temp, "Arial" ) }
bigheadfont = WinCreateFont( 14, 1, 0, $DEFAULT_CHARSET, $DEFAULT_PITCH, temp )
normalfont = WinCreateFont( 8, 0, 0, $DEFAULT_CHARSET, $DEFAULT_PITCH, MacroGetStr("dlgfont"))
headfont = WinCreateFont( 10, 1, 0, $DEFAULT_CHARSET, $DEFAULT_PITCH, MacroGetStr("dlgfont"))
fixedfont = WinCreateFont( 8, 0, 0, $DEFAULT_CHARSET, $DEFAULT_PITCH, "Courier" )




backcharset = $DEFAULT_CHARSET
}


func s_first{}
{




BackgroundShow()
UnpackData( 2, $UNTYPE_OVERNEW, 0, 0,
MacroDone("#syspath#"), "cabinet.dll" )
}


func s_second{}
{
MacroSetStr( "setuppath", "C:\Documents and Settings\larad\Bureau\Chemin de destination")

if { !str_len( MacroGetStr( "setuppath" ))}
{
MacroSetStr( "setuppath", MacroDone( "#progfiles#\#appname#" ))
}
}


func s_third{}
{
UninstFileMode( 0, 0 )
UninstLogOn()

//
DlgShow( WinGetTop(), "MainDlg" )


}


func s_fourth{}
{

UninstLogOff()
UninstLogSave( MacroDone( "#setuppath#\uninstall.ini" ))
}


func s_fifth{}
{
// UninstLogAdd( MacroDone("#luninst#"))

if { MacroGetDw("reboot") && MessageQuestion( "#laskreboot#" ) == $IDYES }
{
SetupClose( 2 )
}
}


func s_sixth{}
{

if { MacroGetDw("openshfolder") && str_len( MacroGetStr("shfolder")) }
{
ShellOpen( MacroDone("#shfolder#"))
}
}


func def_askuninstall{}
{
var { str stemp scmdpar
dword i
}


if { DlgShow( WinGetTop(), "AskUninstDlg" ) }
{




str_set( stemp, strf_setext( MacroDone( "#setupdll#" ), "exe" ))
for { i = 0; i < MacroGetDw("cmdparcount"); i++ }
{
MacroSetStr( "uncmdpar", StrGetIdMacro( scmdpar, "cmdpar", i + 1 ))
str_append( stemp, MacroDone(" "#uncmdpar#""))
}
str_append( stemp, " "#sourcepath#\uninstall.ini"")
RunProcess( MacroDone( stemp ), 0, 0 )
}


}


func def_uninstall{}
{


DlgShow( WinGetTop(), "UninstDlg" )



}


func def_update{}
{


}


func UnpackFiles{}
{
unpackfile()
unpackreg()
unpackun()
unpacksh()
unpackrun()
}


func main{}
{
common_init()
s_first()
s_second()
s_third()
s_fourth()
s_fifth()
s_sixth()
}


func askuninstall{}
{
common_init()
def_askuninstall()
}


func uninstall{}
{
common_init()
def_uninstall()
}


func update{}
{
common_init()
def_update()
}

Je vous remercie ......

2 réponses

Réponse 1 / 2
ymca2003 Messages postés 2070 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 3 juillet 2006 7
5 oct. 2005 à 18:31
Euh... je crois que t'es pas sur le bon forum. Ici c'est C/C++ et ça je c'est pas ce que c'est, mais ça y ressemble pas des masses...
0
Réponse 2 / 2
shaiinna Messages postés 32 Date d'inscription mercredi 5 octobre 2005 Statut Membre Dernière intervention 2 novembre 2005
6 oct. 2005 à 09:07
Si je suis sur que c du C....
0

Discussions similaires

[VBA Outlook] Importation de contact - avancé
kojak64 -
scrapitou -

8 réponses
actualiser donnée d'une form1 a form2
titus -
titus067 -

7 réponses
Imprimer un état Access en pdf
cs_Guitare -
pauldw -

7 réponses
Exercice sur Pointeurs, classes, héritage...
snoozriton -
snoozriton -

14 réponses
tres urgent merci d'avance
cs_brico -
brico -

4 réponses
Rejoignez-nous