Вопрос Прозрачность

ilzok17 · 10 Окт 2016

Как сделать прозрачными полосы с текстом или убрать их оставив только кнопки?

Nemko · 10 Окт 2016

Как сделать прозрачными полосы с текстом или убрать их оставив только кнопки?

Если данный объект является классом TCheckBox (скорее это он и есть), то он не поддерживает свойство Transparent (прозрачность).
Выход перерисовать CheckBox через модуль botva2 (http://krinkels.org/resources/botva2.47/).

А что бы их убрать из скрипта можно убрать страницу "Лицензионное соглашение" или уберать строки где прописаны чекбоксы.
Либо попросить кого-нибудь помочь, но все будут трубить "где скрипт то, мы же не телепаты".

ilzok17 · 11 Окт 2016

Nemko написал(а):
Если данный объект является классом TCheckBox (скорее это он и есть), то он не поддерживает свойство Transparent (прозрачность).
Выход перерисовать CheckBox через модуль botva2 (http://krinkels.org/resources/botva2.47/).

А что бы их убрать из скрипта можно убрать страницу "Лицензионное соглашение" или уберать строки где прописаны чекбоксы.
Либо попросить кого-нибудь помочь, но все будут трубить "где скрипт то, мы же не телепаты".

Вот скрипт:

[Setup]
WizardSmallImageFile=WizardSmallImage.bmp
SourceDir=.
OutputDir=.
AppName=my program
AppVerName=my program
AppVersion=5.1
DefaultDirName={pf}\my program
DefaultGroupName=my program
AllowNoIcons=yes
LicenseFile=license.rtf
OutputBaseFilename=my_program
SetupIconFile=D:\progi\0.ico
AlwaysRestart=yes
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra
ArchitecturesInstallIn64BitMode=x64
SolidCompression=no
DiskSpanning=no
DiskSliceSize=max
SlicesPerDisk= 1

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}";

[Files]
DestName: "WizardForm.BitmapImage2.bmp"; Source: "fon.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage3.bmp"; Source: "WizardImage.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage1.bmp"; Source: "fon1.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage4.bmp"; Source: "fon2.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage5.bmp"; Source: "fon3.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage6.bmp"; Source: "fon4.bmp"; Flags: dontcopy solidbreak

Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "D:\progi\Заставка.gif"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "D:\progi\mp3.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak

Source: "{app}\DiskMark64.exe"; DestDir: "{app}"; DestName: "DiskMark64.exe"; Check: " IsWin64"; Flags: restartreplace uninsrestartdelete 64bit
Source: "{app}\DiskMark32.exe"; DestDir: "{app}"; DestName: "DiskMark32.exel"; Check: " not IsWin64"; Flags: restartreplace uninsrestartdelete 32bit

Source: "D:\CdmResource\*"; DestDir: "{app}/CdmResource"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\CrystalDiskMark "; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark32.exe"; Comment: "CrystalDiskMark "; Check: " not IsWin64 ";
Name: "{group}\CrystalDiskMark "; Filename: "{app}\DiskMark64.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark64.exe"; Comment: "CrystalDiskMark "; Check: " IsWin64 ";
Name: "{userdesktop}\CrystalDiskMark "; Filename: "{app}\DiskMark64.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark64.exe"; Comment: "CrystalDiskMark "; Check: " IsWin64 ";
Name: "{userdesktop}\CrystalDiskMark "; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark32.exe"; Comment: "CrystalDiskMark "; Check: " not IsWin64 ";
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\CrystalDiskMark"; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; Tasks: quicklaunchicon;
Name: "{group}\{cm:UninstallProgram,CrystalDiskMark}"; Filename: "{uninstallexe}"

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

Код:

var
  OldEvent_NextButtonClick: TNotifyEvent;
  BitmapImage2: TBitmapImage;
  BitmapImage3: TBitmapImage;
  BitmapImage1: TBitmapImage;
  BitmapImage4: TBitmapImage;
  OldEvent_DirBrowseButtonClick: TNotifyEvent;
  BitmapImage5: TBitmapImage;
  BitmapImage6: TBitmapImage;

procedure _NextButtonClick(Sender: TObject); forward;
procedure LicenseMemoChange(Sender: TObject); forward;
procedure DirBrowseButtonClick(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(378);
    ClientWidth := ScaleX(613);
  end;

  with WizardForm.BeveledLabel do
  begin
    Font.Height := 0;
    ParentFont := False;
    Top := ScaleY(0);
    Width := ScaleX(11);
    Height := ScaleY(20);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(413);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(207);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
    OldEvent_NextButtonClick := OnClick;
    OnClick := @_NextButtonClick;
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(2);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clMenu;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(617);
    Height := ScaleY(345);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Height := ScaleY(354);
  end;

  { BitmapImage2 }
  BitmapImage2 := TBitmapImage.Create(WizardForm);
  with BitmapImage2 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(160);
    Top := ScaleY(0);
    Width := ScaleX(457);
    Height := ScaleY(354);
    ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage2.bmp'));
  end;

  { BitmapImage3 }
  BitmapImage3 := TBitmapImage.Create(WizardForm);
  with BitmapImage3 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(164);
    Height := ScaleY(345);
    ExtractTemporaryFile('WizardForm.BitmapImage3.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage3.bmp'));
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(-1);
    Top := ScaleY(60);
    Width := ScaleX(619);
    Height := ScaleY(287);
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm.LicensePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(699);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Left := ScaleX(24);
    Top := ScaleY(264);
    Width := ScaleX(14);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Left := ScaleX(24);
    Top := ScaleY(232);
    Width := ScaleX(14);
    TabStop := True;
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(0);
    Height := ScaleY(0);
    OnChange := @LicenseMemoChange;
  end;

  with WizardForm.LicenseLabel1 do
  begin
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.SelectDirBitmapImage do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  { BitmapImage4 }
  BitmapImage4 := TBitmapImage.Create(WizardForm);
  with BitmapImage4 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(1);
    Top := ScaleY(0);
    Width := ScaleX(611);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage4.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage4.bmp'));
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Color := clBackground;
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentColor := False;
    ParentFont := False;
    Left := ScaleX(72);
    Top := ScaleY(240);
    Height := ScaleY(30);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(329);
    Top := ScaleY(208);
    Width := ScaleX(283);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
    OldEvent_DirBrowseButtonClick := OnClick;
    OnClick := @DirBrowseButtonClick;
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(16);
    Top := ScaleY(207);
    Width := ScaleX(308);
    Height := ScaleY(24);
    Color := clNone;
    Font.Color := clHighlightText;
    Font.Height := -13;
    ParentFont := False;
  end;

  with WizardForm.SelectDirBrowseLabel do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  with WizardForm.SelectDirLabel do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  with WizardForm.SelectGroupBitmapImage do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  { BitmapImage5 }
  BitmapImage5 := TBitmapImage.Create(WizardForm);
  with BitmapImage5 do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    Left := ScaleX(0);
    Top := ScaleY(4);
    Width := ScaleX(609);
    Height := ScaleY(288);
    ExtractTemporaryFile('WizardForm.BitmapImage5.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage5.bmp'));
  end;

  with WizardForm.NoIconsCheck do
  begin
    Left := ScaleX(8);
    Top := ScaleY(260);
    Width := ScaleX(10);
    Height := ScaleY(10);
    Color := clMenu;
    Font.Color := clMenu;
    Font.Height := -13;
    ParentColor := False;
    ParentFont := False;
  end;

  with WizardForm.GroupBrowseButton do
  begin
    Left := ScaleX(326);
    Top := ScaleY(209);
    Width := ScaleX(283);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.GroupEdit do
  begin
    Left := ScaleX(8);
    Top := ScaleY(209);
    Width := ScaleX(308);
    Height := ScaleY(24);
    Color := clBtnText;
    Font.Color := clMenu;
    Font.Height := -13;
    ParentFont := False;
  end;

  with WizardForm.SelectStartMenuFolderBrowseLabel do
  begin
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.SelectStartMenuFolderLabel do
  begin
    Left := ScaleX(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  WizardForm.NoIconsCheck.TabOrder := 0;
  WizardForm.SelectStartMenuFolderLabel.TabOrder := 1;
  WizardForm.SelectStartMenuFolderBrowseLabel.TabOrder := 2;
  WizardForm.GroupEdit.TabOrder := 3;
  WizardForm.GroupBrowseButton.TabOrder := 4;

  { BitmapImage6 }
  BitmapImage6 := TBitmapImage.Create(WizardForm);
  with BitmapImage6 do
  begin
    Parent := WizardForm.SelectTasksPage;
    Left := ScaleX(-3);
    Top := ScaleY(0);
    Width := ScaleX(617);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage6.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage6.bmp'));
  end;

  with WizardForm.TasksList do
  begin
    Left := ScaleX(16);
    Top := ScaleY(13);
    Width := ScaleX(33);
    Height := ScaleY(64);
  end;

  with WizardForm.SelectTasksLabel do
  begin
    Left := ScaleX(-3);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.MainPanel do
  begin
    Left := ScaleX(-7);
    Top := ScaleY(-24);
    Width := ScaleX(624);
    Height := ScaleY(85);
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(-72);
    Top := ScaleY(24);
    Width := ScaleX(959);
    Height := ScaleY(64);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    WordWrap := False;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  WizardForm.BeveledLabel.TabOrder := 0;
  WizardForm.OuterNotebook.TabOrder := 1;
  WizardForm.BackButton.TabOrder := 2;
  WizardForm.NextButton.TabOrder := 3;
  WizardForm.CancelButton.TabOrder := 4;


end;

procedure DirBrowseButtonClick(Sender: TObject);
begin
  OldEvent_DirBrowseButtonClick(Sender);
end;

procedure _NextButtonClick(Sender: TObject);
begin
  OldEvent_NextButtonClick(Sender);
end;

procedure LicenseMemoChange(Sender: TObject);
begin

end;

type
  HSTREAM=DWORD;
  TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
var
  MP3List:TStringList;
  CurrentMP3:integer;
  hMP3:HWND;
  TimerID:LongWord;

procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function SetTimer(hWnd:HWND;nIDEvent,uElapse:UINT;lpTimerFunc:LongWord{TFNTimerProc}):UINT;  external 'SetTimer@user32.dll stdcall delayload';
function KillTimer(hWnd:HWND;uIDEvent:UINT):BOOL; external 'KillTimer@user32.dll stdcall delayload';
function BASS_ChannelIsActive(Handle:HWND):DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall';
function BASS_SetConfig(Option,Value:DWORD):DWORD; external 'BASS_SetConfig@files:bass.dll stdcall';
function BASS_Init(Device:integer;Freq,Flags:DWORD;Win:HWND;CLSID:integer):boolean; external 'BASS_Init@files:bass.dll stdcall delayload';
function BASS_StreamCreateFile(Mem:BOOL;f:PChar;Offset:DWORD;Length:DWORD;Flags:DWORD):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall';
function BASS_StreamFree(Handle:HWND):boolean; external 'BASS_StreamFree@files:bass.dll stdcall';
function BASS_ChannelPlay(Handle:HWND;Restart:boolean):boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall';
function BASS_Start: Boolean; external 'BASS_Start@files:bass.dll stdcall';
function BASS_Stop: Boolean; external 'BASS_Stop@files:bass.dll stdcall';
function BASS_Free: Boolean; external 'BASS_Free@files:bass.dll stdcall delayload';
function WrapTimerProc(CallBack:TTimerProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';

procedure TimerTick(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
begin
  if BASS_ChannelIsActive(hMP3)=0 then begin
    BASS_Stop;
    BASS_StreamFree(hMP3);
    hMP3:=BASS_StreamCreateFile(False,PChar(MP3List.Strings[CurrentMP3]),0,0,0);
    BASS_Start;
    if hMP3<>0 then
      if BASS_ChannelPlay(hMP3,True) then begin
        CurrentMP3:=CurrentMP3+1;
        if CurrentMP3>MP3List.Count-1 then CurrentMP3:=0;
      end;
  end;
end;

function InitializeSetup:boolean;
begin
  ExtractTemporaryFile('mp3.mp3');
  MP3List:=TStringList.Create;
  MP3List.Add(ExpandConstant('{tmp}')+'\mp3.mp3');
  CurrentMP3:=0;
  ExtractTemporaryFile('steam.cjstyles');
  LoadSkin(ExpandConstant('{tmp}')+'\steam.cjstyles', '');
  Result:=True;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
  ExtractTemporaryFile('Заставка.gif');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Заставка.gif',1000,3000,1000,0,255,False,$FFFFFF,10);
  TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5));
  BASS_Init(-1,44100,0,0,0);
  BASS_SetConfig(5,100);
  BASS_SetConfig(6,100);
  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
  KillTimer(0,TimerID);
  BASS_Stop;
  BASS_Free;
  MP3List.Free;
  ShowWindow(WizardForm.Handle,0);
  UnloadSkin();
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030107B18000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874037A010B436C69656E7457696474680365020C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680375020E4578706C6963697448656967687403A1010D506978656C73506572496E636802600A54657874486569676874020D00F302010E544E6577537461746963546578740C426576656C65644C6162656C03546F700200055769647468020B0648656967687402140B466F6E742E48656967687402000A506172656E74466F6E7408085461624F7264657202000B4578706C69636974546F7002000D4578706C696369745769647468020B0E4578706C6963697448656967687402140000F302020A544E6577427574746F6E0C43616E63656C427574746F6E044C656674039D0103546F70035F0105576964746803C5000C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E74080C4578706C696369744C656674039D010B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302030A544E6577427574746F6E0A4E657874427574746F6E044C65667403CF0003546F70035F0105576964746803C5000C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408074F6E436C69636B07105F4E657874427574746F6E436C69636B0C4578706C696369744C65667403CF000B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302040A544E6577427574746F6E0A4261636B427574746F6E044C656674020203546F70035F0105576964746803C5000C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E74080C4578706C696369744C65667402020B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302050C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B05576964746803690206486569676874035901085461624F7264657202010D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650B4578706C69636974546F7002880D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F10C544269746D6170496D6167651157697A6172644269746D6170496D616765064865696768740362010E4578706C696369744865696768740362010000F202010C544269746D6170496D6167650C4269746D6170496D61676532044C65667403A00003546F70020005576964746803C901064865696768740362010A4269746D617046696C650607666F6E2E626D700000F202020C544269746D6170496D6167650C4269746D6170496D61676533044C656674020003546F70020005576964746803A400064865696768740359010A4269746D617046696C65060F57697A617264496D6167652E626D700000F10E544E6577537461746963546578740D57656C636F6D654C6162656C32044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D57656C636F6D654C6162656C31044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C65667402FF03546F70023C055769647468036B0206486569676874031F010C4578706C696369744C65667402FF0B4578706C69636974546F70023C0D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803BB02064865696768740321010A4269746D617046696C650607666F6E2E626D700000F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F044C656674021803546F70030801055769647468020E0C4578706C696369744C65667402180B4578706C69636974546F700308010D4578706C696369745769647468020E0000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C656674021803546F7003E800055769647468020E0754616253746F70090C4578706C696369744C65667402180B4578706C69636974546F7003E8000D4578706C696369745769647468020E0000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680200064865696768740200084F6E4368616E676507114C6963656E73654D656D6F4368616E67650D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D4C6963656E73654C6162656C3105576964746802000648656967687402000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B506167650C50617373776F7264506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F10C544269746D6170496D6167651453656C6563744469724269746D6170496D616765044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C69636974576964746802000000F202010C544269746D6170496D6167650C4269746D6170496D61676534044C656674020103546F700200055769647468036302064865696768740321010A4269746D617046696C650607666F6E2E626D700000F10E544E6577537461746963546578740E4469736B53706163654C6162656C044C656674024803546F7003F00006486569676874021E05436F6C6F72070C636C4261636B67726F756E640C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000B506172656E74436F6C6F72080A506172656E74466F6E74080C4578706C696369744C65667402480B4578706C69636974546F7003F0000E4578706C69636974486569676874021E0000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C65667403490103546F7003D000055769647468031B010C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408074F6E436C69636B071444697242726F777365427574746F6E436C69636B0C4578706C696369744C6566740349010B4578706C69636974546F7003D0000D4578706C696369745769647468031B010000F10554456469740744697245646974044C656674021003546F7003CF0005576964746803340106486569676874021805436F6C6F720706636C4E6F6E650A466F6E742E436F6C6F72070F636C486967686C69676874546578740B466F6E742E48656967687402F30A506172656E74466F6E74080C4578706C696369744C65667402100B4578706C69636974546F7003CF000D4578706C6963697457696474680334010E4578706C6963697448656967687402180000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C69636974576964746802000000F10E544E6577537461746963546578740E53656C6563744469724C6162656C044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C6963697457696474680200000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F7570506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F10C544269746D6170496D6167651653656C65637447726F75704269746D6170496D616765044C65667402FE05576964746802000648656967687402000C4578706C696369744C65667402FE0D4578706C69636974576964746802000E4578706C6963697448656967687402000000F202010C544269746D6170496D6167650C4269746D6170496D61676535044C656674020003546F700204055769647468036102064865696768740320010A4269746D617046696C650607666F6E2E626D700000F10C544E6577436865636B426F780C4E6F49636F6E73436865636B044C656674020803546F70030401055769647468020A06486569676874020A05436F6C6F720706636C4D656E750A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402F30B506172656E74436F6C6F72080A506172656E74466F6E7408085461624F7264657202000C4578706C696369744C65667402080B4578706C69636974546F700304010D4578706C696369745769647468020A0E4578706C69636974486569676874020A0000F10A544E6577427574746F6E1147726F757042726F777365427574746F6E044C65667403460103546F7003D100055769647468031B010C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408085461624F7264657202040C4578706C696369744C6566740346010B4578706C69636974546F7003D1000D4578706C696369745769647468031B010000F108544E6577456469740947726F757045646974044C656674020803546F7003D10005576964746803340106486569676874021805436F6C6F720709636C42746E546578740A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402F30A506172656E74466F6E7408085461624F7264657202030C4578706C696369744C65667402080B4578706C69636974546F7003D1000D4578706C6963697457696474680334010E4578706C6963697448656967687402180000F10E544E6577537461746963546578742053656C65637453746172744D656E75466F6C64657242726F7773654C6162656C03546F7002000557696474680200064865696768740200085461624F7264657202020B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578741A53656C65637453746172744D656E75466F6C6465724C6162656C044C65667402000557696474680200064865696768740200085461624F7264657202010C4578706C696369744C65667402000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F202000C544269746D6170496D6167650C4269746D6170496D61676536044C65667402FD03546F700200055769647468036902064865696768740321010A4269746D617046696C650607666F6E2E626D700000F110544E6577436865636B4C697374426F78095461736B734C697374044C656674021003546F70020D05576964746802210648656967687402400C4578706C696369744C65667402100B4578706C69636974546F70020D0D4578706C69636974576964746802210E4578706C6963697448656967687402400000F10E544E6577537461746963546578741053656C6563745461736B734C6162656C044C65667402FD05576964746802000648656967687402000C4578706C696369744C65667402FD0D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D496E666F4166746572506167650C4578706C696369744C65667402080B4578706C69636974546F7002400D4578706C69636974576964746803A1010E4578706C6963697448656967687403B500000000F1065450616E656C094D61696E50616E656C044C65667402F903546F7002E80557696474680370020648656967687402550C4578706C696369744C65667402F90B4578706C69636974546F7002E80D4578706C6963697457696474680370020E4578706C69636974486569676874025500F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C65667402B803546F70021805576964746803BF030648656967687402400C4578706C696369744C65667402B80B4578706C69636974546F7002180D4578706C69636974576964746803BF030E4578706C6963697448656967687402400000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C656674020003546F700200055769647468020006486569676874020008576F726457726170080C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C69636974486569676874020000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C6963697457696474680369020E4578706C6963697448656967687403590100000000

Nemko · 11 Окт 2016

Что бы отключить страницу лицензии нужно закоментировать или удалить строчку LicenseFile=license.rtf. Попробуйте...

ilzok17 · 11 Окт 2016

ilzok17 написал(а):

Вот скрипт:

[Setup]
WizardSmallImageFile=WizardSmallImage.bmp
SourceDir=.
OutputDir=.
AppName=my program
AppVerName=my program
AppVersion=5.1
DefaultDirName={pf}\my program
DefaultGroupName=my program
AllowNoIcons=yes
LicenseFile=license.rtf
OutputBaseFilename=my_program
SetupIconFile=D:\progi\0.ico
AlwaysRestart=yes
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra
ArchitecturesInstallIn64BitMode=x64
SolidCompression=no
DiskSpanning=no
DiskSliceSize=max
SlicesPerDisk= 1

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}";

