Discussion :

[Rdan13]

Bonjour à tous
J'ai fait une petite appli vb6 que je voudrais distribuer gratuitement mais le .exe a du mal à passer . j'ai essayer de faire
un zip mais là la personne qui le reçoit doit le dé zipper : ce qui n' est pas évident .
avez - vous une solution ?
w 10
Merci
Rdan13

[ranzoken]

Lors d'un de mes boulot j'ai eu exactement le même cas.

Je suis passé par un utilitaire d'assitant d'installation du nom de InnoSetup
il te permet de faire des script en DELPHI pour personnalisé ton install

tu trouvera des exemple un peut partout sur le net

[Rdan13]

Merci beaucoup . Depuis rien je suis dessus et je ne crois pas de m'en sortir sans aide .
je vais prendre un exemple plus facile , je crois.
Encore une fois merci
Cordialement
Rdan13

[ranzoken]

Et j'ai une mauvais nouvelle à t'annoncer, ce sera de pire en pire.
le VB5, VB6, et même le VBA utilise des contrôle utilisateur externe (des fichiers OCX), qui ne sont plus maintenue sur windows depuis vista ou seven (je sais pu exactement)
donc quand tu fait un programme avec ces librairies il faudra créer un exécutable externe qui enregistra ces librairies avec la commande "regsvr32" pour le bon fonctionnellement de l'application, donc oui c'est la ......

du coup mon conseil, c'est de passer sur un autre langage et laisser à la trappe le VB6.
Pour de petite application je te conseille deux langage
1 - excel (version 2013 et +),
avantage, tu n'es pas obligé de réapprendre un langage c'est quasiment le même sur VB6
inconvénient, il faut avoir Excel pour que ça fonctionne
2 - Autoit langage de script très complet avec une bonne communauté
avantage, facile d'installation tous est dans le l’exécutable aucune installation n'est nécessaire
inconvénient, nouveau langage, langage de script donc on arrive vite au limite du langage



Après tous dépend de ton type d'application et de tes besoin.

[Rdan13]

Merci Ranzoken de tout ces renseignements : tu es un pote !
Je voudrais continuer d'abord avec Inno Setup : vois ce que tu peux faire , si tu peux : dans le code il y a un grand espace et un mot d'explication ou ça bloque


[CODE]
; -- CodeExample1.iss --
;
; This script shows various things you can achieve using a [Code] section

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={code:MyConst}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe

OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "ADDITION7.exe"; DestDir: "{app}"; Check: MyProgCheck; BeforeInstall: BeforeMyProgInstall('MyProg.exe'); AfterInstall: AfterMyProgInstall('MyProg.exe')


