TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 12th Sep 2006 06:41

Modified: 26th Dec 2006 07:51

Author: laurent mrejen

Summary

A tool to install anything in your computer. It can use system variables to let you define your target path.

Full Description

A tool to install anything in your computer. It can use system variables to let you define your target path.<br /> <br /> You also have some functions to use the kernel32.dll file and a way to make a progress bar

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Outil d'installation de fichier (copie) version 2

`DÃ©cembre 2006

`#########################################################

`#               Constantes                              #

`#########################################################

`Nom du fichier qui possÃ¨de les noms des Ã©lÃ©ments Ã  installer

INSTALL_FICHIER$="install_fichier.txt"

INSTALL_FICNUMBER=1

`Nom du fichier de log

INSTALL_LOG$="install_log.txt"

INSTALL_LOGNUMBER=2

INSTALL_LOCK$="install_lock.txt"

`Constantes des couleurs

GRIS = rgb(168,168,168)

BLANC = rgb(255,255,255)

ORANGE = rgb(250,100,20)

BLEU=rgb(10,50,200)

NOIR = rgb(0,0,0)

`#########################################################

`#               fin Constantes                          #

`#########################################################

`#               Programme principal                     #

`#########################################################

`On met l'exÃ©cution dans une fenÃªtre

sync off

`ParamÃ©trage de la fenÃªtre

set window on

set window title "Install Tool"

set window position 200,200

`set window size 320,240

`On compte le nombre de fichiers Ã  installer

iNbrFile=GetNbrLigneInFile(INSTALL_FICHIER$)

inbFileTraite=0

`On positionne le rectangle progressBar

ProgressBar_X=30

ProgressBar_Y=240

`On vÃ©rifie que le programme n'est pas lancÃ© par quelqu'un d'autre

if file exist(INSTALL_LOCK$)

MsgBox("Une autre personne utilise l'exÃ©cutable. Veuillez rÃ©esssayer ultÃ©rieurement", 16, "Install_Tool")

`On sort du programme

end

endif

`Ouverture des fichiers

open to read INSTALL_FICNUMBER, INSTALL_FICHIER$

if file exist(INSTALL_LOG$) then delete file INSTALL_LOG$

open to write INSTALL_LOGNUMBER, INSTALL_LOG$

`Chaque ligne reprÃ©sente un Ã©lÃ©ment  Ã  copier

`Le sÃ©parateur est un ";". Le premier champ donne le nom du fichier. Le reste donne le chemin

while (file end(INSTALL_FICNUMBER)<>1)

`On lit chaque ligne

read string INSTALL_FICNUMBER, strLigne$

`On copie le fichier

Copie_Fichier(StrLigne$)

write string INSTALL_LOGNUMBER ,GetWord(strLigne$,";",1)+" Ok"

`On fait progresser la barre

inc inbFileTraite

ClearBox(BLEU, ProgressBar_X, ProgressBar_Y, inbFileTraite*610/iNbrFile, 30)

endwhile

close file INSTALL_FICNUMBER

close file INSTALL_LOGNUMBER

`On supprime le fichier verrrou empÃªchant la multiactivation

delete file INSTALL_LOCK$

`Message de confirmation

MsgBox("Les programmes ont bien Ã©tÃ© installÃ©s", 0, "Confirmation d'installation")

end

`#########################################################

`#               Fin du programme principal              #

`#########################################################

`#               MÃ©thodes                                #

`#########################################################

`Copie du fichier source vers le chemin destination

Function Copie_Fichier(StrLigne$)

`RÃ©cupÃ©ration des variables de la ligne

StrNomFicSource$=GetWord(StrLigne$,";", 1)

StrNomFicCible$=Decode_CheminCible(strLigne$)+"\"+StrNomFicSource$

`Copie du fichier dans la zone indiquÃ©e

if file exist(StrNomFicCible$) then delete file StrNomFicCible$

copy file StrNomFicSource$,StrNomFicCible$

Endfunction

`Lecture d'une ligne donnant le chemin

function Decode_CheminCible(strLigne$)

StrChemin$=""

InbElt=GetWordCount(StrLigne$,";")

