Pyo

Salut à tous, J'ai un truc qui m'énerve depuis 2h, je viens donc appeler à l'aide ! Dans mon script, je vais rechercher sur la disquette (A:) si le fichier license est là. Si il y est, je copie ce fichier dans le répertoire d'installation du programme (répertoire choisi par l'utilisateur précédemment) Or mon problème est que mon script copie mon fichier dans le dossier contenant l'installateur (Setup.exe) >< Voici la partie de code qui copie mon fichier : // Copier le fichier tee_pso.lic CopyPasswordFile: bPasswdInstall = FALSE; retBox = AskYesNo("Do you want to install the license file ?", YES); if (retBox) then szSrcDir = SRCDIR; strResult = "A:\\"; if (GetSystemInfo(DRIVE, nvResult, strResult)=0) then if (nvResult=IS_REMOVABLE) then szMsg = "Put the 'Password' floppy disk in drive A:\n and click on the 'Ok' button"; MessageBox(szMsg, INFORMATION); TARGETDIR = svMainDirectory; SRCDIR = "A:\\"; // Chercher le 'ComputerName' RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); szRegKey = "SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName"; szName = "ComputerName"; RegDBGetKeyValueEx(szRegKey, szName, nvType, svValue, nvSize); // Construire le nom du fichier de licence passwordfilename = "tee_pso_" + svValue + ".lic"; fullpasswordfilename = SRCDIR ^ passwordfilename; #ifdef DEBUG szMsg = "Fichier de licence recherché : " + passwordfilename + "\n\n"; MessageBox(szMsg, INFORMATION); #endif if (GetFileInfo(fullpasswordfilename, FILE_SIZE, nvResult, szResult)<0) then szMsg = "Can't find '" + passwordfilename + "' on floppy disk\n\n"; szMsg = szMsg + " -> You will have to copy it manually\n\n"; MessageBox(szMsg, WARNING); goto DisplayEndMessage; else // svLicenseDirectory = "C:\Program Files\TEE_PSO\Flexlm\tee_pso.lic"; retBox = CopyFile(passwordfilename, "tee_pso.lic"); if (retBox<0) then szMsg = "Unable to copy '" + fullpasswordfilename + "' to " + TARGETDIR; #ifdef DEBUG NumToStr(szTemp, retBox); szMsg = szMsg + " Code d'erreur " + szTemp + " \n\n"; #endif MessageBox(szMsg, SEVERE); abort; endif; bPasswdInstall = TRUE; endif; endif; endif; SRCDIR = szSrcDir; endif; DisplayEndMessage: // If shared files could not be installed, then users must restart system. if (BATCH_INSTALL) then szMsg = "Some files could not be installed because they are " + "currently in use by other programs in the system. " + "To allow for proper operation of the new program you should restart" + "your system at this time."; CommitSharedFiles(0); RebootDialog("Restart Windows", szMsg, SYS_BOOTMACHINE); else szMsg = "Setup is complete.\n\n\n"; // Message pour Windows NT if (!bPasswdInstall) then svMainDirectory = TARGETDIR; szMsg = szMsg + "Don't forget to copy the license file tee_pso.lic\n"; szMsg = szMsg + " to the FLEXlm directory '" + svMainDirectory + "'\n\n"; endif; endif; MessageBeep(0); MessageBox(szMsg, INFORMATION); Je signale que j'utilise InstallShield Professional X mais ce code n'a aucune fonction récente. Je vous remercie d'avance pour votre aide !

Salut à tous, J'utilise actuellement InstallShield X afin de créer un programme d'installation (Si si jvous jure ) J'ai plusieurs parties différentes dans mon programme donc la partie "basique", celle que je voudrais qui sois obligatoire. Je suis arrivé à séparer tous mes éléments et à faire des cases à cocher mais l'utilisateur sait décocher l'option "basique". J'aurais donc bien voulu savoir comment faire pour obliger l'utilisateur à installer la base du programme. S'il le veut, il doit pouvoir aussi cocher les autres options (évidemment). Je vous remercie d'avance pour votre aide ! A vrai dire, je compte vraiment sur l'aide d'autres internautes, j'ai fait toute la FAQ d'InstallShield, pas moyen de trouver ! Bien à vous, P-Y Orban