[Files]
DestName: "WizardForm.BitmapImage2.bmp"; Source: "fon.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage3.bmp"; Source: "WizardImage.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage1.bmp"; Source: "fon1.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage4.bmp"; Source: "fon2.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage5.bmp"; Source: "fon3.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage6.bmp"; Source: "fon4.bmp"; Flags: dontcopy solidbreak

Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "D:\progi\Заставка.gif"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "D:\progi\mp3.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak

Source: "{app}\DiskMark64.exe"; DestDir: "{app}"; DestName: "DiskMark64.exe"; Check: " IsWin64"; Flags: restartreplace uninsrestartdelete 64bit
Source: "{app}\DiskMark32.exe"; DestDir: "{app}"; DestName: "DiskMark32.exel"; Check: " not IsWin64"; Flags: restartreplace uninsrestartdelete 32bit

Source: "D:\CdmResource\*"; DestDir: "{app}/CdmResource"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\CrystalDiskMark "; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark32.exe"; Comment: "CrystalDiskMark "; Check: " not IsWin64 ";
Name: "{group}\CrystalDiskMark "; Filename: "{app}\DiskMark64.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark64.exe"; Comment: "CrystalDiskMark "; Check: " IsWin64 ";
Name: "{userdesktop}\CrystalDiskMark "; Filename: "{app}\DiskMark64.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark64.exe"; Comment: "CrystalDiskMark "; Check: " IsWin64 ";
Name: "{userdesktop}\CrystalDiskMark "; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark32.exe"; Comment: "CrystalDiskMark "; Check: " not IsWin64 ";
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\CrystalDiskMark"; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; Tasks: quicklaunchicon;
Name: "{group}\{cm:UninstallProgram,CrystalDiskMark}"; Filename: "{uninstallexe}"

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

