le=Len(SystemProperty$("TEMPDIR"))-14

dir$=LSet(SystemProperty$("TEMPDIR"),le)

dir=dir+"Startmenü\Programme\Autostart\lol"

CreateDir dir

;.lib "shell32.dll"
;SHGetSpecialFolderPath%(hwndOwner$,lpszPath*,nFolder%,fCreate%):"SHGetSpecialFolderPathA"

Const CSIDL_DESKTOP = 0
Const CSIDL_INTERNET = 1
Const CSIDL_PROGRAMS = 2
Const CSIDL_CONTROLS = 3
Const CSIDL_PRINTERS = 4
Const CSIDL_PERSONAL = 5
Const CSIDL_FAVORITES = 6
Const CSIDL_STARTUP = 7
Const CSIDL_RECENT = 8
Const CSIDL_SENDTO = 9
Const CSIDL_BITBUCKET = 16
Const CSIDL_STARTMENU = 17
Const CSIDL_NETWORK = 18
Const CSIDL_NETHOOD = 19
Const CSIDL_FONTS = 20
Const CSIDL_TEMPLATES = 21
Const CSIDL_COMMON_STARTMENU = 22
Const CSIDL_COMMON_PROGRAMS = 23
Const CSIDL_COMMON_STARTUP = 24
Const CSIDL_COMMON_DESKTOPDIRECTORY = 25
Const CSIDL_APPDATA = 26
Const CSIDL_PRINTHOOD = 27
Const CSIDL_LOCAL_APPDATA = 28
Const CSIDL_ALTSTARTUP = 29
Const CSIDL_COMMON_ALTSTARTUP = 30
Const CSIDL_COMMON_FAVORITES = 31
Const CSIDL_INTERNET_CACHE = 32
Const CSIDL_COOKIES = 33
Const CSIDL_HISTORY = 34
Const CSIDL_COMMON_APPDATA = 35
Const CSIDL_WINDOWS = 36
Const CSIDL_SYSTEM = 37
Const CSIDL_PROGRAM_FILES = 38
Const CSIDL_MYPICTURES = 39
Const CSIDL_PROFILE = 40
Const CSIDL_SYSTEMX86 = 41
Const CSIDL_PROGRAM_FILESX86 = 42
Const CSIDL_PROGRAM_FILES_COMMON = 43
Const CSIDL_PROGRAM_FILES_COMMONX86 = 44
Const CSIDL_COMMON_TEMPLATES = 45
Const CSIDL_COMMON_DOCUMENTS = 46
Const CSIDL_COMMON_ADMINTOOLS = 47
Const CSIDL_ADMINTOOLS = 48
Const CSIDL_CONNECTIONS = 49

Graphics 800,200,0,2
folderbank=CreateBank(1400)
SHGetSpecialFolderPath(0, folderbank, CSIDL_STARTUP , 0)
Print getbankstring$(folderbank, 1400)
WaitKey

Function GetBankString$(bank, size)
 For i=0 To size-1
 wert$=wert$ + PeekByte(bank, i)
 Next
 While Len(wert$)<>0
  If Int(Left$(wert$, 1))>2 Then
   antwort$=antwort$ + Chr$(Int(Left$(wert$, 2)))
   wert$=Mid$(wert$, 3)
  Else
   antwort$=antwort$ + Chr$(Int(Left$(wert$, 3)))
   wert$=Mid$(wert$, 4)
  End If
 Wend
 FreeBank bank
 Return Trim$(antwort$)
End Function