INNO TROUBLESHOOT - Questions Here

[danswano]

Compile Error!
Duplicate identifier 'INITIALIZEWIZARD'

If i remove:

Procedure InitializeWizard;

i get:

Compile Error!
period ('.') expected.

[Razor12911]

it means there are two, initializewizards.
if you come across such, just copy all the content in the procedure or function to the one which comes first. for example:

procedure IntializeWizard;
begin
Result:=True;
end;

procedure InitializeWizard;
begin
DirTreeView:= TFolderTreeView.Create(WizardForm)
DirTreeView.SetBounds(0,100,417,110)
DirTreeView.OnChange:= @DirFolderChange
DirTreeView.Parent:= WizardForm.SelectDirPage
end;

to

procedure IntializeWizard;
begin
DirTreeView:= TFolderTreeView.Create(WizardForm)
DirTreeView.SetBounds(0,100,417,110)
DirTreeView.OnChange:= @DirFolderChange
DirTreeView.Parent:= WizardForm.SelectDirPage
Result:=True;
end;

[danswano]

the problem is that the second one is in an external iss file
and that file have it like this:

procedure InitializeWizard;
begin
OldWndProc := SetWindowLong(WizardForm.Handle, GWL_WNDPROC,
WrapWindowProc(@WndProc, 4));
end;

[Razor12911]

then don't just copy this

DirTreeView:= TFolderTreeView.Create(WizardForm) 
DirTreeView.SetBounds(0,100,417,110)
DirTreeView.OnChange:= @DirFolderChange
DirTreeView.Parent:= WizardForm.SelectDirPage

then it will be like that.

var
DirTreeView: TFolderTreeView;
procedure DirFolderChange(Sender: TObject);
Begin
WizardForm.DirEdit.Text:=AddBackslash(DirTreeView. Directory)
end;

procedure InitializeWizard;
begin
DirTreeView:= TFolderTreeView.Create(WizardForm)
DirTreeView.SetBounds(0,100,417,110)
DirTreeView.OnChange:= @DirFolderChange
DirTreeView.Parent:= WizardForm.SelectDirPage
OldWndProc := SetWindowLong(WizardForm.Handle, GWL_WNDPROC,
WrapWindowProc(@WndProc, 4));
end;

[danswano]

Ok got it to work but there is one problem, when i select other drive/folder the AppName gets removed, how can i keep the AppName after the selected path automatically?

[Razor12911]

are you using Inno Setup PreProcessor Functions?
the #define, #include, #ifdef?

[danswano]

Not sure, how to know?

[Razor12911]

hmm, then I don't think you are using that,

edit this line:
WizardForm.DirEdit.Text:=AddBackslash(DirTreeView. Directory)
to
WizardForm.DirEdit.Text:=AddBackslash(DirTreeView. Directory) + 'Dead Space 3'
or
WizardForm.DirEdit.Text:=AddBackslash(DirTreeView. Directory) + '{#AppName}' ; for those who use Inno Setup PreProcessor

[danswano]

#AppName didn't work for me and editing the folder name manually just sucks, is there any dynamic value i can put to use the original AppName?

[nicola16]

It is possible to integrate this code into setup yenner90,
to customize folder icons?



[Files]
Source: Include\Desktop.ico; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system


procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
if CurStep = ssPostInstall then
begin
SetIniString('.ShellClassInfo', 'IconResource',
ExpandConstant('{app}\MyProg.exe') + #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;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
DeleteFile(ExpandConstant('{app}\desktop.ini'));
end;

[Razor12911]

Originally Posted by danswano

#AppName didn't work for me and editing the folder name manually just sucks, is there any dynamic value i can put to use the original AppName?

don't use the one for #appname.

[Razor12911]

Originally Posted by nicola16

It is possible to integrate this code into setup yenner90,
to customize folder icons?



[Files]
Source: Include\Desktop.ico; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system


[code]
procedure CurStepChanged(CurStep: TSetupStep);
var
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;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
DeleteFile(ExpandConstant('{app}\desktop.ini'));
end;32.dll stdcall';

it is possible.

[nicola16]

code is perfect icon folder personal


correct code is
[Files]
Source: Include\Desktop.ico; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system


procedure CurStepChanged(CurStep: TSetupStep);
var
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;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
DeleteFile(ExpandConstant('{app}\desktop.ini'));
end;

[nicola16]

lol duplicate
http://oi48.tinypic.com/2gwc1l4.jpg

help?

[Razor12911]

read the previous 10 posts to understand and fix bug.