[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

[CSKA_fan_n.1]

R.i.m.s.k.y., вот с вашим кодом:
http://i2.imageban.ru/thumbs/2010.07.21/7c42f0ca8dc7e5cf9aa6ce51b0e2d305.jpg (http://imageban.ru/show/2010/07/21/7c42f0ca8dc7e5cf9aa6ce51b0e2d305/jpg)

Вот без кода:
http://i2.imageban.ru/thumbs/2010.07.21/cd27084f85713b5b212c08778e9b65f9.jpg (http://imageban.ru/show/2010/07/21/cd27084f85713b5b212c08778e9b65f9/jpg)

Вот когда без вашего кода, у мя вылезает ошибка, которая на скрине, я специально удалял тот параметр (FilenameLabel....), пробовал снова, эта ошибка исчезает, появляется другая и так все время!

[Habetdin]

bas32un, Секция выполняется при запуске "готового" инсталлятора.. :read:
[CODE]#define MySourcePath "C:\Program Files\Inno Setup 5\Examples"

[Files]
Source: {#MySourcePath}\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[boss911]

bas32un

А не проще ли так:
[Files]
Source: C:\MyProg\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Или я чего-то не понял. Непонятно, для чего делать переменную в "Source", там, что трудно указать прямой, можно и относительный, путь к файлу, тем более этот путь нужен только для компиляции и все.

-- {#SetupSetting("AppName")} так и выводится почему то, а не имя программмы.... »
MsgBox('Программа ' + '{#SetupSetting('AppName')}' + ' установлена!', mbInformation, MB_OK);

[UltimaReDragON]

Привет. Скачал скрипт ExecAndWait.iss. Вставил в основной проект при помощи препоцессора, но у меня при комплияции пишет "PM_REMOVE Duplicate Identifier". Скрипты прикрепил, очень надеюсь на вашу помощь, заранее спасибо.

[R.i.m.s.k.y.]

Вот когда без вашего кода, у мя вылезает ошибка, которая на скрине, »
эээ процедура InitializeWizard() пишется в секции Code и она в данном скрипте должна быть одна, отсутствуют begin-end,

[_Code] // пишем в скрипт без "_"
procedure InitializeWizard();
begin
WizardForm.FileNameLabel.Visible:= False;
end;

И откуда скриптик FreeArc.iss взяли? Не от доброва случаем? Может еще Serega подскажет что добавить чтобы заработало в оригинале.

[CSKA_fan_n.1]

R.i.m.s.k.y., и все равно не работает(((
Скрипт брал отсюда (http://www.freearc.org/ru/InnoSetup.aspx)
- Самый краткий скрипт распаковки FreeArc от Shegorat, 14-06-2010.

А может быть вы мне дадите свой рабочий скрипт, наподобие этого?
Мне не нужно никаких красивых распаковок, мне нужно чтобы просто распаковал и все))

[R.i.m.s.k.y.]

А может быть вы мне дадите свой рабочий скрипт, наподобие этого? »
Инно сам жмет очень неплохо, ведьмака с фильмом, музыкой и собственно ведьмаком сжал на 20 метров лучше чем 7zip (все на максимальное сжатие было настроено).
+ нет заморочки с разбивкой на тома - просто в секции Setup указал размер тома по 1/3 двд болванки, при запуске с болванки пишет - смени болванку.
Чего так на фриарк заморачиваются - не понимаю.

Почитал про него немного. Зачем он нужен - не понял, но вроде ему нужен http://code.google.com/p/isprecomp/

Если не нужно красивых распаковок я чуть выше писал про Unrar.

[bas32un]

"C:\MyProg\*" - не подходило потому что можно либо то, либо другое (компоненты)...
С остальным понял - не было установлено Tools.

Вот еще с чем не могу разобраться: язык программы зависит от строчки language=ru в текстовом файле language.txt
Сделал папки по язык и туда поместил этот файл с нужной записью. А вот как правильно это добавить в [Files] Source: "lng_ru\language.txt"; DestDir: "{app}\";.... и в [Tasks] чтобы автоматом копировался нужный файл что-то не пойму.

[МИШАНЧИК]

Подскажите пожалуйста, можно ли как-то сделать чтоб данные в реестр вносились в самом начале распаковки инсталятора? То есть, сначала данные в реестр, а затем все остальные файлы(ну кроме тех что отвечают за внешний вид инсталятора).

[Habetdin]

bas32un, [Files]
Source: C:\MyProg\russian.txt; DestDir: {app}; DestName: language.txt; Tasks: rus

[Tasks]
Name: rus; Description: Русификация

[R.i.m.s.k.y.]

можно ли как-то сделать чтоб данные в реестр вносились в самом начале распаковки инсталятора »
Может быть так?

procedure CurStepChanged(CurPageID: Integer);
var res:integer;
begin
if CurStep=ssInstall then begin
Exec('regsvr32.exe', ' /s ' + AddQuotes(_путь_),ExpandConstant('{sys}'),SW_HIDE,ewWaitUntilTerminated,res);
// или читаем справку по команде reg import
end;
end;

[bas32un]

1. Помогите с такой задачей:
Папка Demo содержит демофайлы, на вкладке компоненты для демофайлов ставится или нет галочка, на вкладке task выбирается куда их поместить (папка с программой, документы....). Так как сделал имеет один недостаток - не отображается размер ее на вкладке компоненты, хотя когда пробывал просто ее сделать компонентом (без выбора куда) все вродебы было хорошо. Как вернуть размер?
Что есть:

[Components]
...
Name: "Demo"; Description: "Demo"; Types: full
[Tasks]
....
Name: Demo_app; Description: "{cm:DescriptionDemoApp}"; GroupDescription: "{cm:GroupDescriptionDemo}"; Components: Demo; Flags: exclusive unchecked;
Name: Demo_userdocs; Description: "{cm:DescriptionDemoUserdocs}"; GroupDescription: "{cm:GroupDescriptionDemo}"; Components: Demo; Flags: exclusive;
Name: Demo_commondocs; Description: "{cm:DescriptionDemoCommondocs}"; GroupDescription: "{cm:GroupDescriptionDemo}"; Components: Demo; Flags: exclusive unchecked;
[Files]
...
Source: "My\Demo\*"; DestDir: "{app}\Demo\"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Demo_app
Source: "My\Demo\*"; DestDir: "{userdocs}\Demo\"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Demo_userdocs
Source: "My\Demo\*"; DestDir: "{commondocs}\Demo\"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Demo_commondocs



2. Второй вопрос: в Task выбирается для чего создать ярлыки на раб. столе. Но создавать можно и у пользователя и у всех. Как бы удобно спросить куда (для всех или пользователю)? Тоже добавить в Task следом за галочками ярлыки переключатель куда? А как его скрывать когда не выбран ни один из ярлыком?

[dracosha]

Всем привет!
Небольшой вопрос:
Что в этом коде нужно изменить:
[Code]
// Домашняя страничка
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', '{#MyAppURL}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
procedure InitializeWizard();
var
URLLabel: TNewStaticText;
begin
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Caption := 'Homepage';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
{ URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];}
URLLabel.Font.Color := $646464;
URLLabel.Top := 330;
URLLabel.Left := 40;
end;
что бы при наведении мышки на URLLabel, она становилась подчеркнутой и менялась на другой цвет?

[nik1967]

dracosha,
[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\AppName

[_Code]
var
MouseLabel,SiteLabel: TLabel;

procedure SiteLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://forum.ru-board.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clRed;
SiteLabel.Font.Style:=[fsUnderline, fsBold];
end;

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue;
SiteLabel.Font.Style:=[fsBold];
end;

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clGreen;
SiteLabel.Font.Style:=[fsUnderline, fsBold];
end;

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue;
SiteLabel.Font.Style:=[fsBold];
end;

procedure InitializeWizard();
begin
MouseLabel:=TLabel.Create(WizardForm);
MouseLabel.Width:=WizardForm.Width;
MouseLabel.Height:=WizardForm.Height;
MouseLabel.Autosize:=False;
MouseLabel.Transparent:=True;
MouseLabel.OnMouseMove:=@SiteLabelMouseMove2;
MouseLabel.Parent:=WizardForm;

SiteLabel:=TLabel.Create(WizardForm);
SiteLabel.Left:=10;
SiteLabel.Top:=330;
SiteLabel.Cursor:=crHand;
SiteLabel.Font.Color:=clBlue;
SiteLabel.Font.Style:=[fsBold];
SiteLabel.Caption:='Forum Ru-Board';
SiteLabel.OnClick:=@SiteLabelOnClick;
SiteLabel.OnMouseDown:=@SiteLabelMouseDown;
SiteLabel.OnMouseUp:=@SiteLabelMouseUp;
SiteLabel.OnMouseMove:=@SiteLabelMouseMove;
SiteLabel.Parent:=WizardForm;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usPostUninstall then
begin
// DelTree использовать не рекомендуется,
// так как будут удалены все вложенные папки!
DelTree(ExpandConstant('{app}\Backup'), True, True, True);
end;
end;

[Raf-9600]

Ктонить может подправить этот скрипт? Там трабл с отображением винчестеров (они вобще не отображаются). В благодарность, могу выслать пригласительный на tracker.0day.kiev.ua или поделиться "бубликами" на нем, или pslan.com


[ Code]
const
n=21; //количество слайдов
type
TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);
TRandNumbers = array[1..N] of byte;

function WrapTimerProc(callback:TProc; paramcount:integer):longword;
external 'wrapcallback@files:InnoCallback.dll stdcall';

function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
external 'SetTimer@user32.dll stdcall';

function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord;
external 'KillTimer@user32.dll stdcall';

function get_unique_random_number(X:byte):TRandNumbers;
var
A,b,c: string;
i,j,k:byte;
begin
For i:=1 to X do A:=A+chr(i);
B:='';
For i:=1 to X do begin
j:=Random(Length(A)-1)+1;
C:='';
B:=B + A[j];
for k:=1 to Length(A) do
if k<>j then C:=C+A[k];
A:=C;
end;
for i:=1 to X do Result[i]:=ord(B[i]);
end;

var
TimerID: LongWord;
currTime: Integer;
SplashImage: TBitmapImage;
bmp: TRandNumbers;
z:byte;

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
currTime := currTime + 1;
if (currTime mod {#20} = 0) // здесь, вместо TIME_FOR_VIEW ввести время показа слайда (в секундах)
then begin
SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_'+inttostr(bmp[currTime/{#20}])+'.bmp')); // здесь тоже
if (currTime/{#20} = N) then currTime:=0 ; // и здесь
end;
end;


procedure InitializeWizard1;
begin
bmp:=get_unique_random_number(N);
ExtractTemporaryFile('Image_'+inttostr(bmp[1])+'.bmp');

currTime := 0;

WizardForm.ProgressGauge.Parent := WizardForm;
WizardForm.ProgressGauge.Top := WizardForm.CancelButton.Top + ScaleY(12);
WizardForm.ProgressGauge.Left := ScaleX(10);
WizardForm.ProgressGauge.Width := WizardForm.MainPanel.Width - ScaleX(20);
WizardForm.ProgressGauge.Height := 16;
WizardForm.ProgressGauge.Hide;

WizardForm.StatusLabel.Parent := WizardForm;
WizardForm.StatusLabel.Top := WizardForm.ProgressGauge.Top - ScaleY(18);
WizardForm.StatusLabel.Left := ScaleX(10);
WizardForm.StatusLabel.Width := ScaleX(397);
WizardForm.StatusLabel.Hide;

SplashImage := TBitmapImage.Create(WizardForm);
SplashImage.Top := 0;
SplashImage.Left := 0;
SplashImage.Width := WizardForm.MainPanel.Width;
SplashImage.Height := WizardForm.Bevel.Top;
SplashImage.Parent := WizardForm.InnerPage;
SplashImage.Stretch := True;
SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_'+inttostr(bmp[1])+'.bmp'));
SplashImage.Hide;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
begin
WizardForm.StatusLabel.Caption := 'Распаковка слайдов ...';
for z:=2 to N do ExtractTemporaryFile('Image_'+inttostr(bmp[z])+'.bmp');
end;
end;

procedure CurPageChanged1(CurPageID: Integer);
var
pfunc: LongWord;
begin
if (CurPageID = wpInstalling) then
begin
pfunc := WrapTimerProc(@OnTimer, 5);
TimerID := SetTimer(0, 0, 1000, pfunc);
WizardForm.PageNameLabel.Visible := False;
WizardForm.PageDescriptionLabel.Visible := False;
WizardForm.InnerNotebook.Hide;
WizardForm.Bevel1.Hide;
WizardForm.MainPanel.Hide;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.ProgressGauge.Show;
WizardForm.StatusLabel.Show;
SplashImage.Show;
WizardForm.CancelButton.Enabled := True;
WizardForm.CancelButton.Top := WizardForm.Bevel.Top + ScaleY(100);
end else
begin
WizardForm.ProgressGauge.Hide;
SplashImage.Hide;
WizardForm.FileNameLabel.Hide;
WizardForm.StatusLabel.Hide;
if (CurPageID > wpInstalling) and (CurPageID < wpFinished) then
begin
WizardForm.InnerNotebook.Show;
WizardForm.Bevel1.Show;
WizardForm.MainPanel.Show;
WizardForm.PageNameLabel.Show;
WizardForm.PageDescriptionLabel.Show;
end;
If CurPageID = wpFinished then
end;
end;

procedure DeInitializeSetup1();
begin
KillTimer(0, TimerID);
end;

function ShouldSkipPage(CurPage: Integer): Boolean;
begin
if Pos('/SP-', UpperCase(GetCmdTail)) > 0 then
case CurPage of
wpLicense, wpPassword, wpInfoBefore, wpUserInfo,
wpSelectDir, wpSelectProgramGroup, wpInfoAfter:
Result := True;
end;
end;

const
WM_LBUTTONDOWN = 513;
WM_LBUTTONUP = 514;

procedure InitializeWizard2();
begin
if (Pos('/SP-', UpperCase(GetCmdTail)) > 0) then
begin
PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONDOWN,0,0);
PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONUP,0,0);
end;
end;

procedure CurPageChanged2(CurPageID: Integer);
begin
if (Pos('/SP-', UpperCase(GetCmdTail)) > 0) and
(CurPageID = wpSelectComponents) then
WizardForm.BackButton.Visible := False;
end;


//I?iaa?ea ia inoaaouany oaeeu
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Res: Integer;
begin
case CurUninstallStep of
usPostUninstall:
begin
if DirExists(ExpandConstant('{app}')) then
if ExpandConstant('{language}') = 'ua' then
case MsgBox('Iaiea "' + ExpandConstant('{app}') + '" ia ii?i?iy.'#13#13 +
'"Oae" – iiaia aeaaeaiiy an?o oaee?a o iaio?, aee??a??e naio iaieo.' #13#13 +
'"I?" – a?ae?eoe iaieo a i?ia?aieeo, uia a?o?io aeaaeeoe oaeee.'#13#13 +
'"Neanoaaoe" – i??iai ia ?iaeoe, aeaaeeoe iaieo i?ci?oa naiino?eii.', mbInformation, MB_YESNOCANCEL) of

IDYES:
if not DelTree(ExpandConstant('{app}'), True, True, True) then
MsgBox('Iaiea ia aeaaeaia.' #13#13 'Iaiea aai iaei c oaee?a o i?e caa?yi? ?ioi? i?ia?aii?.', mbError, MB_OK);

IDNO:
if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
MsgBox('Iiieeea a?ae?eooy.' #13#13 'Iaiea ia ciaeaaia.', mbError, MB_OK);

IDCANCEL:;
end
else
if ExpandConstant('{language}') = 'ru' then
case MsgBox('Iaiea "' + ExpandConstant('{app}') + '" ia ionoa.'#13#13 +
'"Aa" – iieiia oaaeaiea anao oaeeia a iaiea, aee??ay naio iaieo.' #13#13 +
'"Iao" – ioe?uou iaieo a i?iaiaieea, ?oiau a?o?io? oaaeeou oaeeu.'#13#13 +
'"Ioiaia" – ie?aai ia aaeaou, oaaeeou iaieo iic?a naiinoiyoaeuii.', mbInformation, MB_YESNOCANCEL) of

IDYES:
if not DelTree(ExpandConstant('{app}'), True, True, True) then
MsgBox('Iaiea ia oaaeaia.' #13#13 'Iaiea eee iaei ec oaeeia a iae caaaenoaiaaiu a?oaei i?eei?aieai.', mbError, MB_OK);

IDNO:
if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
MsgBox('Ioeaea ioe?uoey.' #13#13 'Iaiea ia iaeaaia.', mbError, MB_OK);

IDCANCEL:;
end
else
case MsgBox('Directory "' + ExpandConstant('{app}') + '" is not empty.'#13#13 +
'"Yes" to delete all of the files in the directory, including the directory itself.' #13#13 +
'"No" to open the directory with explorer to delete the files manually.'#13#13 +
'"Cancel" to do nothing and delete the directory later manually.', mbInformation, MB_YESNOCANCEL) of

IDYES:
if not DelTree(ExpandConstant('{app}'), True, True, True) then
MsgBox('Directory is not deleted.' #13#13 'Directory or one of the files are used by the other application.', mbError, MB_OK);

IDNO:
if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
MsgBox('Error opening the directory.' #13#13 'Directory is not found.', mbError, MB_OK);

IDCANCEL:;
end
end
end
end;

procedure InitializeWizard3();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 58; //Размер рисунка
Width := 497; //
end;
with PageNameLabel do begin
Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 497; //
end;
with PageDescriptionLabel do begin
Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 497; //
end;
end;
end;

function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';

function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;

procedure DeinitializeSetup2();
begin
disabledesc();
end;

procedure InitializeWizard4();
begin
WizardForm.TYPESCOMBO.Visible:= false;
WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Width := ScaleX(200);
InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := WizardForm.ComponentsList.Top;
InfoPanel.Left := ScaleX(216);
InfoPanel.Width := ScaleX(200);
InfoPanel.Height := WizardForm.ComponentsList.Height;
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := 'ГиКц';
InfoCaption.Left := ScaleX(224);
InfoCaption.Top := InfoPanel.Top - ScaleY(5);
InfoCaption.Font.Color := clActiveCaption;
Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(188);
Info.Top := ScaleY(12);
Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
Info.Caption := 'Переместите ваш указатель мыши на компоненты чтобы увидеть их описание.';
Info.WordWrap := true;
enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
'Английская озвучка;'+ // SoundUnit\eng
'Французская озвучка;'+ // SoundUnit\fra
'Немецкая озвучка;'+ // SoundUnit\deu
'Итальянская озвучка;'+ // SoundUnit\ita
'Испанская озвучка;' // SoundUnit\spa
);
end;

var
NeedSize:Integer;
FreeMB, TotalMB: Cardinal;
NeedSpaceLabel: TLabel;
n1: Integer;
VolumeName, FileSystemName: String;
VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint;
ListBox: TListBox;
StartMenuTreeView: TStartMenuFolderTreeView;

procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled := False else
WizardForm.NextButton.Enabled := True; end;

procedure GetNeedSpaceCaption;
begin
if NeedSize > 1024 then
NeedSpaceLabel.Caption := 'Требуется как минимум '+ FloatToStr(round(NeedSize/1024*100)/100) + ' Гб свободного дискового пространства.' else
NeedSpaceLabel.Caption := 'Требуется как минимум '+ IntToStr(NeedSize)+ ' Мб свободного дискового пространства.';end;

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 n1:= 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 n1:= 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 n1:= 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 InitializeWizard5();
begin
NeedSize := 6100; //Здесь указывается место для приложения
WizardForm.DiskSpaceLabel.Hide;
NeedSpaceLabel := TLabel.Create(WizardForm);
with NeedSpaceLabel do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(220);
Width := ScaleX(209);
Height := ScaleY(13);
end;
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;
WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0;
end;

procedure CurPageChanged3(CurPageID: Integer);
begin
if CurPageID=wpSelectDir then
begin
GetNeedSpaceCaption;
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled:=False
ListBoxRefresh
end;
end;

Var
Text: TNewStaticText;

Procedure InitializeWizard6();
begin
Text:=TNewStaticText.Create(WizardForm)
Text.Left:=10 // сдвиг влево
Text.Top:=305 // сдвиг вниз
Text.Color:=WizardForm.Color;
Text.Font.Name:='Courier New' // шрифт
Text.Font.Color:=clGray // цвет шрифта
Text.Caption:='Created by Raf-9600' // надпись
Text.Parent:=WizardForm
end;

procedure CurPageChanged4(CurPageID: Integer);
begin
if (CurPageID = wpWelcome) or (CurPageID = wpFinished) or (CurPageID = wpInstalling) then // скроем надпись на стриницах Приветствия, Завершения (картинку портит) и Установки :)
begin
Text.Visible:= False;
end;

if (CurPageID = wpLicense) or (CurPageID = wpInfoBefore) or (CurPageID = wpSelectDir) then // начиная с любой из этих страниц надпись появится
begin
Text.Visible:= True;
end;
end;

procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
InitializeWizard3();
InitializeWizard4();
InitializeWizard5();
InitializeWizard6();
end;

procedure CurPageChanged(CurPageID: Integer);
begin
CurPageChanged1(CurPageID);
CurPageChanged2(CurPageID);
CurPageChanged3(CurPageID);
CurPageChanged4(CurPageID);
end;

procedure DeinitializeSetup();
begin
DeinitializeSetup1();
DeinitializeSetup2();
end;

[bas32un]

Как в code использовать текст из CustomMessages, т.е. чтобы тоже под разные языки можно было?

[SkarM]

Пытаюсь сделать чтоб одновременно было слайдшоу и играла в фоне музыка с кнопками плей\пауза и стоп.
При компиляции ошибка:
duplicate identifier 'InitializeWizard'

И еще: можно ли как-то организовать ,например, всплывающие подсказки при наведении курсора мыши на компонент при установке? Можно при установке компонентов оставить только сам список компонентов а выпадающие меню "полная установка"/"компактная"/"выборочная" убрать?

[Habetdin]

При компиляции ошибка:
duplicate identifier 'InitializeWizard' »
У вас 2 разных InitializeWizard(); - объедините их :)

[R.i.m.s.k.y.]

Можно при установке компонентов оставить только сам список компонентов а выпадающие меню "полная установка"/"компактная"/"выборочная" убрать »
procedure InitializeWizard();
WizardForm.TypesCombo.Hide;

[SkarM]

А куда именно вставлять строку WizardForm.TypesCombo.Hide;? После первой procedure InitializeWizard(); или второй, или после обоих таких строк? Объеденить не получиться- пытался, не работает.