Код:

var
  OldEvent_NextButtonClick: TNotifyEvent;
  BitmapImage2: TBitmapImage;
  BitmapImage3: TBitmapImage;
  BitmapImage1: TBitmapImage;
  BitmapImage4: TBitmapImage;
  OldEvent_DirBrowseButtonClick: TNotifyEvent;
  BitmapImage5: TBitmapImage;
  BitmapImage6: TBitmapImage;

procedure _NextButtonClick(Sender: TObject); forward;
procedure LicenseMemoChange(Sender: TObject); forward;
procedure DirBrowseButtonClick(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(378);
    ClientWidth := ScaleX(613);
  end;

  with WizardForm.BeveledLabel do
  begin
    Font.Height := 0;
    ParentFont := False;
    Top := ScaleY(0);
    Width := ScaleX(11);
    Height := ScaleY(20);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(413);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(207);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
    OldEvent_NextButtonClick := OnClick;
    OnClick := @_NextButtonClick;
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(2);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clMenu;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(617);
    Height := ScaleY(345);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Height := ScaleY(354);
  end;

  { BitmapImage2 }
  BitmapImage2 := TBitmapImage.Create(WizardForm);
  with BitmapImage2 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(160);
    Top := ScaleY(0);
    Width := ScaleX(457);
    Height := ScaleY(354);
    ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage2.bmp'));
  end;

  { BitmapImage3 }
  BitmapImage3 := TBitmapImage.Create(WizardForm);
  with BitmapImage3 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(164);
    Height := ScaleY(345);
    ExtractTemporaryFile('WizardForm.BitmapImage3.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage3.bmp'));
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(-1);
    Top := ScaleY(60);
    Width := ScaleX(619);
    Height := ScaleY(287);
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm.LicensePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(699);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Left := ScaleX(24);
    Top := ScaleY(264);
    Width := ScaleX(14);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Left := ScaleX(24);
    Top := ScaleY(232);
    Width := ScaleX(14);
    TabStop := True;
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(0);
    Height := ScaleY(0);
    OnChange := @LicenseMemoChange;
  end;

  with WizardForm.LicenseLabel1 do
  begin
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.SelectDirBitmapImage do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  { BitmapImage4 }
  BitmapImage4 := TBitmapImage.Create(WizardForm);
  with BitmapImage4 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(1);
    Top := ScaleY(0);
    Width := ScaleX(611);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage4.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage4.bmp'));
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Color := clBackground;
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentColor := False;
    ParentFont := False;
    Left := ScaleX(72);
    Top := ScaleY(240);
    Height := ScaleY(30);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(329);
    Top := ScaleY(208);
    Width := ScaleX(283);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
    OldEvent_DirBrowseButtonClick := OnClick;
    OnClick := @DirBrowseButtonClick;
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(16);
    Top := ScaleY(207);
    Width := ScaleX(308);
    Height := ScaleY(24);
    Color := clNone;
    Font.Color := clHighlightText;
    Font.Height := -13;
    ParentFont := False;
  end;

  with WizardForm.SelectDirBrowseLabel do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  with WizardForm.SelectDirLabel do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  with WizardForm.SelectGroupBitmapImage do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  { BitmapImage5 }
  BitmapImage5 := TBitmapImage.Create(WizardForm);
  with BitmapImage5 do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    Left := ScaleX(0);
    Top := ScaleY(4);
    Width := ScaleX(609);
    Height := ScaleY(288);
    ExtractTemporaryFile('WizardForm.BitmapImage5.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage5.bmp'));
  end;

  with WizardForm.NoIconsCheck do
  begin
    Left := ScaleX(8);
    Top := ScaleY(260);
    Width := ScaleX(10);
    Height := ScaleY(10);
    Color := clMenu;
    Font.Color := clMenu;
    Font.Height := -13;
    ParentColor := False;
    ParentFont := False;
  end;

  with WizardForm.GroupBrowseButton do
  begin
    Left := ScaleX(326);
    Top := ScaleY(209);
    Width := ScaleX(283);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.GroupEdit do
  begin
    Left := ScaleX(8);
    Top := ScaleY(209);
    Width := ScaleX(308);
    Height := ScaleY(24);
    Color := clBtnText;
    Font.Color := clMenu;
    Font.Height := -13;
    ParentFont := False;
  end;

  with WizardForm.SelectStartMenuFolderBrowseLabel do
  begin
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.SelectStartMenuFolderLabel do
  begin
    Left := ScaleX(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  WizardForm.NoIconsCheck.TabOrder := 0;
  WizardForm.SelectStartMenuFolderLabel.TabOrder := 1;
  WizardForm.SelectStartMenuFolderBrowseLabel.TabOrder := 2;
  WizardForm.GroupEdit.TabOrder := 3;
  WizardForm.GroupBrowseButton.TabOrder := 4;

  { BitmapImage6 }
  BitmapImage6 := TBitmapImage.Create(WizardForm);
  with BitmapImage6 do
  begin
    Parent := WizardForm.SelectTasksPage;
    Left := ScaleX(-3);
    Top := ScaleY(0);
    Width := ScaleX(617);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage6.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage6.bmp'));
  end;

  with WizardForm.TasksList do
  begin
    Left := ScaleX(16);
    Top := ScaleY(13);
    Width := ScaleX(33);
    Height := ScaleY(64);
  end;

  with WizardForm.SelectTasksLabel do
  begin
    Left := ScaleX(-3);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.MainPanel do
  begin
    Left := ScaleX(-7);
    Top := ScaleY(-24);
    Width := ScaleX(624);
    Height := ScaleY(85);
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(-72);
    Top := ScaleY(24);
    Width := ScaleX(959);
    Height := ScaleY(64);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    WordWrap := False;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  WizardForm.BeveledLabel.TabOrder := 0;
  WizardForm.OuterNotebook.TabOrder := 1;
  WizardForm.BackButton.TabOrder := 2;
  WizardForm.NextButton.TabOrder := 3;
  WizardForm.CancelButton.TabOrder := 4;


end;

procedure DirBrowseButtonClick(Sender: TObject);
begin
  OldEvent_DirBrowseButtonClick(Sender);
end;

procedure _NextButtonClick(Sender: TObject);
begin
  OldEvent_NextButtonClick(Sender);
end;

procedure LicenseMemoChange(Sender: TObject);
begin

end;

type
  HSTREAM=DWORD;
  TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
var
  MP3List:TStringList;
  CurrentMP3:integer;
  hMP3:HWND;
  TimerID:LongWord;

procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function SetTimer(hWnd:HWND;nIDEvent,uElapse:UINT;lpTimerFunc:LongWord{TFNTimerProc}):UINT;  external 'SetTimer@user32.dll stdcall delayload';
function KillTimer(hWnd:HWND;uIDEvent:UINT):BOOL; external 'KillTimer@user32.dll stdcall delayload';
function BASS_ChannelIsActive(Handle:HWND):DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall';
function BASS_SetConfig(Option,Value:DWORD):DWORD; external 'BASS_SetConfig@files:bass.dll stdcall';
function BASS_Init(Device:integer;Freq,Flags:DWORD;Win:HWND;CLSID:integer):boolean; external 'BASS_Init@files:bass.dll stdcall delayload';
function BASS_StreamCreateFile(Mem:BOOL;f:PChar;Offset:DWORD;Length:DWORD;Flags:DWORD):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall';
function BASS_StreamFree(Handle:HWND):boolean; external 'BASS_StreamFree@files:bass.dll stdcall';
function BASS_ChannelPlay(Handle:HWND;Restart:boolean):boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall';
function BASS_Start: Boolean; external 'BASS_Start@files:bass.dll stdcall';
function BASS_Stop: Boolean; external 'BASS_Stop@files:bass.dll stdcall';
function BASS_Free: Boolean; external 'BASS_Free@files:bass.dll stdcall delayload';
function WrapTimerProc(CallBack:TTimerProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';

procedure TimerTick(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
begin
  if BASS_ChannelIsActive(hMP3)=0 then begin
    BASS_Stop;
    BASS_StreamFree(hMP3);
    hMP3:=BASS_StreamCreateFile(False,PChar(MP3List.Strings[CurrentMP3]),0,0,0);
    BASS_Start;
    if hMP3<>0 then
      if BASS_ChannelPlay(hMP3,True) then begin
        CurrentMP3:=CurrentMP3+1;
        if CurrentMP3>MP3List.Count-1 then CurrentMP3:=0;
      end;
  end;
end;

function InitializeSetup:boolean;
begin
  ExtractTemporaryFile('mp3.mp3');
  MP3List:=TStringList.Create;
  MP3List.Add(ExpandConstant('{tmp}')+'\mp3.mp3');
  CurrentMP3:=0;
  ExtractTemporaryFile('steam.cjstyles');
  LoadSkin(ExpandConstant('{tmp}')+'\steam.cjstyles', '');
  Result:=True;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
  ExtractTemporaryFile('Заставка.gif');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Заставка.gif',1000,3000,1000,0,255,False,$FFFFFF,10);
  TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5));
  BASS_Init(-1,44100,0,0,0);
  BASS_SetConfig(5,100);
  BASS_SetConfig(6,100);
  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
  KillTimer(0,TimerID);
  BASS_Stop;
  BASS_Free;
  MP3List.Free;
  ShowWindow(WizardForm.Handle,0);
  UnloadSkin();
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030107B18000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874037A010B436C69656E7457696474680365020C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680375020E4578706C6963697448656967687403A1010D506978656C73506572496E636802600A54657874486569676874020D00F302010E544E6577537461746963546578740C426576656C65644C6162656C03546F700200055769647468020B0648656967687402140B466F6E742E48656967687402000A506172656E74466F6E7408085461624F7264657202000B4578706C69636974546F7002000D4578706C696369745769647468020B0E4578706C6963697448656967687402140000F302020A544E6577427574746F6E0C43616E63656C427574746F6E044C656674039D0103546F70035F0105576964746803C5000C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E74080C4578706C696369744C656674039D010B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302030A544E6577427574746F6E0A4E657874427574746F6E044C65667403CF0003546F70035F0105576964746803C5000C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408074F6E436C69636B07105F4E657874427574746F6E436C69636B0C4578706C696369744C65667403CF000B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302040A544E6577427574746F6E0A4261636B427574746F6E044C656674020203546F70035F0105576964746803C5000C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E74080C4578706C696369744C65667402020B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302050C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B05576964746803690206486569676874035901085461624F7264657202010D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650B4578706C69636974546F7002880D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F10C544269746D6170496D6167651157697A6172644269746D6170496D616765064865696768740362010E4578706C696369744865696768740362010000F202010C544269746D6170496D6167650C4269746D6170496D61676532044C65667403A00003546F70020005576964746803C901064865696768740362010A4269746D617046696C650607666F6E2E626D700000F202020C544269746D6170496D6167650C4269746D6170496D61676533044C656674020003546F70020005576964746803A400064865696768740359010A4269746D617046696C65060F57697A617264496D6167652E626D700000F10E544E6577537461746963546578740D57656C636F6D654C6162656C32044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D57656C636F6D654C6162656C31044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C65667402FF03546F70023C055769647468036B0206486569676874031F010C4578706C696369744C65667402FF0B4578706C69636974546F70023C0D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803BB02064865696768740321010A4269746D617046696C650607666F6E2E626D700000F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F044C656674021803546F70030801055769647468020E0C4578706C696369744C65667402180B4578706C69636974546F700308010D4578706C696369745769647468020E0000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C656674021803546F7003E800055769647468020E0754616253746F70090C4578706C696369744C65667402180B4578706C69636974546F7003E8000D4578706C696369745769647468020E0000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680200064865696768740200084F6E4368616E676507114C6963656E73654D656D6F4368616E67650D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D4C6963656E73654C6162656C3105576964746802000648656967687402000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B506167650C50617373776F7264506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F10C544269746D6170496D6167651453656C6563744469724269746D6170496D616765044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C69636974576964746802000000F202010C544269746D6170496D6167650C4269746D6170496D61676534044C656674020103546F700200055769647468036302064865696768740321010A4269746D617046696C650607666F6E2E626D700000F10E544E6577537461746963546578740E4469736B53706163654C6162656C044C656674024803546F7003F00006486569676874021E05436F6C6F72070C636C4261636B67726F756E640C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000B506172656E74436F6C6F72080A506172656E74466F6E74080C4578706C696369744C65667402480B4578706C69636974546F7003F0000E4578706C69636974486569676874021E0000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C65667403490103546F7003D000055769647468031B010C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408074F6E436C69636B071444697242726F777365427574746F6E436C69636B0C4578706C696369744C6566740349010B4578706C69636974546F7003D0000D4578706C696369745769647468031B010000F10554456469740744697245646974044C656674021003546F7003CF0005576964746803340106486569676874021805436F6C6F720706636C4E6F6E650A466F6E742E436F6C6F72070F636C486967686C69676874546578740B466F6E742E48656967687402F30A506172656E74466F6E74080C4578706C696369744C65667402100B4578706C69636974546F7003CF000D4578706C6963697457696474680334010E4578706C6963697448656967687402180000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C69636974576964746802000000F10E544E6577537461746963546578740E53656C6563744469724C6162656C044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C6963697457696474680200000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F7570506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F10C544269746D6170496D6167651653656C65637447726F75704269746D6170496D616765044C65667402FE05576964746802000648656967687402000C4578706C696369744C65667402FE0D4578706C69636974576964746802000E4578706C6963697448656967687402000000F202010C544269746D6170496D6167650C4269746D6170496D61676535044C656674020003546F700204055769647468036102064865696768740320010A4269746D617046696C650607666F6E2E626D700000F10C544E6577436865636B426F780C4E6F49636F6E73436865636B044C656674020803546F70030401055769647468020A06486569676874020A05436F6C6F720706636C4D656E750A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402F30B506172656E74436F6C6F72080A506172656E74466F6E7408085461624F7264657202000C4578706C696369744C65667402080B4578706C69636974546F700304010D4578706C696369745769647468020A0E4578706C69636974486569676874020A0000F10A544E6577427574746F6E1147726F757042726F777365427574746F6E044C65667403460103546F7003D100055769647468031B010C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408085461624F7264657202040C4578706C696369744C6566740346010B4578706C69636974546F7003D1000D4578706C696369745769647468031B010000F108544E6577456469740947726F757045646974044C656674020803546F7003D10005576964746803340106486569676874021805436F6C6F720709636C42746E546578740A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402F30A506172656E74466F6E7408085461624F7264657202030C4578706C696369744C65667402080B4578706C69636974546F7003D1000D4578706C6963697457696474680334010E4578706C6963697448656967687402180000F10E544E6577537461746963546578742053656C65637453746172744D656E75466F6C64657242726F7773654C6162656C03546F7002000557696474680200064865696768740200085461624F7264657202020B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578741A53656C65637453746172744D656E75466F6C6465724C6162656C044C65667402000557696474680200064865696768740200085461624F7264657202010C4578706C696369744C65667402000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F202000C544269746D6170496D6167650C4269746D6170496D61676536044C65667402FD03546F700200055769647468036902064865696768740321010A4269746D617046696C650607666F6E2E626D700000F110544E6577436865636B4C697374426F78095461736B734C697374044C656674021003546F70020D05576964746802210648656967687402400C4578706C696369744C65667402100B4578706C69636974546F70020D0D4578706C69636974576964746802210E4578706C6963697448656967687402400000F10E544E6577537461746963546578741053656C6563745461736B734C6162656C044C65667402FD05576964746802000648656967687402000C4578706C696369744C65667402FD0D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D496E666F4166746572506167650C4578706C696369744C65667402080B4578706C69636974546F7002400D4578706C69636974576964746803A1010E4578706C6963697448656967687403B500000000F1065450616E656C094D61696E50616E656C044C65667402F903546F7002E80557696474680370020648656967687402550C4578706C696369744C65667402F90B4578706C69636974546F7002E80D4578706C6963697457696474680370020E4578706C69636974486569676874025500F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C65667402B803546F70021805576964746803BF030648656967687402400C4578706C696369744C65667402B80B4578706C69636974546F7002180D4578706C69636974576964746803BF030E4578706C6963697448656967687402400000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C656674020003546F700200055769647468020006486569676874020008576F726457726170080C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C69636974486569676874020000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C6963697457696474680369020E4578706C6963697448656967687403590100000000

ilzok17 написал(а):

Вот скрипт:

[Setup]
WizardSmallImageFile=WizardSmallImage.bmp
SourceDir=.
OutputDir=.
AppName=my program
AppVerName=my program
AppVersion=5.1
DefaultDirName={pf}\my program
DefaultGroupName=my program
AllowNoIcons=yes
LicenseFile=license.rtf
OutputBaseFilename=my_program
SetupIconFile=D:\progi\0.ico
AlwaysRestart=yes
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra
ArchitecturesInstallIn64BitMode=x64
SolidCompression=no
DiskSpanning=no
DiskSliceSize=max
SlicesPerDisk= 1

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}";

