|
Ok guys I tested the code to give a folder icon to the installer.
The code and this attached to that of yenner90
section put a personal icon file in the folder include
call Desktop.ico
;********************name icon file********************************;
[Files]
Source: Include\Desktop.ico; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
;************************************************* *************;
code section find CurStepChanged try and replace it with this add the red section
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep);
var n,i:integer;
ErrorCode: Integer;
begin
if CurStep = ssPostInstall then
begin
SetIniString('.ShellClassInfo', 'IconResource',
ExpandConstant('{app}\Desktop.ico') + #13#10 'IconIndex=0', ExpandConstant('{app}\desktop.ini'));
Exec('attrib', ' +r ' + '"' + ExpandConstant('{app}') + '"', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
Exec('attrib', ' +h +s ' + '"' + ExpandConstant('{app}\desktop.ini') + '"', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Find CurUninstallStepChanged try and add first end; highlighted in red
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Final code Uninstall.dat try and add the red section
ExpandConstant('{tmp}\Uninstall.dat'))), True, True, True);
DeleteFile(ExpandConstant('{app}\desktop.ini'));
end;
end;
end;
end;
end;
|