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

[ilya_klimovich]

Цитата insombia:



зачем этот гемор? такое подойдет?

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

Нет.

[Gnom_aka_Lexander]

ilya_klimovich, покажи ту часть, где распаковка и я покажу, где у тебя косяк.

[habib2302]

Доброе время суток. дайте мне пожалуйста полный скрипт на распаковку .arc архивов, учитывая выбранные компоненты.

[Gnom_aka_Lexander]

Цитата neorom:



(Font.Size не придлагать.)

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

Могу предложить Font.Height := -19;

Узнаете другой способ изменения размера шрифта, меня тоже просветите)

Хотя... можно штамповать кучу лейблов - отдельный под каждую букву, и делать с ними, что угодно, в том числе и увеличивать расстановку букв, но как сказал товарищ insombia, этот геморр не стоит свеч.


Цитата Dinvin4ester:



всякий хлам убрать если не сложно.

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

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

Можно всё. Что до меня, так весь скрипт один сплошной хлам, так как я использую только внутренние средства инно для сжатия и стандартный интерфейс без рюшечек, посему, если я выкину весь хлам на свое усмотрение, то там вообще ничего не останется, кроме стандарта. Точнее формулируйте, что выкинуть.




Цитата Dinvin4ester:



Выбор таблетки

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

Это меняется через препроцессор в шапке скрипта.

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

Код:

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

////////////Возможно выбрать только один из трех вариантов////////////////////
////////////(Var1) Вариант 1 - только выбор таблеток
////////////(Var2) Вариант 2 - только выбор доп компонентов
////////////(Var3) Вариант 3 - Выбор и доп компонентов и таблетки
#define Var1
;#define Var2
;#define Var3

[habib2302]

saurn, а какая версия HWREQ модуля?

у меня есть версия 1.11

[insombia]

Цитата saurn:



Могу предложить Font.Height := -19;

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

Этот неподходит, жаль, спасибо и на этом.

[Gnom_aka_Lexander]

saurn,

Оформление оставить , также как вы делали и раньше .Остальное не нужно)



Вот наподобии этой хочу сделать -

http://s018.radikal.ru/i507/1211/4b/9c89be892801.jpg

. Ранее то что вы мне сделали - Он кажется половину скрипта писал через IS GameScript Generator , а половину сторонее уже. Вот так как бы .Интересует то окно , маленькое .

Это было написано с помошью генератора , пропустил инсталлятор специально .

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

[Setup]

SourceDir=.

OutputDir=Setup

AppName=Jumper Tree

AppVerName=Jumper Tree

AppVersion=Jumper Tree

DefaultDirName={pf}\Jumper Tree

DefaultGroupName=Jumper Tree

AllowNoIcons=yes

OutputBaseFilename=setup

WindowVisible=no

WindowShowCaption=no

WindowResizable=no

Compression=lzma/normal

DiskSpanning=yes

DiskSliceSize=2100000000

SlicesPerDisk=1



[Languages]

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



[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"



[Files]

Source: "C:\Users\Администратор\Desktop\Новая папка (11)\Files\Install\2.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "C:\Users\Администратор\Desktop\Новая папка (5)\Files\Install\2.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "C:\Users\Администратор\Desktop\Новая папка (5)\Files\Install\WizardImage.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "C:\Users\Администратор\Desktop\KMC feat. Jamtech - Forever (Original Mix).mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression



Source: "E:\Приколы\Игры\Jumper Tree\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension



[Icons]

Name: "{group}\Jumper Tree"; Filename: "{app}\JT.exe"; WorkingDir: "{app}";

Name: "{userdesktop}\Jumper Tree"; Filename: "{app}\JT.exe"; WorkingDir: "{app}"; Tasks: desktopicon;

Name: "{group}\{cm:UninstallProgram,Jumper Tree}"; Filename: "{uninstallexe}"



[Run]

Description: "{cm:LaunchProgram, Jumper Tree}"; Filename: "{app}\JT.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent unchecked



[UninstallDelete]

Type: filesandordirs; Name: "{app}"

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

type

  HSTREAM=DWORD;

  TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);

const

  Indent=25;



var

  MP3List:TStringList;

  CurrentMP3:integer;

  hMP3:HWND;

  TimerID:LongWord;



function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall delayload';

function ssInitialize(hParent:HWND;ssTimeShow:integer;FadeOut:boolean;StretchMode:integer;BkgColor:DWORD):boo  lean; external 'ssInitialize@files:isgsg.dll stdcall delayload';

procedure ssDeInitialize; external 'ssDeInitialize@files:isgsg.dll stdcall delayload';

