Цитата Serega:
А у вас нет точно такого же, но с сиреневыми пуговицами...


Код: Выделить всё
function NextButtonClick(CurPageID: Integer): Boolean;
var
Path,s: String;
FreeMB, TotalMB: Cardinal;
begin
Result:= True;
if CurPageID = wpSelectDir then
begin
Path:= ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB < (NeedSize*1024) then
begin
if FreeMB>1024 then
begin
s:='Для установки приложения необходимо '+ IntTostr(NeedSize)+ ' GB,'#13+'а на выбранном Вами диске доступно только '+ floatToStr(round(FreeMB/1024*100)/100) + ' GB!'
end
else s:='Для установки приложения необходимо '+ IntTostr(NeedSize)+ ' GB,'#13+'а на выбранном Вами диске доступно только '+ + IntToStr(FreeMB)+' MB';
MsgBox(s, mbCriticalError, MB_OK)
Result := False;
end;
end;Код: Выделить всё
Name: a\e; Description: Nero CoverDesigner; Types: full custom; ExtraDiskSpaceRequired: 99614249; Flags: checkablealoneКод: Выделить всё
ForceDirectories(ArcDir);
SrcFile:= AddBackslash(ExpandConstant('{app}\data')) + ExtractFileName(CurrentFileName);
DestFile:= AddBackslash(ArcDir) + ExtractFileName(CurrentFileName);
FileCopy(SrcFile, DestFile, False);Код: Выделить всё
2. Большие скрипты лучше выкладывайть в виде вложенных файлов.

