' Spezialpfad

#Include "win/shlobj.bi"

Function HoleWinPfad(spezialOrdnerID As Integer) As String
	Dim As ZString*MAX_PATH pfad
   SHGetFolderPath(0, spezialOrdnerID, 0, 0, pfad)
   HoleWinPfad = pfad
End Function

ScreenRes 640, 480, 4
Width 80, 30

Color 12
Print !"Wir w\132ren unter Vista/Win7/8.1 als UAC-enabled Prozess t\132tig..."
Print !"Ein in FB \129bersetztes MyFBApp-Vx.y-setup-x86.exe halt eben :-)"
Color 7
Print "Installationsordner: " + HoleWinPfad(CSIDL_PROGRAM_FILES) + "\FooSoft\MeineFBApp"
Print !"Platziere die Startmen\129ikonen in"
Print HoleWinPfad(CSIDL_COMMON_STARTMENU) + "\FooSoft\MeineFBApp"
Print "Und eine Desktopikone: " + HoleWinPfad(CSIDL_COMMON_DESKTOPDIRECTORY) + "\Meine FB App.lnk"
Print !"Unsere \"Installation\" ist fertig! :-) [Fertig stellen]"
Print
Color 2
Print "Und jetzt als Benutzer ohne Administratorenrechte"
Color 7
Print "Dokument von MeineFBApp speichern unter " + HoleWinPfad(CSIDL_PERSONAL)
Print "Benutzereinstellungen unter " + HoleWinPfad(CSIDL_APPDATA) + "\MyFBApp.ini gespeichert"
Print "(Seit Vista aber auch " + HoleWinPfad(CSIDL_LOCAL_APPDATA) + !"\\MyFBApp.ini m\148glich)"
Print !"Soll My FB App k\129nftig automatisch starten (J/N)? J"
Print !"Autostartverkn\129pfung " + HoleWinPfad(CSIDL_STARTUP) + "\MyFBApp.lnk erstellt"
Sleep