for i=2 to InbElt

StrElt$=GetWord(StrLigne$,";",i)

if left$(StrElt$,1)="@"

`ElÃ©ment spÃ©cial. On rÃ©cupÃ¨re la valeur Ã  partir des infos systÃ¨me

if StrChemin$=""

StrChemin$=StrChemin$+GetEnvInfo(right$(StrElt$,len(StrElt$)-1))

else

StrChemin$=StrChemin$+"\"+GetEnvInfo(right$(StrElt$,len(StrElt$)-1))

endif

else

`ElÃ©ment standard

if StrChemin$=""

StrChemin$=StrChemin$+StrElt$

else

StrChemin$=StrChemin$+"\"+StrElt$

endif

next i

endfunction StrChemin$

`#########################################################

`#               Fin des mÃ©thodes                        #

`#########################################################

`#               fonctions utiles                        #

`#########################################################

`fonction de rÃ©cupÃ©ration du nombre de lignes dans un fichier texte

function GetNbrLigneInFile(strFileName$)

File_ptr=30:Result=0

open to read  File_ptr, strFileName$

while (file end(File_ptr)<>1)

read string File_ptr, strLigne$

inc Result

endwhile

close file File_Ptr

endfunction Result

`fonction du framework

`Fonction de rÃ©cupÃ©ration des donnÃ©es de connexion

function GetEnvInfo(strInfo$)

`CrÃ©ation d'un buffer de rÃ©cupÃ©ration de l'info

lbuf$=space$(255)+chr$(0)

strInfo$=StrInfo$+chr$(0)

`Chargement de la DLL Kernel32.dll qui renvoie les infos systÃ¨mes

Load dll "Kernel32.dll", 1

`Load dll "advapi32.dll", 1

`RÃ©cupÃ©ration de l'info

Result_Call=call dll(1, "GetEnvironmentVariableA", strInfo$,lbuf$,256)

if result_Call=0

else

result$=lbuf$

endif

if dll exist(1) then delete dll 1

endfunction result$

Function GetWordCount(Chaine$, Sep$)

NbMots=1

for i=1 to len(Chaine$)

if Sep$=mid$(Chaine$, i) then NbMots=NbMots+1

next i

EndFunction NbMots

`Renvoie -1 si umbe est plus grand que le nombre de mots

Function GetWord(Chaine$,Sep$, Number)

Mot$=""

`Obtention du nombre de mots

NbMots=GetWordCount(Chaine$, Sep$)

if Number<=NbMots

j=1

`On parcours la chaine jusqu'Ã  arriver au premier caractÃ¨re du mot Ã  prendre

for i=1 to len(Chaine$)

if mid$(Chaine$,i)=Sep$

j=j+1

i=i+1

EndIf

if j>Number then exit

if j=Number then Mot$=Mot$+ mid$(Chaine$, i)

next i

EndIf

EndFunction Mot$

`Fonction d'affichage de la boite de dialogue traditionnelle msgbox

`MB_OK=0; MB_OKCancel=1; MBAbortRetryIgnore=2; MB_YesNoCancel=3; MB_YesNo=4;MB_RetryCancel=5

`MB_Critical=16; MB_Question=32; MBExclamation=48; MB_Information=64;

`MB_DefaultButton1=0; MB_DefaultButton2=256; MB_DefaultButton3=512;

`MB_ApplicationModal=0; MB_SystemModal=4096

Function MsgBox(StrMessage$, MB_Button, strTitle$)

`Chargement de la dll user32.dll qui contien le contrÃ´le messagebox

USER32_DLL=1

load dll "user32.dll", USER32_DLL

MB_Btn=0x00000000+MB_Button

`Appel de la dll pour afficher la boÃ®te

result=call dll(USER32_DLL, "MessageBoxExA", 0,strMessage$, strTitle$, MB_Btn)

delete dll USER32_DLL

endFunction result

Function ClearBox(BackColor, x, y, longueur, largeur)

set current bitmap 0

ink BackColor,rgb(255,255,255)

box X,Y,X+longueur,Y+largeur

EndFunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Install tool

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	laurent mrejen
CodeBase Entries:	7