[Files]
DestName: "WizardForm.BitmapImage2.bmp"; Source: "fon.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage3.bmp"; Source: "WizardImage.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage1.bmp"; Source: "fon1.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage4.bmp"; Source: "fon2.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage5.bmp"; Source: "fon3.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage6.bmp"; Source: "fon4.bmp"; Flags: dontcopy solidbreak

Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "D:\progi\Заставка.gif"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "D:\progi\mp3.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak

Source: "{app}\DiskMark64.exe"; DestDir: "{app}"; DestName: "DiskMark64.exe"; Check: " IsWin64"; Flags: restartreplace uninsrestartdelete 64bit
Source: "{app}\DiskMark32.exe"; DestDir: "{app}"; DestName: "DiskMark32.exel"; Check: " not IsWin64"; Flags: restartreplace uninsrestartdelete 32bit

Source: "D:\CdmResource\*"; DestDir: "{app}/CdmResource"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\CrystalDiskMark "; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark32.exe"; Comment: "CrystalDiskMark "; Check: " not IsWin64 ";
Name: "{group}\CrystalDiskMark "; Filename: "{app}\DiskMark64.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark64.exe"; Comment: "CrystalDiskMark "; Check: " IsWin64 ";
Name: "{userdesktop}\CrystalDiskMark "; Filename: "{app}\DiskMark64.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark64.exe"; Comment: "CrystalDiskMark "; Check: " IsWin64 ";
Name: "{userdesktop}\CrystalDiskMark "; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; IconFilename: "{app}\DiskMark32.exe"; Comment: "CrystalDiskMark "; Check: " not IsWin64 ";
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\CrystalDiskMark"; Filename: "{app}\DiskMark32.exe"; WorkingDir: "{app}"; Tasks: quicklaunchicon;
Name: "{group}\{cm:UninstallProgram,CrystalDiskMark}"; Filename: "{uninstallexe}"

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

