• Loading...
Sign in to follow this  
Karb10

Inno Setup Progress Bar

Recommended Posts

                                             html5-progress-bar.jpg

 

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;

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

  • loading...