Framework brl.basic
Import brl.system

SuperStrict

Extern "win32"
   Function api_GetShortPathName:Int(lpszLongPath:Byte Ptr, lpszShortPath:Byte Ptr,cchBuffer:Int Ptr) = "GetShortPathNameA@12"
End Extern


Function getshortpathname:String(path:String)
   Local longpath:Byte Ptr = MemAlloc(path.length+1)
   Local shortpath:Byte Ptr = MemAlloc(path.length+1)
   Local size:Int = path.length+1
   Local rValue:String = ""
   
   For Local i:Int = 0 To path.length-1
      longpath[i] = path[i]
   Next
   longpath[path.length] = 0
   
   size = api_GetShortPathName(longpath,shortpath,Varptr size)
   
   If size Then rValue = String.FromBytes(shortpath,size)
   
   Return rValue
End Function

Local lfn:String = RequestFile("blopp!")
Print "lfn -> "+lfn
Print "8.3 -> "+getshortpathname(lfn)