[DiCaPrIo]

try it it might delete

[UninstallDelete]
Type: FilesAndOrDirs; Name: {app}
Type: Files; Name: {code:GetIconDir}
#define IconName ReadIni(SourcePath + "\Settings.ini", "Executable", "ExeName", "")

[Code]
function GetIconDir(Value:String):string;
begin
Result:=ExpandConstant('{commonstartmenu}\{#IconNa me}.lnk')
end;