|
How to add png image with botva?
|
on what botva version?
|
botva2 0.9.5.130
|
hmm, botva2 0.95 automatically extracts images. just include the image in files then load image with imgload function then set image name and extension, done.
|
Quote:
Code:
ita.WelcomeMessage1_1=Benvenuto |
POLISH
Code:
eng.WelcomeMessage1_1=Witamy |
Quote:
Code:
eng.WelcomeMessage1_1=Bienvenido |
Hello guys,
Is it possible to run the whole thing in compact view since the start to finish using the original ISDone ? |
Quote:
|
How can I define a custom icon to my aplication shorcut, 'cause the exe hasn't icon set.
|
applications shortcut on desktop or startmenu?
|
Quote:
|
[Icons]
Name: {commondesktop}\Batman Arkham City; Filename: {app}\bin32\BMAC.exe; IconFilename: {app}\icon.ico; |
Quote:
Code:
Name: {userdesktop}\AppName; Filename: {app}\Binaries\My.exe; IconFilename: {app}\myicon.ico or mydll or myexe; WorkingDir: {app}\Binaries |
1 Attachment(s)
ISDone v0.6 Final Fix/Support for Freearc 0.67
Creator: ProFrager |
I'm already using 0.67 with the old version of ISDone.
???? |
Well I don't know, ProFrager Updated ISDone for a reason which I can't clarify at the moment, but I've noticed is that ISDone.dll(446kb-453kb) is updated, maybe it can handle the archives without making errors or something.
|
1 Attachment(s)
Copy and Paste this
[CODE] Code:
var |
This is new code in the ISDone?
|
1 Attachment(s)
nope, It's just a feature. originally, it looks like this
|
Quote:
Quote:
Quote:
|
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; |
the problem is that the second one is in an external iss file
and that file have it like this: Quote:
|
then don't just copy this
Code:
DirTreeView:= TFolderTreeView.Create(WizardForm) 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; |
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?
|
are you using Inno Setup PreProcessor Functions?
the #define, #include, #ifdef? |
Not sure, how to know?
|
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 |
#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?
|
Personal folder ico
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; |
Quote:
|
Quote:
|
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; |
|
read the previous 10 posts to understand and fix bug.
|
perfect resolved the code ;)
|
Sorry error in code format my pc :(
|
Quote:
I don't want to manually edit the folder name with each project. :) |
use this one
WizardForm.DirEdit.Text:=AddBackslash(DirTreeView. Directory) + 'Dead Space 3' |
1 Attachment(s)
Inno Freearc Extract v4.0
Creator: Bulat Ziganshin Easily extracts freearc files on an inno setup script. -has disk change -progress doesn't overflow to (300%) |
| All times are GMT -7. The time now is 07:12. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com