Blackbox Inno Setup Script

[-NORO-]

Originally Posted by buntionly4u

I have made many changes in that script that you can see..

Can u help me out?
Since I am not from IT background so don't know much about programming. In this script I am not able to link the 'no start menu folder checkbox' with the 'start group selection'. if checkbox is checked then no start menu folder and disabled start group selection and if not then start menu folder.

Pl have a look at the code:

function CheckError:boolean;
begin
if ISDoneError = True then
Result := False
else
Result := True;
end;

function CreateGI:boolean;
begin
if CheckError = True then
begin
if NoIconsCheck.IsChecked then
Result:=True
else
Result:=False;
end;
end;

procedure NoIconsCheckOnClick(Sender: TObject);
begin
if NoIconsCheck.IsChecked=True then begin
WizardForm.GroupEdit.Enabled:= false;
WizardForm.GroupBrowseButton.Enabled:= false;
ButtonSetEnabled(GroupBtn, false);
end else begin
WizardForm.GroupEdit.Enabled:= true;
WizardForm.GroupBrowseButton.Enabled:= true;
ButtonSetEnabled(GroupBtn, true);
end;
WizardForm.GroupEdit.Color:= clblack;
end;

Hello
Can you tell me, from where you got it ? , am curious because there is my name in watermark and i shared it only to few people.
Btw your functions to analyze hard disk and give informations arent working when you choose another drive like D ,F , etc.