Fast way to retrieve windows drive letter.

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	Guamtmsou G. Betreff: Fast way to retrieve windows drive letter.	Do, Mai 19, 2011 0:37 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] ?Win32 Extern "win32" Function GetEnvironmentVariable:Int(lpName$z, lpBuffer:Byte Ptr, nSize:Int) = "GetEnvironmentVariableA@12" End Extern Function GetEnv$(envVar$) Local buff@[64] Local rtn:Int = GetEnvironmentVariable(envVar$, buff@, buff.length) If rtn > buff.length rtn = GetEnvironmentVariable(envVar$, buff@, buff.length) EndIf Return String.FromBytes(buff@, rtn) End Function ? 'EXAMPLE: thefont=LoadImageFont(GetEnv_("systemroot")+"\fonts\tahoma.TTF",20)

Guamtmsou G.

Betreff: Fast way to retrieve windows drive letter.

Do, Mai 19, 2011 0:37
Antworten mit Zitat

Code: [AUSKLAPPEN]

?Win32
Extern "win32"
Function GetEnvironmentVariable:Int(lpName$z, lpBuffer:Byte Ptr, nSize:Int) = "GetEnvironmentVariableA@12"
End Extern
Function GetEnv$(envVar$)
   Local buff@[64]

   Local rtn:Int = GetEnvironmentVariable(envVar$, buff@, buff.length)
   If rtn > buff.length
      rtn = GetEnvironmentVariable(envVar$, buff@, buff.length)
   EndIf

   Return String.FromBytes(buff@, rtn)
End Function
?

'EXAMPLE:
thefont=LoadImageFont(GetEnv_("systemroot")+"\fonts\tahoma.TTF",20)