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

[Krekerpro]

Есть у кого нибудь get_hw_caps.dll?

При попытки скомпилировать выдаёт следующие

http://clip2net.com/clip/m0/1244574459-clip-30kb.png

,я так пологая что надо что то дописать?

[Krekerpro]

BlackSelf,

Спасибо,вот теперь заработало,вот только,второго прогресс-бара нету

[Berline]

Очередной вопрос ламера:



Каким образом мы можем сделать следущее - если ставим в 1й раз, и программа определила, что каталога назначения нету - все проходит на ура - а если ставим уже поверх установленной программы - чтоб сперва удалил ярлыки которые были выведены, удалил папку назначения - и уже поставил ка бы с 0(с учетом что настройки программы хранятся в реестре, их удалять нельзя)

[Raf-9600]

1. В вашем скрипте не отображается страница выбора компонентов.

2. Шрифт на первой странице

засвечен

.

3. Строка "

Доступно места на диске

" мне не нужна, так как планирую ещё использовать скрипт для вывода данных о винчестерах.

4. Коды на welcome.bmp, и растянутый WizardSmallImageFile там лишние.





На всяк:

Скрипт для вывода данных о винчестерах:

читать дальше »

Код:

Код: Выделить всё

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;
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:= []
ListBox.Font.Name:= 'Courier New';
ListBox.OnClick:= @ObjectOnClick;
ListBox.Parent:= WizardForm.SelectDirPage;
End;

[sanya007]

p3rf3ct1c,



Попробуй для ярлыка:





Код:

Код: Выделить всё

[Icons]
Name: {commondesktop}\xxx; Filename: {app}\xxx.exe; WorkingDir: {app}; Parameters: -nomaster -game strike

[serg aka lain]

boss911



Совсем у меня голова кругом пошла...



Во-первых - по поводу 7-Zip File Manager - это я поторопился (перепутал). Не умеет он работать с Inno-инсталляторами.

Во-вторых - просмотр с помощью ISUnp.exe (GUI-интерфейс к innounp.exe) тоже показал, что файлы в каталоге embedded "двоятся".

Так что - извини за то, что дал неверную информацию в предыдущем посте



И наконец:



1. Распаковываю с помощью ISUnp.exe какой-нибудь инсталлятор, например, тот-же IsUnp10setup.exe (размер - 691 092 байт.).



2. В полученном install_script.iss среди прочего вижу строки

Код:

Код: Выделить всё

[Files]
Source: "embedded\uninstall.exe"; DestDir: "embedded"; 
Source: "embedded\License.txt"; DestDir: "embedded"; 
Source: "embedded\WizardImage.bmp"; DestDir: "embedded"; 
Source: "embedded\WizardSmallImage.bmp"; DestDir: "embedded";

3. В полученную папку embedded[/i]

Код:

Код: Выделить всё

embedded\License.txt
embedded\WizardImage.bmp
embedded\WizardSmallImage.bmp

добавляю файл uninstall.exe[/i] (его нахожу в папке IsUnp с ранее установленной программой под именем unins000.exe, и просто переименовываю его перед добавлением).



4. Компилирую обратно с использованием Inno Setup Compiler 5.1.6 - получаю в папке Output файл setup.exe размером 930 744 байт.



5. Распаковываю его тем-же ISUnp.exe - в папке embedded файлы:

Код:

Код: Выделить всё

embedded\uninstall,2.exe
embedded\License,1.txt
embedded\License,2.txt
embedded\WizardImage,1.bmp
embedded\WizardImage,2.bmp
embedded\WizardSmallImage,1.bmp
embedded\WizardSmallImage,2.bmp

и в "новом" install_script.iss[/i] сами "прописались" строки

Код:

Код: Выделить всё

[Files]
Source: "embedded\uninstall,1.exe"; DestDir: "embedded"; DestName: "uninstall.exe"; 
Source: "embedded\uninstall,2.exe"; DestDir: "embedded"; DestName: "uninstall.exe"; 
Source: "embedded\License,1.txt"; DestDir: "embedded"; DestName: "License.txt"; 
Source: "embedded\WizardImage,1.bmp"; DestDir: "embedded"; DestName: "WizardImage.bmp"; 
Source: "embedded\WizardSmallImage,1.bmp"; DestDir: "embedded"; DestName: "WizardSmallImage.bmp"; 
Source: "embedded\License,2.txt"; DestDir: "embedded"; DestName: "License.txt"; 
Source: "embedded\WizardImage,2.bmp"; DestDir: "embedded"; DestName: "WizardImage.bmp"; 
Source: "embedded\WizardSmallImage,2.bmp"; DestDir: "embedded"; DestName: "WizardSmallImage.bmp";

Все бы "Черт с ним!" - неприятен факт возрастания размера!



Возникает вопрос: "Что я делаю не так?"

[Raf-9600]

Интересует ещё один важный вопрос: можно ли как-то заставить прогу, при запуске (в данный момент, она через [Run]) работать в "невидимом" режиме? ИспробЫвал и RunHidden и RunMinimized, ничего не подействовало. Может через

Код: Выделить всё

 это можно реализовать? В данный момент эта строчка выглядит так:


 
 Код: [url=#][/url]
 [code]Filename: "{app}\WinMPQ-SU.exe"; Flags: runhidden; Parameters: s Sound.txt; StatusMsg: "Встраивание озвучки юнитов..."; Components: inMPQ; Flags: skipifdoesntexist

И она должна работать только после того, как отработает эта:



Код:

Код: Выделить всё

Filename: "{app}\del Ogg [SoundUnit].bat"; Flags: runhidden; StatusMsg: "Удаление лишних файлов..."; Components: SoundUnit;

[Raf-9600]

boss911

Огромное спасибо - разобрался!

[Raf-9600]

Serega, теперь работает, спасибо.

[starwork]

2EgOrus

Source: "D:\Games\Titan Quest\TextureCompiler.exe"; DestDir: "{app}"; Flags: ignoreversion

Source: "D:\Games\Titan Quest\Titan Quest.exe"; DestDir: "{app}"; Flags: ignoreversion

Source: "D:\Games\Titan Quest\AdobeAcrobat\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

Source: "D:\Games\Titan Quest\Audio\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs