Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.
Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен
Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы.
Изменение размера окна инсталлятора - пример скрипта для изменения размера окна инсталлятора вместе с элементами управления, (ссылка на сообщение);
Лечим баги: TNewCheckListBox и скин - исправление пропадания полос прокрутки в TNewCheckListBox при использовании ISSkin.dll, (ссылка на сообщение);
Лечим баги: TNewCheckListBox и TreeViewStyle - исправление бага в TNewCheckListBox с выставленным в True свойством TreeViewStyle, при котором нельзя выбрать элемент мышкой, (ссылка на сообщение);
Цвет прогресс-бара - пример скрипта для замены цвета прогресс-бара на свой, (ссылка на сообщение);
Автовыбор диска установки - определяет логические диски на компьютере и предлагает установить на первый логический диск не являющийся системным, (ссылка на сообщение);
Распаковка архивов FreeArc - новая версия скриптов для распаковки архивов FreeArc, (ссылка на сообщение);
Работа с архивами 7z - пример скрипта для работы с архивами 7z, (ссылка на сообщение);
Предосмотр компонентов - пример создания предосмотра устанавливаемых компонентов в всплывающем окне, (ссылка на сообщение);
Создание заставки SplashScreen - пример создания заставки SplashScreen на основе растровых изображений, (ссылка на сообщение);
Стандартные папки Windows - пример скрипта, позволяющий получить путь к стандартным папкам Windows, (ссылка на сообщение);
ExecAndWait.iss - скрипт, который позволяет запускать другие программы с ожиданием их завершения и при этом инсталлятор остаётся "живым", т.е. отвечает на действия пользователя, (ссылка на сообщение);
MsiQueryProductState.iss - пример скрипта для проверки установки программы, установленной с помощью Windows Installer, (ссылка на сообщение);
Определение информации о версии файла - пример скрипта для определения информации о версии файла, которую можно посмотреть в свойствах файла на вкладке Версия, (ссылка на сообщение);
Замена меню "О программе" - пример скрипта для замены текста меню "О программе", (ссылка на сообщение);
Отключить сообщение о нехватке места на HDD - пример скрипта для отключения сообщения о нехватке места на HDD. С небольшими изменениями может использоваться для отключения и других сообщений, вызванных внутренними обработчиками Inno, (ссылка на сообщение);
Отображение размера устанавливаемого файла - пример скрипта для приведения размера устанавливаемого файла из байтовой формы в удобочитаемую (вариант №1) и отображения на втором прогрессбаре, (ссылка на сообщение);
Копирование файлов с прогрессом - пример скрипта для копирования файлов и директорий с отображением прогресса операции, маски поддерживаются, (ссылка на сообщение);
Отображение процентов при (де)инсталляции - пример скрипта для отображения процентов прогресса удаления/копирования файлов при (де)инсталляции, (ссылка на сообщение);
ConvertString.iss - пример скрипта для конвертирование строк в различные кодировки, (ссылка на сообщение);
Работа с XML - архив с скриптами для работы с xml-документами, (ссылка на сообщение);
SetRestorePoint.iss - пример скрипта для создания контрольной точки перед установкой, (ссылка на сообщение);
Определение внешнего IP-адреса - пример скрипта для определения внешнего IP-адреса машины, на которой запущен инсталлятор (необходимо соединение с интернетом), (ссылка на сообщение);
IsInternetActive.iss - пример скрипта для определения подключения машины к Интернет, (ссылка на сообщение);
Загрузка файла из Интернет - пример скрипта для загрузки файла из Интернет, один поток без докачки, (ссылка на сообщение);
Запущен ли процесс (WMI) - пример скрипта для определения запущен ли определенный процесс в системе, используя WMI, (ссылка на сообщение);
Запущен ли процесс - пример скрипта для определения запущен ли определенный процесс в системе, (ссылка на сообщение);
Закрытие процесса - пример скрипта для закрытия запущенного процесса, (ссылка на сообщение);
Установка гаджета в Windows 7 - пример установки гаджета в Windows 7 (требуется юникодная версия Inno), (ссылка на сообщение);
Установка драйвера устройства - пример скрипта для установки legacy- и WDM- (требуется утилита devcon.exe) драйверов устройств, (ссылка на сообщение);
Показать/скрыть: Дополнительные программы для Inno Setup:
ISTool - неплохой редактор скриптов Inno Setup.
Последняя версия: 5.3.0.1 [29.09.2009] - Скачать|зеркало;
Inno Script Generator - генератор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
Последняя версия: 1.0.3.1 [23.03.2008] - Скачать|зеркало на русифицированную программу; Примечание: Родной сайт www.hisoft2000.de более недоступен, поэтому здесь расположены сторонние ссылки.
Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы.
Последняя версия: 2.0.8 [12.11.2006] - Скачать; Примечание: Родной сайт http://isfd.kaju74.de/index.php?isfd более недоступен, поэтому здесь расположены сторонние ссылки.
Inno Setup GameScript Generator - программа генерирует скрипты для Inno Setup . С помощью GameScript Generator и Inno Setup вы сможете быстро создать простенький инсталляционный пакет для любой игры. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации;
ISSkin - Программа для создания и добавления в инсталлятор скинов. Инструкция.
Последняя версия: 3.0.0.0 [19.01.2010] - Скачать;
ISSJoiner - Программа для объединения нескольких скриптов InnoSetup в один.
Последняя версия: 3.0 [23.07.2009]
Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
Последняя версия: 0.1.4 [13.03.2010] - Скачать;
RegExporter - Фриварная утилита для экспорта реестра и конвертации файлов *.reg и *.ini в инсталляционные скрипты Inno Setup и NSIS.
Последняя версия: 1.2.0 [23.09.2014] - Скачать;
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах:
Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
В скрипте как раз правильно указано:
klrFr_Hopper-0001_e.wag
В папке, так не правильно:
klrFr_Hopper-0001e.wag
Всё уже исправил в папке. Удалил пути в секции [Files], удалил \Trains\Trainset, инсталлятор теперь собирается без ошибок.
Вопрос остаются по выбору вот в конце установке?
Доброе время суток. Помогите решить проблему с запуском процесса explorer.exe. Как видно на видео процесс explorer завершается успешно, но после завершения установки софтины инсталлятор обратно запускает explorer, но открывается только папка.
но после завершения установки софтины инсталлятор обратно запускает explorer, но открывается только папка. »
habib2302, инсталлятор, бездумно играющийся с важными пользовательскими (тем более системными) процессами, не имеет права на существование. Что будет делать ваш инсталлятор, если кто-то запустит его из-под другой учетной записи (например, из-под админской учетки в сеансе пользователя)?
Я не знаю как в зависимости от выбранного языка заставить скрипт выдавать нужный перевод для Типа Диска. Это единственное что я не перевел и как я полагаю функция возвращает результат в зависимости от языка системы, что мне не нужно..
Вместо "Локальный диск/Съемный диск" - должен писать "Logical Disk" и "Removable Disk" соответственно (в случае выбора английского языка). Поможете?
вот сам скрипт:
Код:
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
;BitmapResource=Drive:img_small.bmp
[CustomMessages]
rus.DiskName=Имя
rus.DiskFileSystem=Файловая система
rus.DiskTotal=Ёмкость
rus.DiskFree=Свободно
rus.DiskType=Тип
eng.DiskName=Name
eng.DiskFileSystem=File System
eng.DiskTotal=Capacity
eng.DiskFree=Free Space
eng.DiskType=Type
[.Code]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif
const
#ifndef NeedHDD
DRIVE_NO_ROOT_DIR = 1;
DRIVE_REMOVABLE = 2;
DRIVE_FIXED = 3;
#endif
MAX_PATH = 260;
SHGFI_ICON = $100;
SHGFI_SMALLICON = $1;
SHGFI_DISPLAYNAME = $200;
SHGFI_TYPENAME = $400;
type
_SHFILEINFO = record
hIcon: HICON;
iIcon: Integer;
dwAttributes: DWORD;
szDisplayName: array [0..MAX_PATH-1] of Char;
szTypeName: array [0..79] of Char;
end;
_ULARGE_INTEGER = record
LowPart: DWORD;
HighPart: DWORD;
end;
DriveInfo = record
DriveName: String;
DriveFileSystemName: String;
DriveSize: Extended;
DriveFreeSize: array [0..1] of Extended;
DriveType: String;
DriveIcon: _SHFILEINFO;
end;
function SHGetFileInfo(pszPath: String; dwFileAttributes: DWORD; var psfi: _SHFILEINFO; cbFileInfo, uFlags: UINT): DWORD; external 'SHGetFileInfo{#A}@shell32.dll stdcall';
function StrFormatByteSize64(qdw: Currency; var pszBuf: Char; cchBuf: UINT): PAnsiChar; external 'StrFormatByteSize64A@shlwapi.dll stdcall';
function GetVolumeInformationLp(lpRootPathName, lpVolumeNameBuffer: String; nVolumeNameSize, lpVolumeSerialNumber: DWORD; var lpMaximumComponentLength, lpFileSystemFlags: DWORD; lpFileSystemNameBuffer: String; nFileSystemNameSize: DWORD): BOOL; external 'GetVolumeInformation{#A}@kernel32.dll stdcall';
function GetDriveTypeLp(lpRootPathName: String): UINT; external 'GetDriveType{#A}@kernel32.dll stdcall';
function GetDiskFreeSpaceEx(lpDirectoryName: String; var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, lpTotalNumberOfFreeBytes: _ULARGE_INTEGER): BOOL; external 'GetDiskFreeSpaceEx{#A}@kernel32.dll stdcall';
function BytesToSize(Bytes: Extended): String;
var
pszBuf: array [0..15] of Char;
begin
try
Result := StrFormatByteSize64(Abs(Bytes div 1E4), pszBuf[0], SizeOf(pszBuf));
except end;
end;
function CharArrayToString(cArray: array of Char): String;
begin
Result := '';
while cArray[Length(Result)] <> #0 do Insert(cArray[Length(Result)], Result, Length(Result)+1);
end;
function Size64(QuadPart: _ULARGE_INTEGER): Extended;
begin
Result := $7FFFFFFF;
Result := ((QuadPart.HighPart + integer(QuadPart.LowPart < 0))*Result + QuadPart.HighPart + integer(QuadPart.LowPart < 0))*2 + QuadPart.LowPart;
end;
procedure GetDrivesInfo(var DriveArray: array of DriveInfo);
var
i, e: Integer;
iIcon: WORD;
UndefDriveLetter: String;
DriveType: UINT;
DrivePath: String;
VolumeName, FileSystemName: String;
ComponentLength, SerialNumber, FileSystemFlags: DWORD;
FreeBytesAvailableToCaller, TotalNumberOfBytes, TotalNumberOfFreeBytes: _ULARGE_INTEGER;
begin
for i := 67 to 90 do // Loop from C..Z to determine available drives
begin
UndefDriveLetter := Chr(i) + ':\';
DriveType := GetDriveTypeLp(UndefDriveLetter);
case DriveType of
DRIVE_REMOVABLE, DRIVE_FIXED: begin
VolumeName := StringOfChar(#32, MAX_PATH);
FileSystemName := StringOfChar(#32, MAX_PATH);
GetVolumeInformationLp(UndefDriveLetter, VolumeName, MAX_PATH, SerialNumber, ComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);
GetDiskFreeSpaceEx(UndefDriveLetter, FreeBytesAvailableToCaller, TotalNumberOfBytes, TotalNumberOfFreeBytes);
SetArrayLength(DriveArray, GetArrayLength(DriveArray)+1);
e := GetArrayLength(DriveArray)-1;
SHGetFileInfo(UndefDriveLetter, FILE_ATTRIBUTE_DIRECTORY, DriveArray[e].DriveIcon, sizeof(DriveArray[e].DriveIcon), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_TYPENAME or SHGFI_DISPLAYNAME);
DriveArray[e].DriveName := CharArrayToString(DriveArray[e].DriveIcon.szDisplayName);
DriveArray[e].DriveFileSystemName := FileSystemName;
DriveArray[e].DriveSize := Size64(TotalNumberOfBytes);
DriveArray[e].DriveFreeSize[0] := Size64(TotalNumberOfFreeBytes);
if DriveArray[e].DriveSize > 0 then DriveArray[e].DriveFreeSize[1] := DriveArray[e].DriveFreeSize[0]*100/DriveArray[e].DriveSize;
DriveArray[e].DriveType := CharArrayToString(DriveArray[e].DriveIcon.szTypeName);
end;
DRIVE_NO_ROOT_DIR: Continue;
end;
end;
end;
procedure DriveListViewOnClick(Sender: TObject);
begin
if Assigned(TListView(Sender).Selected) then
WizardForm.DirEdit.Text := AddBackSlash(Copy(TListView(Sender).Selected.Caption, Pos('(', TListView(Sender).Selected.Caption)+1, 2)) + Copy(WizardForm.DirEdit.Text, 4, Length(WizardForm.DirEdit.Text));
end;
procedure DriveListViewColumnClick(Sender: TObject; Column: TListColumn);
begin
TListView(Sender).Tag := Column.Index;
with TListView(Sender) do
begin
if DesignInfo = 0 then DesignInfo := 1 else DesignInfo := -DesignInfo;
AlphaSort;
end;
end;
procedure DriveListViewOnCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
begin
with TListView(Sender) do
begin
if Tag = 0 then
Compare := DesignInfo*CompareText(Item1.Caption, Item2.Caption)
else
Compare := DesignInfo*CompareText(Item1.SubItems[Tag-1], Item2.SubItems[Tag-1]);
end;
end;
procedure GetDiskInfo;
var
ReadyArray: array of DriveInfo;
DriveListView: TListView;
NewColumn: TListColumn;
ListItem: TListItem;
ImgList: TImageList;
i, e: Integer;
ico: TIcon;
begin
GetDrivesInfo(ReadyArray);
e := GetArrayLength(ReadyArray)-1;
DriveListView := TListView.Create(nil);
with DriveListView do
begin
Parent := WizardForm.SelectDirPage;
ViewStyle := vsReport;
ReadOnly := True;
//SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + ScaleY(40), WizardForm.DirEdit.Width, ScaleY(200));
SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + ScaleY(30), WizardForm.DirEdit.Width+85, ScaleY(99));
OnClick := @DriveListViewOnClick;
OnColumnClick := @DriveListViewColumnClick;
OnCompare := @DriveListViewOnCompare;
ImgList := TImageList.Create(DriveListView);
ImgList.BkColor := Color;
for i := 0 to e do
begin
ico := TIcon.Create;
ico.Handle := ReadyArray[i].DriveIcon.hIcon;
ImgList.AddIcon(ico);
ico.Free;
end;
SmallImages := ImgList;
NewColumn := Columns.Add;
NewColumn.Caption := ExpandConstant('{cm:DiskName}');
NewColumn.Width := ScaleX(130);
NewColumn := Columns.Add;
NewColumn.Caption := ExpandConstant('{cm:DiskFileSystem}');
NewColumn.Width := ScaleX(105);
NewColumn := Columns.Add;
NewColumn.Caption := ExpandConstant('{cm:DiskTotal}');
NewColumn.Width := ScaleX(60);
NewColumn := Columns.Add;
NewColumn.Caption := ExpandConstant('{cm:DiskFree}');
NewColumn.Width := ScaleX(90);
NewColumn := Columns.Add;
NewColumn.Caption := ExpandConstant('{cm:DiskType}');
NewColumn.Width := ScaleX(100);
for i := 0 to e do
begin
ListItem := Items.Add;
with ListItem do
begin
Caption := ReadyArray[i].DriveName;
SubItems.Add(ReadyArray[i].DriveFileSystemName);
SubItems.Add(BytesToSize(ReadyArray[i].DriveSize));
SubItems.Add(Format('%s (%d%%)', [BytesToSize(ReadyArray[i].DriveFreeSize[0]), Round(ReadyArray[i].DriveFreeSize[1])]));
SubItems.Add(ReadyArray[i].DriveType);
ImageIndex := i;
end;
end;
end;
end;
Подскажите а как в секцию DefaultDirName поместить свой адрес, сформированный cmd скриптом. А то язык который написан в секции code совсем не понятный.
