Inno Setup Progress Bar

[Karb10]

                                             

 

Yükləmə zamanı progress bar-da qalan vaxtı göstərmək üçün kodları  və DLL faylı proyektə əlavə edin

 

Lazım olan dll fayl - http://www.share.az/xqgijm28kovi/IsProgressBar.rar.html

[Setup]
AppName=ProgressBar Demo
AppVerName=ProgressBar Demo
DefaultDirName={pf}\ProgressBar Demo

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

[Files]
Source: compiler:Dll Pack\IsProgressBar.dll; DestDir: {tmp}; Flags: dontcopy

[Icons]
Name: {group}\Uninstall; Filename: {app}\unins000.exe

[Code]
procedure InitProgressBar(hwnd:thandle; l,t,w,h,speed:integer; clFore, clBack: integer); external 'InitProgressBar@files:IsProgressBar.dll stdcall';
procedure DeinitProgressBar; external 'DeinitProgressBar@files:IsProgressBar.dll stdcall';
procedure InitProgressBar2(hwnd:thandle; l,t,w,h,speed, anim:integer; clFore, clBack: integer); external 'InitProgressBar2@files:IsProgressBar.dll stdcall';
procedure DeinitProgressBar2; external 'DeinitProgressBar2@files:IsProgressBar.dll stdcall';
procedure InitCircularProgressBar(hwnd:thandle; l,t,w,h,speed: integer;bgCol, actCol, inActCol, TransCol:TColor); external 'InitCircularProgressBar@files:IsProgressBar.dll stdcall';
procedure DeinitCircularProgressBar; external 'DeinitCircularProgressBar@files:IsProgressBar.dll stdcall';

var
 inst: TWizardPage;
 TopText: TLabel;

procedure ProgressPage;
begin
 inst:=CreateCustomPage(wpSelectDir, 'Установка...', 'Пожалуйста, подождите, пока ProgressBar Demo установится на Ваш '+ #13 +'компьютер.');
 TopText:=TLabel.Create(inst);
 TopText.Left:=0;
 TopText.Top:=0;
 TopText.Width:=417;
 TopText.Height:=40;
 TopText.AutoSize:=False;
 TopText.WordWrap:=True;
 TopText.Caption:='C:\Program files\My company\megaFile.exe';
 TopText.Parent:=inst.Surface;
end;

procedure InitializeWizard();
begin
 ProgressPage;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
 If CurPageID=inst.ID then begin
   Wizardform.backbutton.hide;
   Wizardform.nextbutton.hide;
   //InitProgressBar(WizardForm.Handle, 40, 114, 418, 21, clgray, clgray, cllime, cllime);  //на месте стандартного
   InitProgressBar(WizardForm.Handle, 40, 114, 418, 21, 100, clgreen, clwhite);
   InitProgressBar2(WizardForm.Handle, 40, 154, 418, 21, 10, 0, clred, clwhite);
   InitCircularProgressBar(WizardForm.Handle, 200, 194, 70, 65, 100, clNone, clLime, clSilver, clNavy);
  end;
end;

procedure DeinitializeSetup();
begin
  DeinitProgressBar;
  DeinitProgressBar2;
  DeinitCircularProgressBar;
end;

[ACCOUNTANT]

Paylaşıma görə sağolun.

[Elvin Məlikov]

Təşəkkür paylaşım üçün.

[Karb10]

Halal xoşunuz olsun