|
TheProgrammingZone's front page. All the latest programming and game development news, as well as this week's feature game project! |
|
Game projects under development by members of the TheProgrammingZone Community. Show them your support, and check out their games! |
|
A forum to interact with your fellow programmers. |
|
TheProgrammingZone's products. Check out some of our in house products that we made. |
|
You want to contact the guy behind TheProgrammingZone? Here's where to do it! |
|
|
|
|
Get Windows Directory - page 1 |
pages:
prev | 1 | next
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim a As String * 256
GetWindowsDirectory a, 256
MsgBox Left(a, InStr(a, Chr(0)) - 1)
End
End Sub
pages:
prev | 1 | next |
|