Код:

var
  OldEvent_NextButtonClick: TNotifyEvent;
  BitmapImage2: TBitmapImage;
  BitmapImage3: TBitmapImage;
  BitmapImage1: TBitmapImage;
  BitmapImage4: TBitmapImage;
  OldEvent_DirBrowseButtonClick: TNotifyEvent;
  BitmapImage5: TBitmapImage;
  BitmapImage6: TBitmapImage;

procedure _NextButtonClick(Sender: TObject); forward;
procedure LicenseMemoChange(Sender: TObject); forward;
procedure DirBrowseButtonClick(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(378);
    ClientWidth := ScaleX(613);
  end;

  with WizardForm.BeveledLabel do
  begin
    Font.Height := 0;
    ParentFont := False;
    Top := ScaleY(0);
    Width := ScaleX(11);
    Height := ScaleY(20);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(413);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(207);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
    OldEvent_NextButtonClick := OnClick;
    OnClick := @_NextButtonClick;
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(2);
    Top := ScaleY(351);
    Width := ScaleX(197);
    Font.Color := clMenu;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(617);
    Height := ScaleY(345);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Height := ScaleY(354);
  end;

  { BitmapImage2 }
  BitmapImage2 := TBitmapImage.Create(WizardForm);
  with BitmapImage2 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(160);
    Top := ScaleY(0);
    Width := ScaleX(457);
    Height := ScaleY(354);
    ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage2.bmp'));
  end;

  { BitmapImage3 }
  BitmapImage3 := TBitmapImage.Create(WizardForm);
  with BitmapImage3 do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(164);
    Height := ScaleY(345);
    ExtractTemporaryFile('WizardForm.BitmapImage3.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage3.bmp'));
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(-1);
    Top := ScaleY(60);
    Width := ScaleX(619);
    Height := ScaleY(287);
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm.LicensePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(699);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Left := ScaleX(24);
    Top := ScaleY(264);
    Width := ScaleX(14);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Left := ScaleX(24);
    Top := ScaleY(232);
    Width := ScaleX(14);
    TabStop := True;
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(0);
    Height := ScaleY(0);
    OnChange := @LicenseMemoChange;
  end;

  with WizardForm.LicenseLabel1 do
  begin
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.SelectDirBitmapImage do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  { BitmapImage4 }
  BitmapImage4 := TBitmapImage.Create(WizardForm);
  with BitmapImage4 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(1);
    Top := ScaleY(0);
    Width := ScaleX(611);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage4.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage4.bmp'));
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Color := clBackground;
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentColor := False;
    ParentFont := False;
    Left := ScaleX(72);
    Top := ScaleY(240);
    Height := ScaleY(30);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(329);
    Top := ScaleY(208);
    Width := ScaleX(283);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
    OldEvent_DirBrowseButtonClick := OnClick;
    OnClick := @DirBrowseButtonClick;
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(16);
    Top := ScaleY(207);
    Width := ScaleX(308);
    Height := ScaleY(24);
    Color := clNone;
    Font.Color := clHighlightText;
    Font.Height := -13;
    ParentFont := False;
  end;

  with WizardForm.SelectDirBrowseLabel do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  with WizardForm.SelectDirLabel do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
  end;

  with WizardForm.SelectGroupBitmapImage do
  begin
    Left := ScaleX(-2);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  { BitmapImage5 }
  BitmapImage5 := TBitmapImage.Create(WizardForm);
  with BitmapImage5 do
  begin
    Parent := WizardForm.SelectProgramGroupPage;
    Left := ScaleX(0);
    Top := ScaleY(4);
    Width := ScaleX(609);
    Height := ScaleY(288);
    ExtractTemporaryFile('WizardForm.BitmapImage5.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage5.bmp'));
  end;

  with WizardForm.NoIconsCheck do
  begin
    Left := ScaleX(8);
    Top := ScaleY(260);
    Width := ScaleX(10);
    Height := ScaleY(10);
    Color := clMenu;
    Font.Color := clMenu;
    Font.Height := -13;
    ParentColor := False;
    ParentFont := False;
  end;

  with WizardForm.GroupBrowseButton do
  begin
    Left := ScaleX(326);
    Top := ScaleY(209);
    Width := ScaleX(283);
    Font.Color := clWhite;
    Font.Height := -24;
    Font.Name := 'Monotype Corsiva';
    Font.Style := [fsBold, fsItalic];
    ParentFont := False;
  end;

  with WizardForm.GroupEdit do
  begin
    Left := ScaleX(8);
    Top := ScaleY(209);
    Width := ScaleX(308);
    Height := ScaleY(24);
    Color := clBtnText;
    Font.Color := clMenu;
    Font.Height := -13;
    ParentFont := False;
  end;

  with WizardForm.SelectStartMenuFolderBrowseLabel do
  begin
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.SelectStartMenuFolderLabel do
  begin
    Left := ScaleX(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  WizardForm.NoIconsCheck.TabOrder := 0;
  WizardForm.SelectStartMenuFolderLabel.TabOrder := 1;
  WizardForm.SelectStartMenuFolderBrowseLabel.TabOrder := 2;
  WizardForm.GroupEdit.TabOrder := 3;
  WizardForm.GroupBrowseButton.TabOrder := 4;

  { BitmapImage6 }
  BitmapImage6 := TBitmapImage.Create(WizardForm);
  with BitmapImage6 do
  begin
    Parent := WizardForm.SelectTasksPage;
    Left := ScaleX(-3);
    Top := ScaleY(0);
    Width := ScaleX(617);
    Height := ScaleY(289);
    ExtractTemporaryFile('WizardForm.BitmapImage6.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage6.bmp'));
  end;

  with WizardForm.TasksList do
  begin
    Left := ScaleX(16);
    Top := ScaleY(13);
    Width := ScaleX(33);
    Height := ScaleY(64);
  end;

  with WizardForm.SelectTasksLabel do
  begin
    Left := ScaleX(-3);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.MainPanel do
  begin
    Left := ScaleX(-7);
    Top := ScaleY(-24);
    Width := ScaleX(624);
    Height := ScaleY(85);
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(-72);
    Top := ScaleY(24);
    Width := ScaleX(959);
    Height := ScaleY(64);
  end;

  with WizardForm.PageDescriptionLabel do
  begin
    WordWrap := False;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(0);
    Height := ScaleY(0);
  end;

  WizardForm.BeveledLabel.TabOrder := 0;
  WizardForm.OuterNotebook.TabOrder := 1;
  WizardForm.BackButton.TabOrder := 2;
  WizardForm.NextButton.TabOrder := 3;
  WizardForm.CancelButton.TabOrder := 4;


