[архив] Inno Setup .:[все вопросы]:.

Serega · Конфигурация компьютера

Unsane, если привязываться к языку, то будет именно так, что другой пункт языка не будет отображаться...

BlackSelf · Отправлено: **05:30, 04-05-2009** | #**672**

Serega_, при создании архива лог не нужен, но всё же:
Упаковка:
arc create archive -mx -ld=192m folder\* >log.txt
Распаковка:
arc x archive.arc -y -s2 -dp >log.txt
Лог будет создаваться рядом с arc.exe

p3rf3ct1c · Конфигурация компьютера

Здравствуйте! Можете помоч, как сделать вот такое?

Типо это обязательно для установки. Чтобы нельзя было снять галочку.

boss911 · Конфигурация компьютера

Цитата p3rf3ct1c:

Чтобы нельзя было снять галочку. »

Код:

[Tasks]
Name: DirectXUpd; Description: Обновить DirectX; GroupDescription: Системные задачи:

[_Code]
procedure CurPageChanged(CurPageID: Integer);
  begin
    if CurPageID = wpSelectTasks then
    WizardForm.TasksList.ItemEnabled[X]:= False;
end;

ItemEnabled[X] - здесь нужно указать цифру (см. ниже), порядковый номер строки на странице выбора задач (TasksList), отсчет идет сверху и начинается с 0 (нуля). Судя, по-вашему скриншоту, порядковый номер чекбокса, который нужно заблокировать, это 4.

p3rf3ct1c · Конфигурация компьютера

Цитата boss911:

