
10-03-2014, 12:21
|
|
Registered User
|
|
Join Date: Jun 2009
Location: Spain
Posts: 153
Thanks: 116
Thanked 72 Times in 44 Posts
|
|
i understand you altef  thwe problem is i think i have all in unninstall correctly, but dont work.. this is my uninnstall:
Quote:
///////////////////////////////////////////////////////////UNNINSTALL STAGE
procedure InitializeUninstallProgressForm;
var
UnsFileStatusLabel: Tlabel;
begin
FileCopy(ExpandConstant('{app}\UninstData.ini'),Ex pandConstant('{tmp}\Setup.ini'),False);
FileCopy(ExpandConstant('{app}\b2p.dll'), ExpandConstant('{tmp}\b2p.dll'), True);
FileCopy(ExpandConstant('{app}\botva2.dll'), ExpandConstant('{tmp}\botva2.dll'), True);
FileCopy(ExpandConstant('{app}\CallbackCtrl'), ExpandConstant('{tmp}\CallbackCtrl'), True);
FileCopy(ExpandConstant('{app}\Uninstall.png'), ExpandConstant('{tmp}\Uninstall.png'), True);
with UninstallProgressForm do begin
BorderStyle := bsNone;
ClientWidth := ScaleX(600);
ClientHeight := ScaleY(190);
Position:= poScreenCenter;
AutoScroll := False;
UninstallProgressForm.InnerNotebook.SetBounds(0,0, 600,190);
UninstallProgressForm.OuterNotebook.SetBounds(0,0, 600,190);
Bevel.Hide;
StatusLabel.Hide;
MainPanel.Hide;
WizardSmallBitmapImage.Hide;
ProgressBar.SetBounds(10,170,580,15);
UnsFileStatusLabel:= TLabel.Create(UninstallProgressForm.InstallingPage );
UnsFileStatusLabel.Parent:= UninstallProgressForm.InstallingPage;
UnsFileStatusLabel.SetBounds(40,10,500,15);
UnsFileStatusLabel.AutoSize:= False;
UnsFileStatusLabel.WordWrap:= True;
UnsFileStatusLabel.Transparent:= True;
UnsFileStatusLabel.Font.Name := 'Verdana';
UnsFileStatusLabel.Font.Style:= [fsBold];
UnsFileStatusLabel.Font.Size:= 8;
UnsFileStatusLabel.Font.Color:= clGray;
UnsFileStatusLabel.Caption:= ExpandConstant('{cm:UnsFileStatusLabel}');
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
img:=ImgLoad(UninstallProgressForm.InstallingPage. Handle,ExpandConstant('{tmp}\Uninstall.png'),0,0,6 00,190,True,True);
ImgApplyChanges(UninstallProgressForm.InstallingPa ge.Handle);
DelTree(ExpandConstant('{app}'), True, True, True);
RegDeleteKeyIncludingSubkeys(HKLM, ExpandConstant('Software\{code:GamePublisher}\{cod e:GameName}'));
end;
end;
|
add this is the setup part
Quote:
///////////////////////////////////////////////////////////UNINSTALL SOURCE FILES
Source: dllfiles\botva2.dll; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
Source: dllfiles\CallbackCtrl.dll; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
Source: Setup\Uninstall.png; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
Source: Setup\Setup.ico; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
////////////////////////////////////////////////////////////////////////////////////////////////
|
Last edited by Logrim; 10-03-2014 at 12:25.
|