Показать полную графическую версию : [архив] Скрипты Inno Setup. Помощь и советы [часть 2]
P.S. Проценты на месте ))) »
Тоже на месте вот только не изменяются все время 0.0 %, во втором прогресс баре все норм.
У тебя так?:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then begin
StartInstall:= GetTickCount {время начала извлечения файлов}
WndHookID:= SetWindowsHookEx(WH_CALLWNDPROC, WrapCWPSTRUCTProc(@OnWndHook, 3), 0, GetCurrentThreadID); {установка SendMessage хука}
TimerID:= SetTimer(0, 0, 500 {полсекунды}, WrapTimerProc(@MyTimerProc, 4)); {установка таймера}
if not {#isFalse(SetupSetting("Uninstallable"))} then Status.count:= -1; // не считать файл unins000.exe
end;
if CurStep = ssInstall then
begin
StartInstall:= GetTickCount {время начала распаковки}
UnPackError:= UnPack('{#Archives}')
if UnPackError <> 0 then begin // Error occured, uninstall it then
if not {#isFalse(SetupSetting("Uninstallable"))} then // деинсталляция разрешёна
Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n); // откат установки из-за ошибки unarc.dll
WizardForm.caption:= SetupMessage(msgErrorTitle) +' - '+ cm('ArcBreak')
SetTaskBarTitle(SetupMessage(msgErrorTitle))
end else
SetTaskBarTitle(SetupMessage(msgSetupAppTitle));
end;
end;
DemonAk, я в скрипте ничего не менял, кроме замены формата с arc на cab и ssInstall. У тебя какая версия скрипта? У меня 3.2 и всё нормально. На всякий прикрепил , попробуй (на ssInstall уже заменил)
А у тебя проблем с распаковкой не было, если меняешь изначально заданный путь установки на другой??
А у тебя проблем с распаковкой не было, если меняешь изначально заданный путь установки на другой?? »
Нет не было, я использую скрипт виктора доброва http://victor-dobrov.narod.ru/FreeArc_Example-ext.7z
DemonAk, я тоже, и прикреплял его же.... Проценты то пошли???
Converter v.0.1.4
Converter - конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
Добавлена возможность создать секцию [Setup];
Удалён пункт - использовать тип данных qword;
Переписаны системные модули используемые программой, за счёт чего, уменьшен размер;
Исправлены найденные ошибки;
Исправлен алгоритм обработки reg файла;
Раньше при обработке бинарных данных размером более ста строк, приводило к существенному замедлению в работе программы. К примеру, экспортирую в HKCU.reg целиком ветку реестра HKEY_CURRENT_USER (полученный размер 10 Мбайт), его обработка раньше занимала, приблизительно 30 минут, сейчас он обрабатывается за несколько секунд...
Полностью переписан код программы, без использования VCL, за счёт чего, значительно уменьшен размер программы;
Изменён интерфейс программы;
Исправлены незначительные ошибки;
Оптимизирован код программы;
Корректно читаются и конвертируются из HEX данных в читаемый вид, значения ключей REG_EXPAND_SZ (expandsz) и REG_MULTI_SZ (multisz);
Добавлена поддержка удаления веток и параметров (записи вида [-ветка] и "параметр"=-);
Добавлена возможность интеграции в контекстное меню;
Добавлена функция drag&drop, т.е. reg-файл можно перетащить мышкой на форму и программа конвертирует его;
Добавлена возможность закрыть программу, после конвертирования;
Добавлена возможность использования флагов и констант;
Добавлена возможность открыть файл, после конвертирования;
Все неподдерживаемые в Inno Setup ключи реестра, теперь прописываются в секции кода;
Оптимизирован код программы и изменено оформление;
Исправлена ошибка с преобразованием: HKEY_LOCAL_MACHINE -> HKLM;
Исправлена ошибка, связанная с пустыми данными в reg-файле;
Убрал ограничение на размер входного reg-файла;
Исправлены мелкие недочёты и ошибки;
Скачать программу можно с ifolder.ru (http://ifolder.ru/16817015), а так же прикрепил архив к сообщению.
P.S.
Если вы заметили ошибки в результате работы программы, сообщите пожалуйста об этом.
я тоже, и прикреплял его же.... Проценты то пошли??? »
Нет скрипты не одинаковые они отличаются причем значительно, поэтому я не пробывал
МИШАНЧИК
12-09-2009, 10:48
Serega, подскажите пожалуйста, как поменять цвет шрифта на белый?
МИШАНЧИК
12-09-2009, 16:37
Serega, подскажите пожалуйста, можно ли как-то сделать в этом(Вашем) скрипте чтобы картинки были фоном на каждой странице установки(не только на первой и последней), а цвет текста на фоне картинок был белым?
Есть полезная программа - Gene6 FTP Server, я в ней поменя русский файлик, начал собирать она выдает ошибку, хотя скрипт нетрогал.
[Setup]
AppName=Gene6 FTP Server
AppVerName=Gene6 FTP Server v3.10.0.2
DefaultDirName={pf}\Gene6 FTP Server
OutputBaseFilename=g6ftpdsetup_3.10.0.2
Compression=lzma
LicenseFile=embedded\License.txt
InfoBeforeFile=embedded\InfoBefore.txt
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp
DefaultGroupName=Óòèëèòû\Gene6 FTP
[Files]
; Source: "{app}\Backup\,1"; DestDir: "{app}\Backup"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\,2"; DestDir: "{app}\Backup"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\,3"; DestDir: "{app}\Backup"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\,4"; DestDir: "{app}\Backup"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\,5"; DestDir: "{app}\Backup"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\Accounts\"; DestDir: "{app}\Backup\Accounts"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\RemoteAdmin\"; DestDir: "{app}\Backup\RemoteAdmin"; Flags: uninsneveruninstall skipifsourcedoesntexist
; Source: "{app}\Backup\Plugins\"; DestDir: "{app}\Backup\Plugins"; Flags: uninsneveruninstall skipifsourcedoesntexist
Source: {app}\Version.txt; DestDir: {app}; Flags: ignoreversion
Source: {app}\languages.sib; DestDir: {app}; Components: admin; Languages: fr; Flags: confirmoverwrite
Source: {app}\license.txt; DestDir: {app}; Flags: ignoreversion
Source: {app}\Help\manual,1.pdf; DestDir: {app}\Help; DestName: manual.pdf; Components: help; Flags: ignoreversion
Source: {app}\Help\manual,2.pdf; DestDir: {app}\Help; DestName: manual.pdf; Components: help; Languages: fr; Flags: ignoreversion
Source: {app}\G6FTPServer.exe; DestDir: {app}; Components: server; Flags: ignoreversion
Source: {app}\G6FTPTray,1.exe; DestDir: {app}; DestName: G6FTPTray.exe; Components: traymonitor; Flags: ignoreversion
Source: {app}\G6FTPTray,2.exe; DestDir: {app}; DestName: G6FTPTray.exe; Components: traymonitor; Languages: fr; Flags: ignoreversion
Source: {app}\RemoteAdminServer.dll; DestDir: {app}; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_auth_db.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_auth_exe.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_auth_nt.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_compression_zlib.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_fs_empty.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_fs_ftp.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_fs_ramdisk.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_bandwidth.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_custom.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_sitemsg.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_syslog.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_system.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_transfers.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_log_w3c.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_pswd_email.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_pswd_nt.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_pswd_otp_md5.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_pswd_salted_md5.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_pswd_sha1.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_script_js_vb.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\g6_tray.dll; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Plugins\plugins.ini; DestDir: {app}\Plugins; Components: server; Flags: ignoreversion
Source: {app}\Scripts\Log downloads.vbs; DestDir: {app}\Scripts; Components: server; Flags: confirmoverwrite
Source: {app}\Scripts\Log uploads.vbs; DestDir: {app}\Scripts; Components: server; Flags: confirmoverwrite
Source: {app}\Scripts\SiteCommands.vbs; DestDir: {app}\Scripts; Components: server; Flags: confirmoverwrite
Source: {app}\G6FTPAdmin.exe; DestDir: {app}; Components: admin; Flags: ignoreversion
Source: {app}\libssl32.dll; DestDir: {app}; Components: server,admin; Flags: ignoreversion
Source: {app}\libeay32.dll; DestDir: {app}; Components: server,admin; Flags: ignoreversion
[Registry]
Root: HKCU; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueName: G6FTP Server Tray Monitor; ValueType: String; ValueData: """{app}\G6FTPTray.exe"""; Components: traymonitor; Tasks: trayiconstart; Flags: uninsdeletevalue
[Run]
Filename: regedit; Parameters: "/E ""{app}\Backup\Administrator.reg"" HKEY_CURRENT_USER\Software\Gene6\G6FTPAdmin"
Filename: {app}\G6FTPSERVER.EXE; Parameters: -install; StatusMsg: {cm:InstallingServiceStatus}; Components: server
Filename: {app}\G6FTPADMIN.EXE; WorkingDir: {app}; Description: {cm:StartAdmin}; Components: admin
Filename: {app}\G6FTPTRAY.EXE; WorkingDir: {app}; Description: {cm:StartTray}; Components: traymonitor
[UninstallRun]
Filename: {app}\G6FTPSERVER.EXE; Parameters: -uninstall; StatusMsg: {cm:UninstallingServiceStatus}
[Icons]
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{cm:IconsRemoteAdministratorName}; Filename: {app}\G6FTPADMIN.EXE; Comment: {cm:IconsRemoteAdministratorComment}; Components: admin; Tasks: quicklaunchicon
Name: {userdesktop}\{cm:IconsRemoteAdministratorName}; Filename: {app}\G6FTPADMIN.EXE; Comment: {cm:IconsRemoteAdministratorComment}; Components: admin; Tasks: desktopicon
Name: {group}\{cm:IconsRemoteAdministratorStartMenuName}; Filename: {app}\G6FTPADMIN.EXE; Comment: {cm:IconsRemoteAdministratorComment}; Components: admin; Tasks: startmenuicon
Name: {group}\{cm:IconsTrayIconName}; Filename: {app}\G6FTPTRAY.EXE; Comment: {cm:IconsTrayIconComment}; Components: traymonitor; Tasks: startmenuicon
Name: {group}\{cm:LinkStartServiceName}; Filename: {app}\G6FTPSERVER.EXE; Parameters: -start; IconFilename: {sys}\filemgmt.dll; Comment: {cm:LinkStartServiceComment}; Components: server; Tasks: startmenuicon
Name: {group}\{cm:LinkStopServiceName}; Filename: {app}\G6FTPSERVER.EXE; Parameters: -stop; IconFilename: {sys}\filemgmt.dll; Comment: {cm:LinkStopServiceComment}; Components: server; Tasks: startmenuicon
Name: {group}\{cm:LinkInstallServiceName}; Filename: {app}\G6FTPSERVER.EXE; Parameters: -install; IconFilename: {sys}\filemgmt.dll; Comment: {cm:LinkInstallServiceComment}; Components: server; Tasks: startmenuicon
Name: {group}\{cm:LinkUnInstallServiceName}; Filename: {app}\G6FTPSERVER.EXE; Parameters: -uninstall; IconFilename: {sys}\filemgmt.dll; Comment: {cm:LinkUnInstallServiceComment}; Components: server; Tasks: startmenuicon
Name: {group}\{cm:LinkManualName}; Filename: {app}\Help\Manual.pdf; Components: help; Tasks: startmenuicon
Name: {group}\{cm:LinkPurchaseName}; Filename: {app}\Help\Gene6 FTP Server Purchase.url; Components: help; Tasks: startmenuicon
Name: {group}\{cm:LinkFAQName}; Filename: {app}\Help\Gene6 FTP Server FAQ.url; Components: help; Tasks: startmenuicon
Name: {group}\{cm:LinkDownloadName}; Filename: {app}\Help\Gene6 FTP Server Update.url; Components: help; Tasks: startmenuicon
Name: {group}\{cm:LinkForumName}; Filename: {app}\Help\Gene6 FTP Server Forum.url; Components: help; Tasks: startmenuicon
Name: {group}\{cm:LinkManualName}; Filename: {app}\Help\Manual.pdf; Components: help; Tasks: startmenuicon
Name: {group}\{cm:LinkWebsiteName}; Filename: {app}\Help\Gene6 FTP Server Website.url; Comment: {cm:LinkWebsiteComment}; Components: admin,server,help; Tasks: startmenuicon
Name: {group}\{cm:UninstallApplicationName}; Filename: {uninstallexe}; Comment: {cm:UninstallApplicationComment}; Tasks: startmenuicon
Name: {group}\{cm:LicenseFileName}; Filename: {app}\{cm:LicenseFile}; Components: admin,server,help; Tasks: startmenuicon
[Tasks]
Name: trayiconstart; Description: {cm:TaskLaunchTrayAtStartup}; GroupDescription: {cm:TaskTrayMonitorDecription}; Components: traymonitor
Name: desktopicon; Description: {cm:TaskCreateDesktopIcon}; GroupDescription: {cm:TaskAdditionalIconsDescription}; Components: admin
Name: quicklaunchicon; Description: {cm:TaskCreateQuickLaunchIcon}; GroupDescription: {cm:TaskAdditionalIconsDescription}; Components: admin
Name: startmenuicon; Description: {cm:TaskCreateStartMenuIcon}; GroupDescription: {cm:TaskAdditionalIconsDescription}; Components: server,admin
[Components]
Name: server; Description: {cm:ServerEngine}; Types: full custom
Name: admin; Description: {cm:AdministrationClient}; Types: full admin custom
Name: traymonitor; Description: {cm:TrayMonitor}; Types: full custom
Name: help; Description: {cm:HelpFiles}; Types: full admin custom
[Types]
Name: full; Description: {cm:FullInstallation}
Name: admin; Description: {cm:InstallAdminOnly}
Name: custom; Description: {cm:CustomInstallation}
[CustomMessages]
en.AdditionalIcons=Additional icons:
en.CreateDesktopIcon=Create a &desktop icon
en.CreateQuickLaunchIcon=Create a &Quick Launch icon
en.ProgramOnTheWeb=%1 on the Web
en.UninstallProgram=Uninstall %1
en.LaunchProgram=Launch %1
en.AssocFileExtension=&Associate %1 with the %2 file extension
en.AssocingFileExtension=Associating %1 with the %2 file extension...
fr.AdditionalIcons=Icônes supplémentaires :
fr.CreateDesktopIcon=Créer une icône sur le &Bureau
fr.CreateQuickLaunchIcon=Créer une icône dans la barre de &Lancement rapide
fr.ProgramOnTheWeb=Page d'accueil de %1
fr.UninstallProgram=Désinstallation de %1
fr.LaunchProgram=Exécuter %1
fr.AssocFileExtension=&Associer %1 avec l'extension de fichier %2
fr.AssocingFileExtension=Associe %1 avec l'extension de fichier %2...
de.AdditionalIcons=Zusätzliche Symbole:
de.CreateDesktopIcon=&Desktop-Symbol anlegen
de.CreateQuickLaunchIcon=Symbol in der Schnellstartleiste anlegen
de.ProgramOnTheWeb=%1 im Internet
de.UninstallProgram=%1 entfernen
de.LaunchProgram=%1 starten
de.AssocFileExtension=&Registriere %1 mit der %2-Dateierweiterung
de.AssocingFileExtension=%1 wird mit der %2-Dateierweiterung registriert...
nl.AdditionalIcons=Extra snelkoppelingen:
nl.CreateDesktopIcon=Maak een snelkoppeling op het &bureaublad
nl.CreateQuickLaunchIcon=Maak een snelkoppeling op de &Snel starten werkbalk
nl.ProgramOnTheWeb=%1 op het Web
nl.UninstallProgram=Verwijder %1
nl.LaunchProgram=&Start %1
nl.AssocFileExtension=&Koppel %1 aan de %2 bestandsextensie
nl.AssocingFileExtension=Bezig met koppelen van %1 aan de %2 bestandsextensie...
sp.AdditionalIcons=Additional icons:
sp.CreateDesktopIcon=Create a &desktop icon
sp.CreateQuickLaunchIcon=Create a &Quick Launch icon
sp.ProgramOnTheWeb=%1 on the Web
sp.UninstallProgram=Uninstall %1
sp.LaunchProgram=Launch %1
sp.AssocFileExtension=&Associate %1 with the %2 file extension
sp.AssocingFileExtension=Associating %1 with the %2 file extension...
it.AdditionalIcons=Additional icons:
it.CreateDesktopIcon=Create a &desktop icon
it.CreateQuickLaunchIcon=Create a &Quick Launch icon
it.ProgramOnTheWeb=%1 on the Web
it.UninstallProgram=Uninstall %1
it.LaunchProgram=Launch %1
it.AssocFileExtension=&Associate %1 with the %2 file extension
it.AssocingFileExtension=Associating %1 with the %2 file extension...
ru.AdditionalIcons=Äîïîëíèòåëüíûå çíà÷êè:
ru.CreateDesktopIcon=Ñîçäàòü çíà÷îê íà &Ðàáî÷åì ñòîëå
ru.CreateQuickLaunchIcon=Ñîçäàòü çíà÷îê â &Ïàíåëè áûñòðîãî çàïóñêà
ru.ProgramOnTheWeb=Ñàéò %1 â Èíòåðíåòå
ru.UninstallProgram=Äåèíñòàëëèðîâàòü %1
ru.LaunchProgram=Çàïóñòèòü %1
ru.AssocFileExtension=Ñâ&ÿçàòü %1 ñ ôàéëàìè, èìåþùèìè ðàñøèðåíèå %2
ru.AssocingFileExtension=Ñâÿçûâàíèå %1 ñ ôàéëàìè %2...
se.AdditionalIcons=Återstående ikoner:
se.CreateDesktopIcon=Skapa en ikon på srivbordet
se.CreateQuickLaunchIcon=Skapa en ikon i Snabbstartfältet
se.ProgramOnTheWeb=%1 på Webben
se.UninstallProgram=Avinstallera %1
se.LaunchProgram=Starta %1
se.AssocFileExtension=&Associera %1 med %2 filnamnstillägg
se.AssocingFileExtension=Associerar %1 med %2 filnamnstillägg...
FullInstallation=Full installation (administration & server)
fr.FullInstallation=Installation complète (administration distante & serveur)
InstallAdminOnly=Administration client only
fr.InstallAdminOnly=Client d'administration à distance seulement
CustomInstallation=Custom installation
fr.CustomInstallation=Installation personnalisée
ServerEngine=Server engine
fr.ServerEngine=Serveur FTP
AdministrationClient=Administration client
fr.AdministrationClient=Client d'administration à distance
TrayMonitor=Tray monitor
fr.TrayMonitor=Observateur trayicon
HelpFiles=Help files
fr.HelpFiles=Aide
StartTray=Launch tray monitor
fr.StartTray=Démarrer l'observateur trayicon
StartAdmin=Launch administration tool
fr.StartAdmin=Démarrer l'administration à distance
TaskLaunchTrayAtStartup=Launch Tray &monitor at windows startup
fr.TaskLaunchTrayAtStartup=Démarrer l'observateur trayicon au lancement de windows
TaskCreateDesktopIcon=Create a &Desktop icon
fr.TaskCreateDesktopIcon=Créer une icône sur le bureau
TaskCreateQuickLaunchIcon=Create a &Quick launch icon
fr.TaskCreateQuickLaunchIcon=Créer une icône de lancement rapide
TaskCreateStartMenuIcon=Create &Start menu icons
fr.TaskCreateStartMenuIcon=Créer les icônes dans le menu Démarrer
TaskTrayMonitorDecription=Tray monitor:
fr.TaskTrayMonitorDecription=Observateur serveur:
TaskAdditionalIconsDescription=Additional icons:
fr.TaskAdditionalIconsDescription=Icônes additionnelles:
IconsRemoteAdministratorName=G6FTP Server Administrator
fr.IconsRemoteAdministratorName=G6FTP Server Administrateur
MA_IconsRemoteAdministratorName=FTP Serveur Expert
EC_IconsRemoteAdministratorName=FTP Server
IconsRemoteAdministratorStartMenuName=G6FTP Server Administrator
fr.IconsRemoteAdministratorStartMenuName=G6FTP Server Administration à distance
MA_IconsRemoteAdministratorStartMenuName=Administration à distance
EC_IconsRemoteAdministratorStartMenuName=Beheer op afstand
IconsRemoteAdministratorComment=Remote administration client
fr.IconsRemoteAdministratorComment=Administration à distance
MA_IconsRemoteAdministratorComment=Administration à distance
EC_IconsRemoteAdministratorComment=Beheer op afstand client
IconsTrayIconName=G6FTP Server Tray Monitor
fr.IconsTrayIconName=G6FTP Server Observateur Trayicon
MA_IconsTrayIconName=Observateur Trayicon
EC_IconsTrayIconName=FTP Server Tray Monitor
IconsTrayIconComment=Server tray monitor
fr.IconsTrayIconComment=Observateur trayicon
MA_IconsTrayIconComment=Observateur trayicon
EC_IconsTrayIconComment=Server tray monitor
LinkStartServiceName=Administrative tools\Start Service
fr.LinkStartServiceName=Outils d'administration\Démarrer le service
LinkStartServiceComment=Start the system service
fr.LinkStartServiceComment=Démarrer le service
LinkStopServiceName=Administrative tools\Stop Service
fr.LinkStopServiceName=Outils d'administration\Arrêter le service
LinkStopServiceComment=Stop the system service
fr.LinkStopServiceComment=Arrêter le service
LinkInstallServiceName=Administrative tools\Install Service
fr.LinkInstallServiceName=Outils d'administration\Installer le service
LinkInstallServiceComment=Install as a system service
fr.LinkInstallServiceComment=Installer le service
LinkUnInstallServiceName=Administrative tools\Uninstall Service
fr.LinkUnInstallServiceName=Outils d'administration\Désinstaller le service
LinkUnInstallServiceComment=Uninstall the system service
fr.LinkUnInstallServiceComment=Désinstaller le service
MA_LinkProductName=Fiche produit
EC_LinkProductName=Productfiche
MA_LinkProductComment=Visiter le site web
EC_LinkProductComment=Bezoek de site
LinkDownloadName=Help\Download update
fr.LinkDownloadName=Aide\Mise à jour
LinkFAQName=Help\FAQ
fr.LinkFAQName=Aide\FAQ
LinkPurchaseName=Help\Purchase
fr.LinkPurchaseName=Aide\Achat
LinkForumName=Help\Forum
fr.LinkForumName=Aide\Forum
LinkManualName=Help\Manual
fr.LinkManualName=Aide\Manuel
LinkWebsiteName=G6FTP Server Website
fr.LinkWebsiteName=Site web de G6FTP Server
LinkWebsiteComment=Visit G6FTP Server website
fr.LinkWebsiteComment=Visiter le site web de G6FTP Server
LicenseFileName=License
fr.LicenseFileName=Licence
LicenseFile=License.txt
MA_LicenseFile=eula.rtf
EC_LicenseFile=Licence.txt
UninstallApplicationName=Uninstall G6FTP Server
fr.UninstallApplicationName=Désinstaller G6FTP Server
MA_UninstallApplicationName=Désinstaller l'application
EC_UninstallApplicationName=Verwijder FTP Server
UninstallApplicationComment=Uninstall the software
fr.UninstallApplicationComment=Désinstaller le logiciel
MA_UninstallApplicationComment=Désinstaller le logiciel
EC_UninstallApplicationComment=Verwijder de software
InstallingServiceStatus=Installing as system service...
fr.InstallingServiceStatus=Installation en service système...
UninstallingServiceStatus=Uninstalling system service...
fr.UninstallingServiceStatus=Désinstallation du service...
MsgServerIsRunning=Setup has detected that Gene6 FTP Server is currently running.
Click OK to stop the service, or Cancel to abort installation.=
fr.MsgServerIsRunning=L'installation a détecté que Gene6 FTP Server est actuellement en cours d''utilisation.
Cliquez sur OK pour arrêter le service, ou Annuler pour abandonner l'installation.=
MsgAdminIsRunning=Please close all running instances of Gene6 FTP Server Administrator & Tray monitor.
Click Retry to continue, or Cancel to abort installation.=
fr.MsgAdminIsRunning=Veuillez quitter toutes les instances de Gene6 FTP Server Administrateur (administration à distance) et de l'observateur trayicon.
Cliquez sur Réessayer pour continuer, ou Annuler pour abandonner l'installation.=
MsgEnterPort=Enter port number (1-65535, %s = default, 21 is not accepted) :
fr.MsgEnterPort=Entrez un port (1-65535, %s = défaut, 21 n'est pas accepté) :
MsgPortNumberMissing=You must enter a port number between 1 and 65535, not 21!
fr.MsgPortNumberMissing=Vous devez entrer un port entre 1 et 65535, différent de 21!
MsgRemoteAdminCaption=Remote administration
fr.MsgRemoteAdminCaption=Administration à distance
MsgRemoteAdminSubCaption1=Select the port to use for remote administration
fr.MsgRemoteAdminSubCaption1=Sélectionnez un port pour l'administration à distance
MsgRemoteAdminSubCaption2=Please indicate the port the remote administration will be listening to.
This is not the FTP port 21 which is reserved for FTP.=
fr.MsgRemoteAdminSubCaption2=Indiquez le port à utiliser pour l'administration à distance.
Le port 21 est reservé pour le FTP.=
MsgAdministratorName=Administrator
fr.MsgAdministratorName=Administrateur
MsgAdministratorCaption=Administrator account setup
fr.MsgAdministratorCaption=Création du compte Administrateur
MsgAdministratorSubCaption1=Please enter login and password for the server administrator account.
fr.MsgAdministratorSubCaption1=Entrez le nom d'utilisateur et le mot de passe du compte administrateur du serveur.
MsgAdministratorSubCaption2=This account is important as it will be used to administer your FTP server.
fr.MsgAdministratorSubCaption2=Ce compte est important car il vous permet d'administrer votre serveur FTP.
MsgAdministratorError=You must enter an administrator login and a password!
fr.MsgAdministratorError=Vous devez entrer un nom et un mot de passe!
MsgAdministratorPasswordError=Passwords do not match, please reenter!
fr.MsgAdministratorPasswordError=Les mots de passe ne correspondent pas, réentrez les s'il vous plaît!
MsgAdministratorLogin=Login:
fr.MsgAdministratorLogin=Utilisateur:
MsgAdministratorPassword=Password:
fr.MsgAdministratorPassword=Mot de passe:
MsgAdministratorPasswordConfirm=Confirm password:
fr.MsgAdministratorPasswordConfirm=Confirmation du mot de passe:
MsgLicenseUpdateExpired=Setup has detected that your current license update period has expired.
You should update your license before attempting to upgrade.=
Click OK to continue, or Cancel to abort installation.=
fr.MsgLicenseUpdateExpired=L'installation a détecté que votre période de mise à jour a expiré.
Vous devriez mettre à jour votre license avant de continuer l'installation.=
Cliquez sur OK pour continuer, ou Annuler pour abandonner l'installation.=
MsgEnterSerial=Your serial number :
fr.MsgEnterSerial=Votre numéro de série :
MsgSerialCaption=Serial number
fr.MsgSerialCaption=Numéro de série
MsgSerialSubCaption1=Please enter you serial number.
fr.MsgSerialSubCaption1=Veuillez s'il vous plaît entrer votre numéro de série.
MsgSerialSubCaption2=Your serial number is printed on the software Cdrom, it looks like :
ABCDEF-GHIJK-LMNOP-QRSTU-VWXYZ-01234=
fr.MsgSerialSubCaption2=Vous pourrez trouver ce numéro de série sur le CD de votre logiciel, il est de la forme :
ABCDEF-GHIJK-LMNOP-QRSTU-VWXYZ-01234=
MsgSerialInvalid=The serial number you have entered is not valid, please check that you entered it correctly.
fr.MsgSerialInvalid=Le numéro de série que vous avez entré est invalide, vérifiez votre saisie s'il vous plaît.
LocalMachine=Local Machine
fr.LocalMachine=Administration Locale
LocalMachineDescription=Local FTP server administration
fr.LocalMachineDescription=Administration du serveur FTP local
MsgG6WebAdminWrongVersion=Your web administration plugin is not compatible with this version of Gene6 FTP Server, please update it after installation.
Current version will be moved to the backup folder and deactivated.=
fr.MsgG6WebAdminWrongVersion=La version installée de l'administration web n'est pas compatible avec cette version de Gene6 FTP Server, veuillez la mettre à jour après l'installation.
La version actuelle sera déplacée dans le dossier de sauvegarde et désactivée.=
[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files
Name: en; MessagesFile: embedded\en.isl
Name: fr; MessagesFile: embedded\fr.isl
Name: de; MessagesFile: embedded\de.isl
Name: nl; MessagesFile: embedded\nl.isl
Name: sp; MessagesFile: embedded\sp.isl
Name: it; MessagesFile: embedded\it.isl
Name: ru; MessagesFile: embedded\ru.isl
Name: se; MessagesFile: embedded\se.isl
Ошибку найти немогу. Показывает на Click OK to stop the service, or Cancel to abort installation.=
Habetdin
12-09-2009, 20:11
Bond01, скриншот (http://wiki.oszone.net/index.php/Скриншот) ошибки можно увидеть?
Вопрос может уже звучал: как добавить на страницу выбора компонентов »
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom
[Components]
Name: a; Description: Моя программа™; Types: full custom
Name: a\a; Description: Руководство пользователя; Types: full
Name: a\a\a; Description: Русский; Flags: exclusive
Name: a\a\b; Description: English; Flags: exclusive
Name: a\b; Description: Справка; Types: full
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: a
Source: compiler:Examples\Readme-ru.txt; DestDir: {app}; Components: a\a\a
Source: compiler:Examples\Readme-en.txt; DestDir: {app}; Components: a\a\b
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Components: a\b
[Code]
var
btn1, btn2: TButton;
procedure btnClick(Sender: TObject);
var
i: Integer;
begin
// не знаю почему, но при WizardForm.SelectComponentsPage.ControlCount-1 выскакивает сообщение:
// 'List index out of bounds.'
for i:= 0 to WizardForm.SelectComponentsPage.ControlCount-2 do
case TButton(Sender) of
btn1: WizardForm.ComponentsList.Checked[i]:= True;
btn2: WizardForm.ComponentsList.Checked[i]:= False;
end;
end;
procedure InitializeWizard();
begin
btn1:= TButton.Create(WizardForm);
with btn1 do
begin
SetBounds(260,210,75,25);
Caption:= 'Выбрать все';
OnClick:= @btnClick;
Parent:= WizardForm.SelectComponentsPage;
end;
btn2:= TButton.Create(WizardForm);
with btn2 do
begin
SetBounds(340,210,75,25);
Caption:= 'Снять выбор';
OnClick:= @btnClick;
Parent:= WizardForm.SelectComponentsPage;
end;
end;
подскажите пожалуйста, можно ли как-то сделать в этом(Вашем) скрипте »
Это не мой, я только чего-то в нём исправлял, уже точно не помню что конкретно...
Показывает на Click OK to stop the service, or Cancel to abort installation.= »
закоментируйте (; ) в скрипте (секция [CustomMessages]) те строчки, на которые ругается компилятор...
Закоментировал, следующие появились...
следующие появились... »
Правильно ругается, замените знак ',' на 'or'
Ладно спасибо, я недумал, что столько ошибок будет, небуду-же Вам каждую строчку показывать.
Когда только начинал знакомиться с Inno Setup и переупаковывал для себя некоторые игрушки, то по умолчанию ставил путь установки в {pf}\Games\... (C:\Program Files\Games\...), а фактически ставил их в D:\Games\...
Так меня постоянно мучал вопрос, какую переменную задать, чтоб Inno понимал, что ставить надо на диск D.
Самый простой способ - это прописать в DefaultDirName=D:\Games\..., но это не универсально и вдруг на другом компьютере будет только один диск.
Одним словом решения я тогда не нашёл, но недавно увидел похожий вопрос на другом форуме и вспомнил интересовавшую меня проблему.
В результате, вот скрипт, который определяет логические диски на компьютере и предлагает установить на первый логический диск не являющийся системным (если их несколько, в противном случае будет предложен системный диск).
; скрипт, который определяет логические диски на компьютере и предлагает установить на первый
; логический диск не являющийся системным (если их несколько, в противном случае будет предложен
; системный диск).
; Автор: Serega, http://forum.oszone.net/member.php?userid=88670
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={code:NoSD}\Games\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[Code]
function GetLogicalDrives: DWORD; external 'GetLogicalDrives@kernel32.dll stdcall';
function GetDriveType(lpRootPathName: PChar): Cardinal; external 'GetDriveTypeA@kernel32.dll stdcall';
const
DRIVE_FIXED = 3;
function NoSD(s: string): string;
var
x, bit, i: Integer;
tp: Cardinal;
sd: string;
begin
sd:= ExpandConstant('{sd}');
Result:= sd;
// Вызываем функцию WinAPI
// Функция возвращает битовую маску установленных логических дисков.
// Бит 0 определяет наличие диска А:, бит 1 - диска B и т.д.
x:= GetLogicalDrives;
if x <> 0 then
// цикл по полученным битам переменной X
for i:= 1 to 64 do
begin
// Накладываем битовую маску для выделения бита с поряковым номером 0
bit:= x and 1;
// нашли логический диск...
if bit = 1 then
begin
// определяем тип логического диска
tp:= GetDriveType(PChar(Chr(64 + i) + ':'));
if tp = DRIVE_FIXED then
// если диск не является системным
if Chr(64 + i) <> Copy(sd, 1, 1) then
begin
Result:= Chr(64 + i) + ':';
Break;
end;
end;
// побитовый сдвиг вправо
x:= x shr 1;
end;
end;
Serega, интересно, мне пригодится!!!!
Ты, случайно, не знаешь, в чём может быть проблема... При распаковке FreeArc, когда, например, DefaultDirName={pf}\Название компании\Название игры\ такой, а я хочу установить в D:\Games\Название игры\ и распаковка сначала начинается во временный файл $$arcpackedfile$$.tmp возле setup.exe (а если exe'шник уже в образе, выбивает ошибку приложения)!!! Может есть какой-то нюанс, который может такое вызвать??? Проверил скрипт FeeArc'а отдельно - всё ОК, а когда все свои скрипты сливаю в один, получается такая фигня! Даже не знаю от чего отталкиваться, парадокс, блин!
Может есть какой-то нюанс, который может такое вызвать??? »
Обязательно должен быть.
а когда все свои скрипты сливаю в один, получается такая фигня! »
Попробуйте добавлять по одному скрипту, т.е. чтоб выяснить проблемный и уже потом в нём смотреть где не так...
Я бы первым делом запустил поиск во всех скриптах, на наличие слова $$arcpackedfile$$.tmp, т.к. это не стандартная фраза и скорей всего прописана в одном из них, а уже потом изучил из-за чего такое получается.
МИШАНЧИК
13-09-2009, 04:04
Serega, Это не мой, я только чего-то в нём исправлял »
Прошу прощения, если чем-то задел.
Но всё-таки можно ли в нём сделать текст белым цветом и отображение картинок на всех страницах инсталятора?
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.