Archive: It wont show install options!


It wont show install options!
i cant get it to show the install options!


Name "Chem|caL.'s Winamp 3 Icon Pack Setup"
Caption "Chem|caL.'s Winamp 3 Icon Pack Setup" ; what it says in the message bar @ the top.
ComponentText "ghnnhg" "dsfsdf" "dsxfgdfg"
InstallColors "D6D6D6" "848484"
OutFile "E:\Documents and Settings\McBriar\Desktop\WA3 IconPak setup.exe"
DirText "Choose a directory to install in to:"
InstallDirRegKey HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\Winamp3 UninstallString
CRCCheck Off
AutoCloseWindow false
ShowInstDetails show
SetCompress force
SetDatablockOptimize on


; ==============Function instructions:================================
Function .OnInit
Push $0
Push $1
Push $2
ReadRegStr $0 HKLM \
"Software\Microsoft\Windows\CurrentVersion\Uninstall\Winamp3" \
"UninstallString"
StrCmp $0 "" fin

StrCpy $1 $0 1 0 ; get firstchar
StrCmp $1 '"' "" getparent
; if first char is ", let's remove "'s first.
StrCpy $0 $0 "" 1
StrCpy $1 0
rqloop:
StrCpy $2 $0 1 $1
StrCmp $2 '"' rqdone
StrCmp $2 "" rqdone
IntOp $1 $1 + 1
Goto rqloop
rqdone:
StrCpy $0 $0 $1
getparent:
; the uninstall string goes to an EXE, let's get the directory.
StrCpy $1 -1
gploop:
StrCpy $2 $0 1 $1
StrCmp $2 "" gpexit
StrCmp $2 "\" gpexit
IntOp $1 $1 - 1
Goto gploop
gpexit:
StrCpy $0 $0 $1

StrCmp $0 "" fin
IfFileExists $0\studio.exe fin
MessageBox MB_OK|MB_ICONSTOP "Winamp isn't installed! How dare You!"
Abort
StrCpy $0 ""
fin:
Pop $2
Pop $1
Exch $0
FunctionEnd

; ============End Function instructions.==============================


SetOverwrite on


; ================= Sections: =================



Section "Icons"
File "E:\windows\notepad.exe"
SectionEnd



; =============== End Sections. ===============



; ==============Function instructions:================================
Function .onUserAbort

Pop $0
MessageBox MB_OK "Winamp installed at: $0"

MessageBox MB_YESNO|MB_ICONQUESTION \
"Abort Installation?" \
IDYES NoCancelAbort
Abort
NoCancelAbort:
FunctionEnd
; ============End Function instructions.==============================


; eof


sorry for the double post:(

Choosing between one and one section not really makes sense ;). Add a second section and the components page will be displayed.

~ Florian



____ __________
|____|,,,,,,,,,/ :)

____ __________
|____|,,:),,,,,/


i outa have a knife put through ma head im that blind!