end;

procedure DirBrowseButtonClick(Sender: TObject);
begin
  OldEvent_DirBrowseButtonClick(Sender);
end;

procedure _NextButtonClick(Sender: TObject);
begin
  OldEvent_NextButtonClick(Sender);
end;

procedure LicenseMemoChange(Sender: TObject);
begin

end;

type
  HSTREAM=DWORD;
  TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
var
  MP3List:TStringList;
  CurrentMP3:integer;
  hMP3:HWND;
  TimerID:LongWord;

procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function SetTimer(hWnd:HWND;nIDEvent,uElapse:UINT;lpTimerFunc:LongWord{TFNTimerProc}):UINT;  external 'SetTimer@user32.dll stdcall delayload';
function KillTimer(hWnd:HWND;uIDEvent:UINT):BOOL; external 'KillTimer@user32.dll stdcall delayload';
function BASS_ChannelIsActive(Handle:HWND):DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall';
function BASS_SetConfig(Option,Value:DWORD):DWORD; external 'BASS_SetConfig@files:bass.dll stdcall';
function BASS_Init(Device:integer;Freq,Flags:DWORD;Win:HWND;CLSID:integer):boolean; external 'BASS_Init@files:bass.dll stdcall delayload';
function BASS_StreamCreateFile(Mem:BOOL;f:PChar;Offset:DWORD;Length:DWORD;Flags:DWORD):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall';
function BASS_StreamFree(Handle:HWND):boolean; external 'BASS_StreamFree@files:bass.dll stdcall';
function BASS_ChannelPlay(Handle:HWND;Restart:boolean):boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall';
function BASS_Start: Boolean; external 'BASS_Start@files:bass.dll stdcall';
function BASS_Stop: Boolean; external 'BASS_Stop@files:bass.dll stdcall';
function BASS_Free: Boolean; external 'BASS_Free@files:bass.dll stdcall delayload';
function WrapTimerProc(CallBack:TTimerProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';

procedure TimerTick(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
begin
  if BASS_ChannelIsActive(hMP3)=0 then begin
    BASS_Stop;
    BASS_StreamFree(hMP3);
    hMP3:=BASS_StreamCreateFile(False,PChar(MP3List.Strings[CurrentMP3]),0,0,0);
    BASS_Start;
    if hMP3<>0 then
      if BASS_ChannelPlay(hMP3,True) then begin
        CurrentMP3:=CurrentMP3+1;
        if CurrentMP3>MP3List.Count-1 then CurrentMP3:=0;
      end;
  end;
end;

function InitializeSetup:boolean;
begin
  ExtractTemporaryFile('mp3.mp3');
  MP3List:=TStringList.Create;
  MP3List.Add(ExpandConstant('{tmp}')+'\mp3.mp3');
  CurrentMP3:=0;
  ExtractTemporaryFile('steam.cjstyles');
  LoadSkin(ExpandConstant('{tmp}')+'\steam.cjstyles', '');
  Result:=True;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
  ExtractTemporaryFile('Заставка.gif');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Заставка.gif',1000,3000,1000,0,255,False,$FFFFFF,10);
  TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5));
  BASS_Init(-1,44100,0,0,0);
  BASS_SetConfig(5,100);
  BASS_SetConfig(6,100);
  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
  KillTimer(0,TimerID);
  BASS_Stop;
  BASS_Free;
  MP3List.Free;
  ShowWindow(WizardForm.Handle,0);
  UnloadSkin();
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030107B18000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874037A010B436C69656E7457696474680365020C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680375020E4578706C6963697448656967687403A1010D506978656C73506572496E636802600A54657874486569676874020D00F302010E544E6577537461746963546578740C426576656C65644C6162656C03546F700200055769647468020B0648656967687402140B466F6E742E48656967687402000A506172656E74466F6E7408085461624F7264657202000B4578706C69636974546F7002000D4578706C696369745769647468020B0E4578706C6963697448656967687402140000F302020A544E6577427574746F6E0C43616E63656C427574746F6E044C656674039D0103546F70035F0105576964746803C5000C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E74080C4578706C696369744C656674039D010B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302030A544E6577427574746F6E0A4E657874427574746F6E044C65667403CF0003546F70035F0105576964746803C5000C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408074F6E436C69636B07105F4E657874427574746F6E436C69636B0C4578706C696369744C65667403CF000B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302040A544E6577427574746F6E0A4261636B427574746F6E044C656674020203546F70035F0105576964746803C5000C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E74080C4578706C696369744C65667402020B4578706C69636974546F70035F010D4578706C69636974576964746803C5000000F302050C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B05576964746803690206486569676874035901085461624F7264657202010D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650B4578706C69636974546F7002880D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F10C544269746D6170496D6167651157697A6172644269746D6170496D616765064865696768740362010E4578706C696369744865696768740362010000F202010C544269746D6170496D6167650C4269746D6170496D61676532044C65667403A00003546F70020005576964746803C901064865696768740362010A4269746D617046696C650607666F6E2E626D700000F202020C544269746D6170496D6167650C4269746D6170496D61676533044C656674020003546F70020005576964746803A400064865696768740359010A4269746D617046696C65060F57697A617264496D6167652E626D700000F10E544E6577537461746963546578740D57656C636F6D654C6162656C32044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D57656C636F6D654C6162656C31044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C6963697457696474680369020E4578706C6963697448656967687403590100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C65667402FF03546F70023C055769647468036B0206486569676874031F010C4578706C696369744C65667402FF0B4578706C69636974546F70023C0D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803BB02064865696768740321010A4269746D617046696C650607666F6E2E626D700000F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F044C656674021803546F70030801055769647468020E0C4578706C696369744C65667402180B4578706C69636974546F700308010D4578706C696369745769647468020E0000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C656674021803546F7003E800055769647468020E0754616253746F70090C4578706C696369744C65667402180B4578706C69636974546F7003E8000D4578706C696369745769647468020E0000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680200064865696768740200084F6E4368616E676507114C6963656E73654D656D6F4368616E67650D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D4C6963656E73654C6162656C3105576964746802000648656967687402000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B506167650C50617373776F7264506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F10C544269746D6170496D6167651453656C6563744469724269746D6170496D616765044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C69636974576964746802000000F202010C544269746D6170496D6167650C4269746D6170496D61676534044C656674020103546F700200055769647468036302064865696768740321010A4269746D617046696C650607666F6E2E626D700000F10E544E6577537461746963546578740E4469736B53706163654C6162656C044C656674024803546F7003F00006486569676874021E05436F6C6F72070C636C4261636B67726F756E640C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000B506172656E74436F6C6F72080A506172656E74466F6E74080C4578706C696369744C65667402480B4578706C69636974546F7003F0000E4578706C69636974486569676874021E0000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C65667403490103546F7003D000055769647468031B010C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408074F6E436C69636B071444697242726F777365427574746F6E436C69636B0C4578706C696369744C6566740349010B4578706C69636974546F7003D0000D4578706C696369745769647468031B010000F10554456469740744697245646974044C656674021003546F7003CF0005576964746803340106486569676874021805436F6C6F720706636C4E6F6E650A466F6E742E436F6C6F72070F636C486967686C69676874546578740B466F6E742E48656967687402F30A506172656E74466F6E74080C4578706C696369744C65667402100B4578706C69636974546F7003CF000D4578706C6963697457696474680334010E4578706C6963697448656967687402180000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C69636974576964746802000000F10E544E6577537461746963546578740E53656C6563744469724C6162656C044C65667402FE05576964746802000C4578706C696369744C65667402FE0D4578706C6963697457696474680200000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F7570506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F10C544269746D6170496D6167651653656C65637447726F75704269746D6170496D616765044C65667402FE05576964746802000648656967687402000C4578706C696369744C65667402FE0D4578706C69636974576964746802000E4578706C6963697448656967687402000000F202010C544269746D6170496D6167650C4269746D6170496D61676535044C656674020003546F700204055769647468036102064865696768740320010A4269746D617046696C650607666F6E2E626D700000F10C544E6577436865636B426F780C4E6F49636F6E73436865636B044C656674020803546F70030401055769647468020A06486569676874020A05436F6C6F720706636C4D656
[QUOTE="Nemko, post: 28509, member: 4960"]Что бы отключить страницу лицензии нужно закоментировать или удалить строчку LicenseFile=license.rtf. Попробуйте...[/QUOTE]

