Inno Setup (создание инсталяционных пакетов)

[urban]

Shift85, ты хочешь чтобы файл попросту был не в темпе а где-то в другом месте на жд?
ExpandConstant('{tmp}\') попробуй удалить

 

[Shift85]

ты хочешь чтобы файл попросту был не в темпе а где-то в другом месте на жд?

Нет хочу чтобы были одни надписи без текстуры...

 

[vint56]

Shift85 сделай прозрачные кнопки оставь только текст

 

[sergey3695]

Shift85, а зачем кнопки,когда нужен текст? тогда уж лейблы.

 

[Shift85]

sergey3695, Лейблы мне не катят сделал прозрачную кнопку тупо чтобы цвет при наведении менялся вобщем нормально получилось.

Вот: http://rghost.ru/52538180

Собственно вопрос как двигануть прогресс бар тут с IsDone...

Вот : http://rghost.ru/52543964

 

[sergey3695]

Shift85, да конечно, с лейблами то никак не сделать чтобы при наведении (onmousemove) менялся цвет И по по-поводу прогрессбара, скачай ботву,там примеры.

 

[vint56]

Shift85 несколько станиц назад уже выкладовали прогрессбар на ботве для IsDone

Спойлер: пример

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

var
  Minimize,Minimize2: TLabel;

procedure MinimizeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Minimize.Font.Color:=clRed
end;

procedure MinimizeMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Minimize.Font.Color:=clBlue
end;

procedure MinimizeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Minimize.Font.Color:=clGreen
end;

procedure MinimizeMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Minimize.Font.Color:=clBlue
end;

procedure CloseBtnClick(Sender: TObject);
begin
  WizardForm.Close;
end;

procedure MinimizeBtnClick(Sender: TObject);
begin
  SendMessage(WizardForm.Handle,$0112,61472,0);
end;

procedure InitializeWizard();
begin
  Minimize := TLabel.Create(WizardForm);
  with Minimize do
  begin
    Parent := WizardForm;
    Font.Name := 'Tahoma';
    Font.Style := [fsBold];
    ParentFont := False;
    Width:=WizardForm.Width
    Height:=WizardForm.Height
    OnMouseMove:=@MinimizeMouseMove2
  end;
  Minimize := TLabel.Create(WizardForm);
  with Minimize do
  begin
    Parent := WizardForm;
    Caption := 'Свернуть';
    Font.Height := -12;
    Font.Name := 'Tahoma';
    Font.Style := [fsBold];
    ParentFont := False;
    Left := ScaleX(48);
    Top := ScaleY(328);
    Width := ScaleX(59);
    Height := ScaleY(14);
    OnClick:=@MinimizeBtnClick
    OnMouseDown:=@MinimizeMouseDown
    OnMouseUp:=@MinimizeMouseUp
    OnMouseMove:=@MinimizeMouseMove
  end;
end;[/SPOILER]

 

[Shift85]

vint56, Да я в курсе тут надо двинуть сплющить где копать в модуле или нет...

Чтобы так вышло: http://rghost.ru/52550285

 

[vint56]

Shift85 в скрипте isdone

 

[Silentman]

Приветствую всех. Имеется код

function NextButtonClick(CurPageID: Integer): Boolean; 
begin 
Result := True; 
if CurPageID = wpSelectDir then 
if DirExists(ExpandConstant('{localappdata}')+'\config\') then
begin 
if MsgBox('Папка существует. Продолжить устновку?', mbInformation, MB_YESNO) = idno then
begin
Result := False ; //запрет перехода на следующую страницу 
exit; 
end 
else Result := True; //разрешаем переход на следующую страницу 
end; 
end; [/MORE], но хочу сделать не через MsgBox, а создать свою форму с кнопками вместо него. Как создать форму и кнопки я знаю, но как "повесить" на клики этих кнопок [MORE="эту"]Result := False ; //запрет перехода на следующую страницу 
exit; 
end 
else Result := True; //разрешаем переход на следующую страницу[/MORE] часть функиции не могу додуматься (да и возможно ли это вообще). Может кто подскажет?

 

[HandyMan]

Silentman

 function NextButtonClick(CurPageID: Integer): Boolean; 
 begin 
 Result := True; 
 if CurPageID = wpSelectDir then 
 if DirExists(ExpandConstant('{localappdata}')+'\config\') then
 begin 
[B]InitializeMyForm()[/B] //процедура инициализации формы
 if [B]MyForm.ShowModal() = mrCancel[/B] then
 begin
 Result := False ; //запрет перехода на следующую страницу 
 exit; 
 end 
 else Result := True; //разрешаем переход на следующую страницу  
[B]MyForm.Free;[/B]
 end; 
 end;[/QUOTE]

 

[Tolyak26]

Всем привет. Сделал кнопку для запуска приложения, теперь как теперь повесить на неё действие запуска exe-шника, и что бы инсталлятор перед этим закрывался?

Спойлер: код

LaunchGame := TNewButton.Create(WizardForm);
  with LaunchGame do
  begin
    Parent := WizardForm;
    Left := ScaleX(10);
    Top := ScaleY(327);
    Width := ScaleX(99);
    Height := ScaleY(25);
    Caption := 'Запустить игру';
  end;

 

[HandyMan]

Tolyak26

Спойлер: Код

const
  BM_CLICK = $00F5;

procedure StartGameClick(Sender: TObject);
var
ExecError: Integer;
begin
  Exec(ExpandConstant('{#MyAppExeName}'),'',ExpandConstant('{app}'),SW_SHOWNORMAL,ewNoWait,ExecError);
  SendMessage(WizardForm.NextButton.Handle, BM_CLICK, 0, 0);
end;

LaunchGame := TNewButton.Create(WizardForm);
with LaunchGame do
begin
  Parent := WizardForm;
  Left := ScaleX(10);
  Top := ScaleY(327);
  Width := ScaleX(99);
  Height := ScaleY(25);
  Caption := 'Запустить игру';
  OnClick:=@StartGameClick;
end;
[/SPOILER]

 

[nik1967]

Tolyak26, ну или такой пример

[SOURCE="inno"]#define MyAppExeName "calc.exe"
#define MyAppExeWorkingDir "Binaries\Win32"

[Setup]
AppName=Game
AppVersion=Game_v1
DefaultDirName={pf}\Games
DefaultGroupName=Games
OutputDir=.

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

[Files]
Source: {sys}\calc.exe; DestDir: {app}\{#MyAppExeWorkingDir}; Flags: external recursesubdirs;

var
  LaunchGame: TNewButton;
  ResultCode: integer;
  
procedure LaunchGameOnClick(Sender: TObject);
begin
  Exec(ExpandConstant('{app}')+'\{#MyAppExeWorkingDir}\{#MyAppExeName}','','',SW_SHOWNORMAL,ewNoWait,ResultCode);
  SendMessage(WizardForm.NextButton.handle, $F5, 0, 0);
end; 
  
procedure InitializeWizard();                       
begin
LaunchGame:= TNewButton.Create(WizardForm);
  with LaunchGame do
  begin
    Parent:= WizardForm;
    Left:= ScaleX(10);
    Top:= ScaleY(327);
    Width:= ScaleX(99);
    Height:= ScaleY(25);
    Caption:= 'Запустить игру';
    OnClick:= @LaunchGameOnClick;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  LaunchGame.Hide;
    case CurPageID of
      wpFinished: LaunchGame.Show;
    end;
end;[/SOURCE][/MORE]

 

[Shift85]

Покажите пожалуйста пример блокировки наложенной через ботву кнопки при нехватке места на диске...

Заранее спасибо...

 

[Silentman]

Shift85, держи.

 

[vint56]

Shift85

Спойлер: Покажите пожалуйста пример блокировки наложенной через ботву кнопки при нехватке места на диске

#define NeedSize "36315"

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

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

[CustomMessages]
rus.TotalSpace=Размер жесткого диска:
rus.FreeSpace=Доступно места на диске:
rus.NeedSpace=Требуется места на диске:

[Files]
Source: "InstallFiles\botva2.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "InstallFiles\InnoCallback.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "InstallFiles\Enter.wav"; DestDir: "{tmp}"; Flags: dontcopy
Source: "InstallFiles\Click.wav"; DestDir: "{tmp}"; Flags: dontcopy
Source: "InstallFiles\Button.png"; DestDir: "{tmp}"; Flags: dontcopy

type
  TTimerProc = procedure (h: Longword; msg: Longword; idevent: Longword; dwTime: Longword);
  TBtnEventProc = procedure (h:HWND);
  TALabel = array of TLabel;

const
  BtnClickEventID      = 1;
  BtnMouseEnterEventID = 2;
  WFDiskTimerID        = 1;

var
  hCancelBtn, hNextBtn, hBackBtn, hDirBrowseBtn, hGroupBrowseBtn: HWND;
  ButtonFont: TFont;
  OldDisk: string;
  TotalSpaceLabel, NeedSpaceLabel, FreeSpaceLabel: TLabel;
  FreeMB, TotalMB: Cardinal;
  ADisk: TALabel;

function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';
function BtnCreate(hParent:HWND; Left,Top,Width,Height:integer; FileName:PAnsiChar; ShadowWidth:integer; IsCheckBtn:boolean):HWND;  external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
procedure BtnRefresh(h:HWND); external 'BtnRefresh@{tmp}\botva2.dll stdcall delayload';
function BtnGetChecked(h:HWND):boolean; external 'BtnGetChecked@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetChecked(h:HWND; Value:boolean); external 'BtnSetChecked@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetText(h:HWND; Text:PAnsiChar);  external 'BtnSetText@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetVisibility(h:HWND; Value:boolean); external 'BtnSetVisibility@{tmp}\botva2.dll stdcall delayload';
function BtnGetEnabled(h:HWND):boolean; external 'BtnGetEnabled@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEnabled(h:HWND; Value:boolean); external 'BtnSetEnabled@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFont(h:HWND; Font:Cardinal); external 'BtnSetFont@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFontColor(h:HWND; NormalFontColor, FocusedFontColor, PressedFontColor, DisabledFontColor: Cardinal); external 'BtnSetFontColor@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEvent(h:HWND; EventID:integer; Event:Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetCursor(h:HWND; hCur:Cardinal); external 'BtnSetCursor@{tmp}\botva2.dll stdcall delayload';
function GetSysCursorHandle(id:integer):Cardinal; external 'GetSysCursorHandle@{tmp}\botva2.dll stdcall delayload';

procedure gdipShutdown;  external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';

function sndPlaySound(lpszSoundName: AnsiString; uFlags: cardinal):integer; external 'sndPlaySoundA@winmm.dll stdcall';

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
function WrapTimerProc(callback:TTimerProc; paramcount:integer):LongWord; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';

procedure SetStateNewButtons;
begin
  with WizardForm.BackButton do begin
    BtnSetText(hBackBtn,PAnsiChar(Caption));
    BtnSetVisibility(hBackBtn,Visible);
    BtnSetEnabled(hBackBtn,Enabled);
  end;
  with WizardForm.NextButton do begin
    BtnSetText(hNextBtn,PAnsiChar(Caption));
    BtnSetVisibility(hNextBtn,Visible);
    BtnSetEnabled(hNextBtn,Enabled);
  end;
  with WizardForm.CancelButton do begin
    BtnSetText(hCancelBtn,PAnsiChar(Caption));
    BtnSetVisibility(hCancelBtn,Visible);
    BtnSetEnabled(hCancelBtn,Enabled);
  end;
  BtnSetText(hDirBrowseBtn,PAnsiChar(WizardForm.DirBrowseButton.Caption));
end;

procedure WizardFormBtnClick(hBtn:HWND);
var
  Btn:TButton;
begin
  sndPlaySound(ExpandConstant('{tmp}\Click.wav'),$0001);
  case hBtn of
    hCancelBtn: Btn:=WizardForm.CancelButton;
    hNextBtn: Btn:=WizardForm.NextButton;
    hBackBtn: Btn:=WizardForm.BackButton;
    hDirBrowseBtn: Btn:=WizardForm.DirBrowseButton;
  end;
  Btn.OnClick(Btn);
  SetStateNewButtons;
  BtnRefresh(hBtn);
end;

procedure BtnEnter(hBtn:HWND);
begin
  sndPlaySound(ExpandConstant('{tmp}\Enter.wav'),$0001);
end;

procedure ButtonsTextures;
begin

  ButtonFont:=TFont.Create;
  ButtonFont.Style:=[fsBold];

  with WizardForm.BackButton do begin
    hBackBtn:=BtnCreate(WizardForm.Handle,Left-20,Top-8,Width+16,Height+16,ExpandConstant('{tmp}\button.png'),18,False);
    BtnSetEvent(hBackBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnEnter,1));
    BtnSetEvent(hBackBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hBackBtn,ButtonFont.Handle);
    BtnSetFontColor(hBackBtn,$DAE369,$DAE369,$DAE369,$B6B6B6);
    BtnSetCursor(hBackBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;

  with WizardForm.NextButton do begin
    hNextBtn:=BtnCreate(WizardForm.Handle,Left-8,Top-8,Width+16,Height+16,ExpandConstant('{tmp}\button.png'),18,False);
    BtnSetEvent(hNextBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnEnter,1));
    BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hNextBtn,ButtonFont.Handle);
    BtnSetFontColor(hNextBtn,$DAE369,$DAE369,$DAE369,$B6B6B6);
    BtnSetCursor(hNextBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;

  with WizardForm.CancelButton do begin
    hCancelBtn:=BtnCreate(WizardForm.Handle,Left-8,Top-8,Width+16,Height+16,ExpandConstant('{tmp}\button.png'),18,False);
    BtnSetEvent(hCancelBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnEnter,1));
    BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hCancelBtn,ButtonFont.Handle);
    BtnSetFontColor(hCancelBtn,$DAE369,$DAE369,$DAE369,$B6B6B6);
    BtnSetCursor(hCancelBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;

  with WizardForm.DirBrowseButton do begin
    hDirBrowseBtn:=BtnCreate(WizardForm.SelectDirPage.Handle,Left-11,Top-8,Width+16,Height+16,ExpandConstant('{tmp}\button.png'),18,False);
    BtnSetEvent(hDirBrowseBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnEnter,1));
    BtnSetEvent(hDirBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hDirBrowseBtn,ButtonFont.Handle);
    BtnSetFontColor(hDirBrowseBtn,$DAE369,$DAE369,$DAE369,$B6B6B6);
    BtnSetCursor(hDirBrowseBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;
end;

function NumToStr(Float: Extended): string;
begin
  Result:=Format('%.2n', [Float]);
  StringChange(Result, ',', '.');
  while ((Result[Length(Result)]='0') or (Result[Length(Result)]='.')) and (Pos('.',Result)>0) do SetLength(Result,Length(Result)-1);
end;

function MbOrTB(Float: Extended): string;
begin
  if Float<1024 then Result:=NumToStr(Float)+' MB'
  else if (Float/1024)<1024 then Result:=NumToStr(Float/1024)+' GB'
  else if (Float/(1024*1024))<1024 then Result:=NumToStr(Float/(1024*1024))+' TB'
end;

procedure DiskFlashing(h: Longword; msg: Longword; idevent: Longword; dwTime: Longword);
var
  i:integer;
begin
  for i:= 0 to GetArrayLength(ADisk)-1 do
    if ADisk[i].Font.Color=$000000 then ADisk[i].Font.Color:=$0000FF else ADisk[i].Font.Color:=$000000;
end;

function GetElementIndex(a:TALabel; lbl:TLabel):integer;
var
  i:integer;
  f:boolean;
begin
  Result:=-1;
  f:=False;
  for i:=0 to GetArrayLength(a)-1 do
    if a[i]=lbl then begin
      f:=True;
      Break;
    end;
  if f then Result:=i;
end;

procedure AddLabelToArray(var a:TALabel; lbl:TLabel);
begin
  if GetElementIndex(a,lbl)=-1 then begin
    SetArrayLength(a,GetArrayLength(a)+1);
    a[GetArrayLength(a)-1]:=lbl;
  end;
end;

procedure DeleteLabelFromArray(var a:TALabel; lbl:integer);
var
  Last,i:integer;
begin
  if lbl<>-1 then begin
    Last:=GetArrayLength(a)-1;
    if lbl<Last then
      for i:=lbl to Last-1 do a[i]:=a[i+1];
    SetArrayLength(a,Last);
  end;
end;

procedure GetFreeSpaceCaption(Sender: TObject);
var
  CurrentDisk: String;
  i:integer;
begin
  CurrentDisk:=ExtractFileDrive(WizardForm.DirEdit.Text);
  if not GetSpaceOnDisk(CurrentDisk,True,FreeMB,TotalMB) then begin
    KillTimer(WizardForm.Handle,WFDiskTimerID);
    SetArrayLength(ADisk,0);
    TotalSpaceLabel.Visible:=False;
    FreeSpaceLabel.Visible:=False;
    BtnSetEnabled(hNextBtn,False);
    WizardForm.NextButton.Enabled:=False;
    OldDisk:=CurrentDisk;
    Exit;
  end;

  TotalSpaceLabel.Visible:=True;
  FreeSpaceLabel.Visible:=True;

  if CurrentDisk<>OldDisk then begin
    OldDisk:=CurrentDisk;
    TotalSpaceLabel.Caption := ExpandConstant('{cm:TotalSpace} ') + MbOrTB(TotalMb);
    FreeSpaceLabel.Caption := ExpandConstant('{cm:FreeSpace} ') + MbOrTB(FreeMb) + ' (' + IntToStr((FreeMb*100) div TotalMB) + ' %)';

    if WizardForm.CurPageID = wpSelectDir then begin
      if FreeMB>={#NeedSize} then begin
        i:=GetElementIndex(ADisk,FreeSpaceLabel);
        if i<>-1 then begin
          DeleteLabelFromArray(ADisk,i);
          FreeSpaceLabel.Font.Color:=$000000;
          if GetArrayLength(ADisk)=0 then KillTimer(WizardForm.Handle,WFDiskTimerID);
        end;
      end else AddLabelToArray(ADisk,FreeSpaceLabel);

      if TotalMb>={#NeedSize} then begin
        i:=GetElementIndex(ADisk,TotalSpaceLabel);
        if i<>-1 then begin
          DeleteLabelFromArray(ADisk,i);
          TotalSpaceLabel.Font.Color:=$000000;
          if GetArrayLength(ADisk)=0 then KillTimer(WizardForm.Handle,WFDiskTimerID);
        end;
      end else AddLabelToArray(ADisk,TotalSpaceLabel);

      if GetArrayLength(ADisk)>0 then SetTimer(WizardForm.Handle,WFDiskTimerID,1000,WrapTimerProc(@DiskFlashing,4));
      BtnSetEnabled(hNextBtn,not (GetArrayLength(ADisk)>0));
      WizardForm.NextButton.Enabled:=not (GetArrayLength(ADisk)>0);
    end;
  end;
end;

procedure RedesignWizardForm;
begin
  WizardForm.DiskSpaceLabel.Hide;

  ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('InnoCallback.dll');
  ExtractTemporaryFile('Click.wav');
  ExtractTemporaryFile('Enter.wav');
  ExtractTemporaryFile('Button.png');

  TotalSpaceLabel := TLabel.Create(WizardForm);
  with TotalSpaceLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(0), ScaleY(180), ScaleX(417), ScaleY(14));
    Transparent:=True;
    Parent := WizardForm.SelectDirPage;
  end;

  FreeSpaceLabel := TLabel.Create(WizardForm);
  with FreeSpaceLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(0), ScaleY(198), ScaleX(417), ScaleY(14));
    Transparent:=True;
    Parent := WizardForm.SelectDirPage;
  end;

  NeedSpaceLabel := TLabel.Create(WizardForm);
  with NeedSpaceLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(0), ScaleY(216), ScaleX(417), ScaleY(14));
    Transparent:=True;
    Caption := ExpandConstant('{cm:NeedSpace} ') + MbOrTB({#NeedSize});
    Parent := WizardForm.SelectDirPage;
  end;

  WizardForm.DirEdit.OnChange:= @GetFreeSpaceCaption;
  WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text + #0;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
  ButtonsTextures;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  SetStateNewButtons;
  if CurPageID=wpSelectDir then begin
    OldDisk:='';
    GetFreeSpaceCaption(nil);
  end else if GetArrayLength(ADisk)>0 then KillTimer(WizardForm.Handle,WFDiskTimerID);
end;

procedure DeinitializeSetup;
begin
  gdipShutdown;
end;[/SPOILER]

 

[Tolyak26]

Не могу сообразить. Как убрать заполнение надписи "Установка..." белым фоном? Происходит это перед началом действий ISDone.

Спойлер: 123

 

[audiofeel]

фон PNG, как убрать белую "рамку" , подскажите
http://rghost.ru/52739521/image.png

 

[Silentman]

audiofeel, как вариант, использовать пример CreateBitmapRgn из ботвы.