[insombia]

как убрать кнопку отмены isdone чтобы осталась дефольтная?

[Nightwishh]

Подскажите, как в скрипте от Johny777 (рандомный показ слайдов), сделать последовательный показ слайдов, чтобы Image_2.bmp был строго после Image_1.bmp и т.д.

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: Image_1.bmp; Flags: dontcopy solidbreak sortfilesbyextension nocompression
Source: Image_2.bmp; Flags: dontcopy solidbreak sortfilesbyextension nocompression
Source: Image_3.bmp; Flags: dontcopy solidbreak sortfilesbyextension nocompression

Source: {fonts}\*; DestDir: {app}; Flags: external

[ code]
const
  SlidesNumber=3; //количество слайдов
  SlideRenewTine=2; // задержка показа слаидов в секундах
  
var
  SplashImage: TBitmapImage;
  SlidesTimer: LongWord;
  Pic: Byte;

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

procedure ShowRandomPics;
begin
  Pic := Random(SlidesNumber);
  SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  z: Byte;
begin
  case CurStep of
    ssInstall:
    begin
      { SplashImage }
      SplashImage := TBitmapImage.Create(nil);
      with SplashImage do
      begin
        SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.Bevel.Top)
        Parent := WizardForm.InstallingPage;
        Stretch := True;
        Pic := Random(SlidesNumber);
        ExtractTemporaryFile('Image_' + IntToStr(Pic+1) + '.bmp');
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
      end;
      WizardForm.StatusLabel.Caption := 'Распаковка слайдов ...';
      for z := 1 to SlidesNumber do if not FileExists(ExpandConstant('{tmp}\Image_' + IntToStr(z) + '.bmp')) then ExtractTemporaryFile('Image_'+inttostr(z)+'.bmp');
      SlidesTimer := SetTimer(WizardForm.Handle, 7, SlideRenewTine*1000, CallbackAddr('ShowRandomPics'));
    end;
    
    ssPostInstall:
    begin
      KillTimer(WizardForm.Handle, SlidesTimer);
      SplashImage.Free;
    end;
  end;
end;

procedure DeInitializeSetup();
begin
  KillTimer(WizardForm.Handle, SlidesTimer);
end;

[Gnom_aka_Lexander]

Nightwishh, както так:

Код:

procedure ShowRandomPics;
begin
  Pic := Pic+1;
  if Pic = SlidesNumber then Pic := 0;
  SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
end;

[Tco 03]

Всем привет! Подскажите, пожалуйста, кто знает или кто сталкивался, на примере этого кода:

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

Код:

function NextButtonClick(CurPage: Integer): Boolean;
var
  sz:Integer;
  s:string;
    begin
  Result:=True;
 If CurPage=6 then
 //Проверка присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения
  begin
 If (FileSearch('Main.exe', ExpandConstant('{app}'))='')
 or (FileSearch('Comp.dll', ExpandConstant('{app}')+'\data')='')
then
  begin
  s:='Извините, в директории '+ExpandConstant('{app}')+'' #13 'не обнаружены файлы, подтверждающие подлинность программы.' #13#13 'Пожалуйста, выберите правильный путь для установки обновления.';
  MsgBox(s, mbError, mb_Ok);
  Result:= False
end
else
 //И проверка размера оригинальных файлов
  begin
 If FileSize(ExpandConstant('{app}')+'\Main.exe', sz)
then
  begin
 If sz<>270336 //Проверяемый размер в байтах
then
  begin
  s:='Размер установленого компонента Main.exe не соответствует.' #13#13 'Для установки обновления требуются оригинальные файлы.';  MsgBox(s, mbCriticalError, mb_Ok);
  Result:= False
  end else
  begin
 If FileSize(ExpandConstant('{app}')+'\data\Comp.dll', sz)
then
  begin
 If sz<>3688328
then
  begin
  s:='Размер установленого компонента Comp.dll не соответствует.' #13#13 ' Для установки обновления требуются оригинальные файлы.';  MsgBox(s, mbCriticalError, mb_Ok);
  Result:= False
end;
end;
end;
end;
end;
end;
end;

Возможно ли как-то размер файлов считать с файла INI, а то файлы (по замыслу) должны загружаются через интернет всегда одним установщиком и размер файлов прописывать в установщике (по понятным причинам) бесмысленно.

[Gnom_aka_Lexander]

функция GetIniInt, возвращает целочисленное значение. записать можно с помощью функции SetIniInt. Как ими воспользоваться - нужно посмотреть в справке, мне сейчас лень чего-то, день тяжелый был.

[Tco 03]

Разобрался...
Вот, может кому пригодится:
IniFile:= 'C:\Program Files\Project\Bin\Version.ini';
if FileExists(IniFile) then begin
GetIniInt('sz', '587452145', 0, 0, 0, IniFile);

[Nightwishh]

Здравствуйте, можно ли изменить цвет стандартных чекбоксов в ComponentsList-е и TasksList-е через скин (почему-то NoIconsCheck меняется, а эти нет), на стиль NoIconsCheck?

[EvilAlex]

Доброго времени суток.
Хотел спросить, возможно ли в инно реализовать такую фишку -

[alert30]

EvilAlex, аналогично где-то спрашивал в 4-ой части.

[insombia]

Dima-WAR ну в принципе можно,думаю умельцы тебе подскажут