E750A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402F30B506172656E74436F6C6F72080A506172656E74466F6E7408085461624F7264657202000C4578706C696369744C65667402080B4578706C69636974546F700304010D4578706C696369745769647468020A0E4578706C69636974486569676874020A0000F10A544E6577427574746F6E1147726F757042726F777365427574746F6E044C65667403460103546F7003D100055769647468031B010C466F6E742E43686172736574070F5255535349414E5F434841525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402E809466F6E742E4E616D6506104D6F6E6F7479706520436F72736976610A466F6E742E5374796C650B066673426F6C640866734974616C6963000A506172656E74466F6E7408085461624F7264657202040C4578706C696369744C6566740346010B4578706C69636974546F7003D1000D4578706C696369745769647468031B010000F108544E6577456469740947726F757045646974044C656674020803546F7003D10005576964746803340106486569676874021805436F6C6F720709636C42746E546578740A466F6E742E436F6C6F720706636C4D656E750B466F6E742E48656967687402F30A506172656E74466F6E7408085461624F7264657202030C4578706C696369744C65667402080B4578706C69636974546F7003D1000D4578706C6963697457696474680334010E4578706C6963697448656967687402180000F10E544E6577537461746963546578742053656C65637453746172744D656E75466F6C64657242726F7773654C6162656C03546F7002000557696474680200064865696768740200085461624F7264657202020B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578741A53656C65637453746172744D656E75466F6C6465724C6162656C044C65667402000557696474680200064865696768740200085461624F7264657202010C4578706C696369744C65667402000D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C696369745769647468036B020E4578706C69636974486569676874031F0100F202000C544269746D6170496D6167650C4269746D6170496D61676536044C65667402FD03546F700200055769647468036902064865696768740321010A4269746D617046696C650607666F6E2E626D700000F110544E6577436865636B4C697374426F78095461736B734C697374044C656674021003546F70020D05576964746802210648656967687402400C4578706C696369744C65667402100B4578706C69636974546F70020D0D4578706C69636974576964746802210E4578706C6963697448656967687402400000F10E544E6577537461746963546578741053656C6563745461736B734C6162656C044C65667402FD05576964746802000648656967687402000C4578706C696369744C65667402FD0D4578706C69636974576964746802000E4578706C696369744865696768740200000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403B5000000F110544E65774E6F7465626F6F6B506167650D496E666F4166746572506167650C4578706C696369744C65667402080B4578706C69636974546F7002400D4578706C69636974576964746803A1010E4578706C6963697448656967687403B500000000F1065450616E656C094D61696E50616E656C044C65667402F903546F7002E80557696474680370020648656967687402550C4578706C696369744C65667402F90B4578706C69636974546F7002E80D4578706C6963697457696474680370020E4578706C69636974486569676874025500F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C65667402B803546F70021805576964746803BF030648656967687402400C4578706C696369744C65667402B80B4578706C69636974546F7002180D4578706C69636974576964746803BF030E4578706C6963697448656967687402400000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C656674020003546F700200055769647468020006486569676874020008576F726457726170080C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C6963697448656967687402000000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C656674020003546F70020005576964746802000648656967687402000C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746802000E4578706C69636974486569676874020000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C6963697457696474680369020E4578706C6963697448656967687403590100000000

Nemko написал(а):
Что бы отключить страницу лицензии нужно закоментировать или удалить строчку LicenseFile=license.rtf. Попробуйте...

ilzok17 · 11 Окт 2016

Это понятно что просто отключить страницу лицензии,но она мне нужна в инстале

Nemko · 11 Окт 2016

Вы хотите, что бы кто-то через ботву Вам чекболсы прикрутил ? Но тут даже botva не подключена все на стандартном Bmp формате, и еще ISDone нету, не проще будет пример чей-то взять за основу, а так возни многовато получается.

Вопрос Прозрачность

ilzok17

Новичок

Nemko

Дилетант

ilzok17

Новичок

Nemko

Дилетант

ilzok17

Новичок

ilzok17

Новичок

Nemko

Дилетант