Thread: Inno Setup Script Snippet
View Single Post
  #6  
Old 26-01-2014, 21:09
sentinelks sentinelks is offline
Banned
  
Join Date: May 2013
Location: hjklò
Posts: 281
Thanks: 74
Thanked 320 Times in 157 Posts
sentinelks is on a distinguished road
mmmm... isdone problem,InitializeUninstallProgressForm problem unicode ec..
no show timer to WizardForm.Caption
ex:
Code:
function PCB(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  if OveralPct<=1000 then WizardForm.ProgressGauge.Position := OveralPct;
  WizardForm.Caption := 'Progress:'+'  '+IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'0%'+'    '+'Time:'+' '+TimeStr2;
  Result := ISDoneCancel;
end;
Last edited by sentinelks; 31-01-2014 at 23:41.
Reply With Quote
The Following 2 Users Say Thank You to sentinelks For This Useful Post:
Simorq (06-04-2015), y_thelastknight (27-01-2014)