procedure ssSetBkgImage(FileName:PChar); external 'ssSetBkgImage@files:isgsg.dll stdcall delayload';

procedure ssAddImage(FileName:PChar); external 'ssAddImage@files:isgsg.dll stdcall delayload';

procedure ssStartShow; external 'ssStartShow@files:isgsg.dll stdcall delayload';

procedure ssStopShow; external 'ssStopShow@files:isgsg.dll stdcall delayload';

function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.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 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 hMP30 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('KMC feat. Jamtech - Forever (Original Mix).mp3');

  MP3List:=TStringList.Create;

  MP3List.Add(ExpandConstant('{tmp}')+'\KMC feat. Jamtech - Forever (Original Mix).mp3');

  CurrentMP3:=0;

  Result:=True;

end;



procedure InitializeWizard;

begin

  TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5));

  BASS_Init(-1,44100,0,0,0);

  BASS_SetConfig(5,100);

  BASS_SetConfig(6,100);

  ssInitialize(GetWindowLong(MainForm.Handle,-8),10,False,1,$FF000000);

  ExtractTemporaryFile('2.bmp');

  ssSetBkgImage(ExpandConstant('{tmp}')+'\2.bmp');

end;



procedure CurStepChanged(CurStep: TSetupStep);

begin

  if CurStep=ssInstall then begin

    ExtractTemporaryFile('2.bmp');

    ssAddImage(ExpandConstant('{tmp}')+'\2.bmp');

    ExtractTemporaryFile('WizardImage.bmp');

    ssAddImage(ExpandConstant('{tmp}')+'\WizardImage.bmp');

    ssStartShow;

  end;

  if CurStep=ssPostInstall then ssStopShow;

end;



procedure CurPageChanged(CurPageID: Integer);

begin

  if CurPageID=wpInstalling then begin

    WizardForm.MainPanel.Visible:=False;

    WizardForm.Bevel1.Visible:=False;

    WizardForm.Width:=ScaleX(395);

    WizardForm.Height:=ScaleY(142);

    WizardForm.Left:=ScaleX(GetSystemMetrics(0)-WizardForm.Width-Indent);

    WizardForm.Top:=ScaleY(GetSystemMetrics(1)-WizardForm.Height-Indent);

    WizardForm.InnerNotebook.Left:=ScaleX(10);

    WizardForm.InnerNotebook.Top:=ScaleY(10);

    WizardForm.InnerNotebook.Width:=ScaleX(370);

    WizardForm.StatusLabel.Left:=ScaleX(0);

    WizardForm.StatusLabel.Top:=ScaleY(0);

    WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;

    WizardForm.FileNameLabel.Left:=ScaleX(0);

    WizardForm.FileNameLabel.Top:=ScaleY(20);

    WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;

    WizardForm.ProgressGauge.Top:=ScaleY(40);

    WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;

    WizardForm.CancelButton.Left:=ScaleX(154);

    WizardForm.CancelButton.Top:=ScaleY(80);

  end;

  if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then begin

    if WizardForm.Width502 then begin

      WizardForm.Visible:=False;

      WizardForm.Width:=ScaleX(502);

      WizardForm.Height:=ScaleY(392);

      WizardForm.Left:=(GetSystemMetrics(0)-WizardForm.Width) div 2;

      WizardForm.Top:=(GetSystemMetrics(1)-WizardForm.Height) div 2;

      WizardForm.MainPanel.Visible:=True;

      WizardForm.Bevel1.Visible:=True;

      WizardForm.InnerNotebook.Left:=ScaleX(40);

      WizardForm.InnerNotebook.Top:=ScaleY(72);

      WizardForm.InnerNotebook.Width:=ScaleX(417);

      WizardForm.Visible:=True;

    end;

  end;

end;



procedure DeinitializeSetup;

begin

  KillTimer(0,TimerID);

  BASS_Stop;

  BASS_Free;

  MP3List.Free;

  ssDeInitialize;

end;




+[url=http://rghost.ru/private/46089075/415b5f3ca198fd948aa664f49dd50518]2 скрипт[/url]- как соединить их ?

[insombia]

Gnom_aka_Lexander спс,у меня то анси стоит,теперь ясно почему такая беда случилась



ilya_klimovich ты что решил игру по файлам сжать?зачем этот гемор,ведь проще через инсайды сжать сразу все эти файлы в 1 архив

[Gnom_aka_Lexander]

Всем привет,на странице с выбором установки ярлыков внизу есть чекбокс с текстом, но он почему-то не меняет цвет, как фона так и самого текста... Подскажите как поменять ?

[valyok666]

by_gangster, стандартные чекбоксы инно не меняют цвет шрифта и фона, хоть такие свойства у них и есть.