Код:
[Tasks]
Name: DirectXUpd; Description: Обновить DirectX; GroupDescription: Системные задачи:
[_Code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectTasks then
WizardForm.TasksList.ItemEnabled[X]:= False;
end;
ItemEnabled[X] - здесь нужно указать цифру (см. ниже), порядковый номер строки на странице выбора задач (TasksList), отсчет идет сверху и начинается с 0 (нуля). Судя, по-вашему скриншоту, порядковый номер чекбокса, который нужно заблокировать, это 4. »

Спасибо вам! Все получилось.
Можно еще вопрос? Можете подсказать как правильно склеивать коды? Например вот

который вы мне написали, и этот

Код:

var n: Integer; FreeMB, TotalMB: Cardinal; VolumeName, FileSystemName: String; VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint; ListBox: TListBox; StartMenuTreeView: TStartMenuFolderTreeView;

const oneMB= 1024*1024;
function GetLogicalDrives: DWord; external 'GetLogicalDrives@kernel32.dll stdcall';
function GetDriveType(nDrive: String): Longint; external 'GetDriveTypeA@kernel32.dll stdcall';
function GetVolumeInformation(PathName,VolumeName: PChar; VolumeNameSize,VolumeSerialNumber,MaxComponentLength,FileSystemFlags: Longint; FileSystemName: PChar; FileSystemNameSize: Longint): Longint; external 'GetVolumeInformationA@kernel32.dll stdcall';
function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

Function ByteOrTB(Bytes: Extended; noMB: Boolean): String; { Ïåðåâîä ÷èñëà â çíà÷åíèå áò/Êá/Ìá/Ãá/Òá (äî 3õ çíàêîâ ïîñëå çàïÿòîé)}
Begin
	if not noMB then Result:= FloatToStr(Int(Bytes)) +' Ìá' else
		if Bytes < 1024 then Result:= FloatToStr(Int(Bytes)) +' Áò' else
			if Bytes/1024 < 1024 then Result:= FloatToStr(round((Bytes/1024)*10)/10) +' Êá' else
				If Bytes/oneMB < 1024 then Result:= FloatToStr(round(Bytes/oneMB*100)/100) +' Ìá' else
					If Bytes/oneMB/1000 < 1024 then Result:= FloatToStr(round(Bytes/oneMB/1024*1000)/1000) +' Ãá' else
						Result:= FloatToStr(round(Bytes/oneMB/oneMB*1000)/1000) +' Òá'
	StringChange(Result, ',', '.')
End;

Function DelSP(String: String): String; { Óäàëåíèå íà÷àëüíûõ, êîíå÷íûõ è ïîâòîðíûõ ïðîáåëîâ }
	Begin	while (Pos('  ', String) > 0) do Delete(String, Pos('  ', String), 1); Result:= Trim(String); End;

Function CutString(String: String; MaxLength: Longint): String; { Îáðåçàòü ñòðîêó äî çàäàííîãî êîë-âà ñèìâîëîâ}
	Begin
		if Length(String) > MaxLength then Result:= Copy(String, 1, 6) +'...'+ Copy(String, Length(String) - MaxLength +9, MaxLength)
		else Result:= String;
	End;

Procedure GetDiskInfo(Disk: String);
	Begin
		FileSystemName:= StringOfChar(' ', 32); VolumeName:= StringOfChar(' ', 256);
			GetVolumeInformation(Disk, VolumeName, 255, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, 31);
		FileSystemName:= DelSp(FileSystemName); VolumeName:= DelSp(VolumeName); if VolumeName='' then VolumeName:='áåç ìåòêè';
	End;

Procedure ListBoxRefresh;	var FreeB, TotalB: Cardinal; Path, String: string; Begin
	ListBox.Items.Clear
for n:= 1 to 31 do	// äèñê 'À' ïðîïóñòèòü
	if (GetLogicalDrives and (1 shl n)) > 0 then
		if (GetDriveType(Chr(ord('A') + n) +':\') = 2) or (GetDriveType(Chr(ord('A') + n) +':\') = 3) then
			if GetSpaceOnDisk(Chr(ord('A') + n) +':\', True, FreeMB, TotalMB) then ListBox.Items.Add(Chr(ord('A') + n) +':');
for n:= 0 to ListBox.Items.Count -1 do begin
	Path:= Copy(ListBox.Items[n],1,2) +'\'		{ åñëè â íàêîïèòåëå íåò äèñêà, ïðîïóñòèòü îáíîâëåíèå }
	if GetSpaceOnDisk(Path, False, FreeB, TotalB) and GetSpaceOnDisk(Path, True, FreeMB, TotalMB) then begin GetDiskInfo(Path);
		if FreeB >= $7FFFFFFF then String:= PadL(ByteOrTB(FreeMB*oneMB, true),10) else String:= PadL(ByteOrTB(FreeB, true),10);
		if TotalB >= $7FFFFFFF then begin TotalB:= TotalMB; FreeB:= FreeMB; String:= PadL(ByteOrTB(TotalMB*oneMB, true),11) +' âñåãî| '+ String end else String:= PadL(ByteOrTB(TotalB, true),11) +' âñåãî| '+ String;
	ListBox.Items[n]:= Copy(Path,1,2) + String + PadL(FloatToStr(round(FreeB/TotalB*100)),3)+ '% ñâîá|'+ PadL(FileSystemName,5)+ '| '+ CutString(VolumeName,9); end; end;
End;

Procedure ObjectOnClick(Sender: TObject); Begin
Case TObject(Sender) of
	ListBox:	for n:= 0 to ListBox.Items.Count-1 do if ListBox.Selected[n] then WizardForm.DirEdit.Text:= Copy(ListBox.Items[n],1,1) +Copy(WizardForm.DirEdit.Text, 2, Length(WizardForm.DirEdit.Text))
	StartMenuTreeView:	if StartMenuTreeView.Directory <> '' then WizardForm.GroupEdit.Text:= StartMenuTreeView.Directory else WizardForm.GroupEdit.Text:= '{#SetupSetting("DefaultGroupName")}'
	WizardForm.NoIconsCheck:	begin WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled); StartMenuTreeView.Enabled:= WizardForm.GroupEdit.Enabled; WizardForm.GroupBrowseButton.Enabled:= WizardForm.GroupEdit.Enabled end;
end; End;

Function NextButtonClick(CurPageID: Integer): Boolean; Begin
	Result:= True
	if (CurPageID = wpSelectDir) and (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then Result:= MessageBox(StrToInt(ExpandConstant('{wizardhwnd}')), ExpandConstant('{cm:SysDirSelect}'), 'Óñòàíîâêà â ñèñòåìíóþ ïàïêó', MB_YESNO or $30) = idYes;
End;

Procedure CurPageChanged(CurPageID: Integer);
Begin
	if CurPageID = wpSelectDir then ListBoxRefresh
End;

Procedure InitializeWizard;
Begin
	ListBox:= TListBox.Create(WizardForm)
		ListBox.SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 8, WizardForm.DirBrowseButton.Left + WizardForm.DirBrowseButton.Width - WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top - (WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 12))
		ListBox.Font.Size:= 9
		ListBox.Font.Style:= [fsBold]
		ListBox.Font.Name:= 'Courier New';
		ListBox.OnClick:= @ObjectOnClick;
		ListBox.Parent:= WizardForm.SelectDirPage;
	WizardForm.NoIconsCheck.SetBounds(WizardForm.DiskSpaceLabel.Left + 96, WizardForm.DiskSpaceLabel.Top + 1, WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height)
		WizardForm.NoIconsCheck.OnClick:= @ObjectOnClick
		WizardForm.NoIconsCheck.Parent:= WizardForm.SelectProgramGroupPage
		WizardForm.NoIconsCheck.Show
	StartMenuTreeView:= TStartMenuFolderTreeView.Create(WizardForm)
		StartMenuTreeView.SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
		StartMenuTreeView.SetBounds(ListBox.Left, ListBox.Top, ListBox.Width, ListBox.Height)
		StartMenuTreeView.Parent:= WizardForm.SelectProgramGroupPage
		StartMenuTreeView.Cursor:= crHand
		StartMenuTreeView.OnChange:=@ObjectOnClick
End;

А то у меня выдает ошибку - Duplicate identifer 'CURPAGECHANGED' или когда пытаюсь склеить другие коды, ошибка Duplicate identifer 'InitializeWizard' или другие ошибки.

Serega · Конфигурация компьютера

Скрипт для отображения процесса распаковки внешних FreeArc архивов во втором прогрессбаре, необходима расширенная версия от Restools:

Код:

; Скрипт для отображения процесса распаковки внешних FreeArc архивов во втором прогрессбаре
; Рядом с архивом необходимо расположить архивы и Arc.exe
; Для нормальной работы необходима расширенная версия Inno Setup от Restools http://restools.hanzify.org/
; Отдельное спасибо BlackSelf, http://www.forum.oszone.ru/member.php?userid=147308, за подсказанную идею... :)
; Автор скрипта: Serega, http://forum.oszone.net/member.php?userid=88670

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[UninstallDelete]
Name: {app}; Type: filesandordirs

[code]
var
  ProgressLabel: TLabel;
  ProgressBar: TNewProgressBar;

procedure ParserLog;
var
  in_File, out_File, S, S1, S2: string;
  i, j, n: Integer;
begin
  n:= 0;
  in_File := ExpandConstant('{tmp}\in_log');
  out_File := ExpandConstant('{tmp}\out_log');
  ProgressBar.Position:= 0;
  ProgressBar.Show;
  ProgressLabel.Show;
  // если файла нет, то подождём... ;)
  if FileExists(in_File) = False then
    repeat
      Application.ProcessMessages; // необходима расширенная версия от Restools
      n:= n + 1;
      Sleep(500); // ждём полсекунды и повторяем цикл
    until (FileExists(in_File) = True) or (n = 10); // максимально повторяем цикл 10 раз, что составит 5 секунд...
  // если всё же файла нет, то выходим
  if FileExists(in_File) = False then Exit;
  // если файл существует, то обрабатываем его
  repeat
    FileCopy(in_File, out_File, False); // копируем файл, чтоб можно было открыть out_File для чтения
    LoadStringFromFile(out_File, S); // если попытаться загрузить in_File, то ничего не выйдет, пока в него пишет Arc.exe...
    Application.ProcessMessages; // необходима расширенная версия от Restools
    if Pos('%', S) > 0 then begin
      S1:= Copy(S, Length(S) - 4, (Length(S) - 2) - (Length(S) - 4));
      S2:= Copy(S, Length(S) - 4, Length(S) - (Length(S) - 5));
      StringChange(S1, ' ', ''); // удаляем пробелы
      for i:= 0 to 100 do if S1 = IntToStr(i) then begin
        j:= StrToInt(S1);
        ProgressBar.Position := j;
        StringChange(S2, ' ', '');
        ProgressLabel.Caption:= S2;
        Application.ProcessMessages; // необходима расширенная версия от Restools
      end;
    end;
  until (Pos('Extracted', S) or Pos('ERROR', S)) > 0;
  ProgressBar.Position:= 100;
end;

procedure UnpackArc(archive_Name, archive_Path: string);
var
  res: Integer;
begin
  if FileExists(ExpandConstant('{tmp}\in_log')) then DelayDeleteFile(ExpandConstant('{tmp}\in_log'),8);
// запускаем Arc.exe... ;)
  Exec('cmd.exe', '/C arc.exe x ' + archive_Name + ' -y -dp' + archive_Path + ' >' +
       AddQuotes(ExpandConstant('{tmp}\in_log')), ExpandConstant('{src}'), SW_HIDE, ewNoWait, res);
  WizardForm.StatusLabel.Caption:= 'Распаковка архива ' + ExtractFileName(archive_Name) + ', ждите...';
  ParserLog; // обрабатываем лог файл
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then begin
    WizardForm.CancelButton.Enabled:= False; // отключаем кнопку 'Отмена'
  // AddQuotes - добавляет двойные кавычки в начало и конец строки...
    UnpackArc(AddQuotes(ExpandConstant('{src}\Project.arc')), // расположение 1-го архива
      AddQuotes(ExpandConstant('{app}\Archive1'))); // место распаковки 1-го архива
    UnpackArc(AddQuotes(ExpandConstant('{src}\Project.arc')), // расположение 2-го архива
      AddQuotes(ExpandConstant('{app}\Archive2'))); // место распаковки 2-го архива
    WizardForm.StatusLabel.Caption:= WizardForm.StatusLabel.Caption;
  end;
end;

procedure InitializeWizard;
begin
  // второй прогрессбар
  ProgressBar := TNewProgressBar.Create(WizardForm);
  with ProgressBar do begin
    Left := WizardForm.ProgressGauge.Left;
    Top := WizardForm.ProgressGauge.Top + ScaleX(30);
    Width := WizardForm.ProgressGauge.Width;
    Height := WizardForm.ProgressGauge.Height;
    Parent := WizardForm.InstallingPage;
    Hide;
  end;
  // создаём Label для отображения процентов
  ProgressLabel := TLabel.Create(WizardForm);
  with ProgressLabel do begin
    Left := ProgressBar.Left;
    Top := ProgressBar.Top + ProgressBar.Height + ScaleX(5);
    AutoSize:= True;
    Caption:= '0%';
    Parent := WizardForm.InstallingPage;
    Transparent:= True;
    Font.Color:= clDefault;
    Hide;
  end;
end;

Вопросы

p3rf3ct1c · Конфигурация компьютера

Serega_,
Исправил.

Serega · Конфигурация компьютера

p3rf3ct1c,

Код:

var n: Integer; FreeMB, TotalMB: Cardinal; VolumeName, FileSystemName: String; VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint; ListBox: TListBox; StartMenuTreeView: TStartMenuFolderTreeView;

const oneMB= 1024*1024;
function GetLogicalDrives: DWord; external 'GetLogicalDrives@kernel32.dll stdcall';
function GetDriveType(nDrive: String): Longint; external 'GetDriveTypeA@kernel32.dll stdcall';
function GetVolumeInformation(PathName,VolumeName: PChar; VolumeNameSize,VolumeSerialNumber,MaxComponentLength,FileSystemFlags: Longint; FileSystemName: PChar; FileSystemNameSize: Longint): Longint; external 'GetVolumeInformationA@kernel32.dll stdcall';
function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

Function ByteOrTB(Bytes: Extended; noMB: Boolean): String; { Ia?aaia ?enea a cia?aiea ao/Ea/Ia/Aa/Oa (ai 3o ciaeia iinea caiyoie)}
Begin
	if not noMB then Result:= FloatToStr(Int(Bytes)) +' Ia' else
		if Bytes < 1024 then Result:= FloatToStr(Int(Bytes)) +' Ao' else
			if Bytes/1024 < 1024 then Result:= FloatToStr(round((Bytes/1024)*10)/10) +' Ea' else
				If Bytes/oneMB < 1024 then Result:= FloatToStr(round(Bytes/oneMB*100)/100) +' Ia' else
					If Bytes/oneMB/1000 < 1024 then Result:= FloatToStr(round(Bytes/oneMB/1024*1000)/1000) +' Aa' else
						Result:= FloatToStr(round(Bytes/oneMB/oneMB*1000)/1000) +' Oa'
	StringChange(Result, ',', '.')
End;

Function DelSP(String: String): String; { Oaaeaiea ia?aeuiuo, eiia?iuo e iiaoi?iuo i?iaaeia }
	Begin	while (Pos('  ', String) > 0) do Delete(String, Pos('  ', String), 1); Result:= Trim(String); End;

Function CutString(String: String; MaxLength: Longint): String; { Ia?acaou no?ieo ai caaaiiiai eie-aa neiaieia}
	Begin
		if Length(String) > MaxLength then Result:= Copy(String, 1, 6) +'...'+ Copy(String, Length(String) - MaxLength +9, MaxLength)
		else Result:= String;
	End;

Procedure GetDiskInfo(Disk: String);
	Begin
		FileSystemName:= StringOfChar(' ', 32); VolumeName:= StringOfChar(' ', 256);
			GetVolumeInformation(Disk, VolumeName, 255, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, 31);
		FileSystemName:= DelSp(FileSystemName); VolumeName:= DelSp(VolumeName); if VolumeName='' then VolumeName:='aac iaoee';
	End;

Procedure ListBoxRefresh;	var FreeB, TotalB: Cardinal; Path, String: string; Begin
	ListBox.Items.Clear
for n:= 1 to 31 do	// aene 'A' i?iionoeou
	if (GetLogicalDrives and (1 shl n)) > 0 then
		if (GetDriveType(Chr(ord('A') + n) +':\') = 2) or (GetDriveType(Chr(ord('A') + n) +':\') = 3) then
			if GetSpaceOnDisk(Chr(ord('A') + n) +':\', True, FreeMB, TotalMB) then ListBox.Items.Add(Chr(ord('A') + n) +':');
for n:= 0 to ListBox.Items.Count -1 do begin
	Path:= Copy(ListBox.Items[n],1,2) +'\'		{ anee a iaeiieoaea iao aenea, i?iionoeou iaiiaeaiea }
	if GetSpaceOnDisk(Path, False, FreeB, TotalB) and GetSpaceOnDisk(Path, True, FreeMB, TotalMB) then begin GetDiskInfo(Path);
		if FreeB >= $7FFFFFFF then String:= PadL(ByteOrTB(FreeMB*oneMB, true),10) else String:= PadL(ByteOrTB(FreeB, true),10);
		if TotalB >= $7FFFFFFF then begin TotalB:= TotalMB; FreeB:= FreeMB; String:= PadL(ByteOrTB(TotalMB*oneMB, true),11) +' anaai| '+ String end else String:= PadL(ByteOrTB(TotalB, true),11) +' anaai| '+ String;
	ListBox.Items[n]:= Copy(Path,1,2) + String + PadL(FloatToStr(round(FreeB/TotalB*100)),3)+ '% naia|'+ PadL(FileSystemName,5)+ '| '+ CutString(VolumeName,9); end; end;
End;

Procedure ObjectOnClick(Sender: TObject); Begin
Case TObject(Sender) of
	ListBox:	for n:= 0 to ListBox.Items.Count-1 do if ListBox.Selected[n] then WizardForm.DirEdit.Text:= Copy(ListBox.Items[n],1,1) +Copy(WizardForm.DirEdit.Text, 2, Length(WizardForm.DirEdit.Text))
	StartMenuTreeView:	if StartMenuTreeView.Directory <> '' then WizardForm.GroupEdit.Text:= StartMenuTreeView.Directory else WizardForm.GroupEdit.Text:= '{#SetupSetting("DefaultGroupName")}'
	WizardForm.NoIconsCheck:	begin WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled); StartMenuTreeView.Enabled:= WizardForm.GroupEdit.Enabled; WizardForm.GroupBrowseButton.Enabled:= WizardForm.GroupEdit.Enabled end;
end; End;

Function NextButtonClick(CurPageID: Integer): Boolean;
Begin
	Result:= True
	if (CurPageID = wpSelectDir) and (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then Result:= MessageBox(StrToInt(ExpandConstant('{wizardhwnd}')), ExpandConstant('{cm:SysDirSelect}'), 'Onoaiiaea a nenoaiio? iaieo', MB_YESNO or $30) = idYes;
End;

Procedure CurPageChanged(CurPageID: Integer);
Begin
	if CurPageID = wpSelectDir then ListBoxRefresh;
	if CurPageID = wpSelectTasks then WizardForm.TasksList.ItemEnabled[X]:= False;
End;

Procedure InitializeWizard;
Begin
	ListBox:= TListBox.Create(WizardForm)
		ListBox.SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 8, WizardForm.DirBrowseButton.Left + WizardForm.DirBrowseButton.Width - WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top - (WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 12))
		ListBox.Font.Size:= 9
		ListBox.Font.Style:= [fsBold]
		ListBox.Font.Name:= 'Courier New';
		ListBox.OnClick:= @ObjectOnClick;
		ListBox.Parent:= WizardForm.SelectDirPage;
	WizardForm.NoIconsCheck.SetBounds(WizardForm.DiskSpaceLabel.Left + 96, WizardForm.DiskSpaceLabel.Top + 1, WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height)
		WizardForm.NoIconsCheck.OnClick:= @ObjectOnClick
		WizardForm.NoIconsCheck.Parent:= WizardForm.SelectProgramGroupPage
		WizardForm.NoIconsCheck.Show
	StartMenuTreeView:= TStartMenuFolderTreeView.Create(WizardForm)
		StartMenuTreeView.SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
		StartMenuTreeView.SetBounds(ListBox.Left, ListBox.Top, ListBox.Width, ListBox.Height)
		StartMenuTreeView.Parent:= WizardForm.SelectProgramGroupPage
		StartMenuTreeView.Cursor:= crHand
		StartMenuTreeView.OnChange:=@ObjectOnClick
End;