[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"

[Code]
var
MyProgChecked: Boolean;
MyProgCheckResult: Boolean;
FinishedInstall: Boolean;

function InitializeSetup(): Boolean;
begin
Log('InitializeSetup called');
Result := MsgBox('InitializeSetup:' #13#13 'Setup is initializing. Do you really want to start setup?', mbConfirmation, MB_YESNO) = idYes;
if Result = False then
MsgBox('InitializeSetup:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
end;

procedure DeinitializeSetup();
var
FileName: String;
ResultCode: Integer;
begin
Log('DeinitializeSetup called');
if FinishedInstall then begin
if MsgBox('DeinitializeSetup:' #13#13 'The [Code] scripting demo has finished. Do you want to uninstall My Program now?', mbConfirmation, MB_YESNO) = idYes then begin
FileName := ExpandConstant('{uninstallexe}');
if not Exec(FileName, '', '', SW_SHOWNORMAL, ewNoWait, ResultCode) then
MsgBox('DeinitializeSetup:' #13#13 'Execution of ''' + FileName + ''' failed. ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
end else
MsgBox('DeinitializeSetup:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
Log('CurStepChanged(' + IntToStr(Ord(CurStep)) + ') called');
if CurStep = ssPostInstall then
FinishedInstall := True;
end;

procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer);
begin
Log('CurInstallProgressChanged(' + IntToStr(CurProgress) + ', ' + IntToStr(MaxProgress) + ') called');
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
ResultCode: Integer;
begin
Log('NextButtonClick(' + IntToStr(CurPageID) + ') called');
case CurPageID of
wpSelectDir:
MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.', mbInformation, MB_OK);
wpSelectProgramGroup:
MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.', mbInformation, MB_OK);
wpReady:
begin
if MsgBox('NextButtonClick:' #13#13 'Using the script, files can be extracted before the installation starts. For example we could extract ''MyProg.exe'' now and run it.' #13#13 'Do you want to do this?', mbConfirmation, MB_YESNO) = idYes then begin
ExtractTemporaryFile('ADDITION7.exe');
---------------

DIS MOI CE QUE JE PEUX METTRE là à la place de ADDITION7.exe j'y perds mon latin





if not ExecAsOriginalUser(ExpandConstant('{tmp}\myprog.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
MsgBox('NextButtonClick:' #13#13 'The file could not be executed. ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
end;
BringToFrontAndRestore();
MsgBox('NextButtonClick:' #13#13 'The normal installation will now start.', mbInformation, MB_OK);
end;
end;

Result := True;
end;

function BackButtonClick(CurPageID: Integer): Boolean;
begin
Log('BackButtonClick(' + IntToStr(CurPageID) + ') called');
Result := True;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
Log('ShouldSkipPage(' + IntToStr(PageID) + ') called');
{ Skip wpInfoBefore page; show all others }
case PageID of
wpInfoBefore:
Result := True;
else
Result := False;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
Log('CurPageChanged(' + IntToStr(CurPageID) + ') called');
case CurPageID of
wpWelcome:
MsgBox('CurPageChanged:' #13#13 'Welcome to the

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 scripting demo. This demo will show you some possibilities of the scripting support.' #13#13 'The scripting engine used is RemObjects Pascal Script by Carlo Kok. See http://www.remobjects.com/ps for more information.', mbInformation, MB_OK);
    wpFinished:
      MsgBox('CurPageChanged:' #13#13 'Welcome to final page of this demo. Click Finish to exit.', mbInformation, MB_OK);
  end;
end;
 
function PrepareToInstall(var NeedsRestart: Boolean): String;
begin
  Log('PrepareToInstall() called');
  if MsgBox('PrepareToInstall:' #13#13 'Setup is preparing to install. Using the script you can install any prerequisites, abort Setup on errors, and request restarts. Do you want to return an error now?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = idYes then
    Result := '<your error text here>.'
  else
    Result := '';
end;
 
function MyProgCheck(): Boolean;
begin
  Log('MyProgCheck() called');
  if not MyProgChecked then begin
    MyProgCheckResult := MsgBox('MyProgCheck:' #13#13 'Using the script you can decide at runtime to include or exclude files from the installation. Do you want to install MyProg.exe and MyProg.chm to ' + ExtractFilePath(CurrentFileName) + '?', mbConfirmation, MB_YESNO) = idYes;
    MyProgChecked := True;
  end;
  Result := MyProgCheckResult;
end;
 
procedure BeforeMyProgInstall(S: String);
begin
  Log('BeforeMyProgInstall(''' + S + ''') called');
  MsgBox('BeforeMyProgInstall:' #13#13 'Setup is now going to install ' + S + ' as ' + CurrentFileName + '.', mbInformation, MB_OK);
end;
 
procedure AfterMyProgInstall(S: String);
begin
  Log('AfterMyProgInstall(''' + S + ''') called');
  MsgBox('AfterMyProgInstall:' #13#13 'Setup just installed ' + S + ' as ' + CurrentFileName + '.', mbInformation, MB_OK);
end;
 
function MyConst(Param: String): String;
begin
  Log('MyConst(''' + Param + ''') called');
  Result := ExpandConstant('{pf}');
end;

[DarkVader]

Et j'ai une mauvais nouvelle à t'annoncer, ce sera de pire en pire.
le VB5, VB6, et même le VBA utilise des contrôle utilisateur externe (des fichiers OCX), qui ne sont plus maintenue sur windows depuis vista ou seven (je sais pu exactement)

Dernière MAJ aout? 2012
Certes, VB6 n'est pas le langage d'avenir, mais il n'est pas mort

donc quand tu fait un programme avec ces librairies il faudra créer un exécutable externe qui enregistra ces librairies avec la commande "regsvr32" pour le bon fonctionnellement de l'application, donc oui c'est la ......

Pas forcément - outre la solution de l'installeur, il y a aussi la solution d'une distribution par manifeste
qui ne nécessite plus d'enregistrement des librairies et controles dans la base de registre

du coup mon conseil, c'est de passer sur un autre langage et laisser à la trappe le VB6.
Pour de petite application je te conseille deux langage
1 - excel (version 2013 et +),
avantage, tu n'es pas obligé de réapprendre un langage c'est quasiment le même sur VB6
inconvénient, il faut avoir Excel pour que ça fonctionne .

On peut compiler un programme VBA sous Excel 2013 ?

PS: VBA c'est VB pour Application

[SfJ5Rpw8]

Bonjour,

à lire : Distribuer vos applications VB6 avec InnoSetup

et La section [Code] de InnoSetup

[Rdan13]

Bonsoir bbil

Je l'avais lus : C'est d'un niveau trop difficile pour moi.
Je bataille déjà avec les choses dites simples
Merci pour les renseignement