January 1, 2005

WinTask - GetWindowsDirectory

'
' GetWindowsDirectory
'
' Return Windows Directory (like c:\WINNT)
'
' Author: Joe Strazzere
'

mywindir$=" "
a=External("kernel32","GetWindowsDirectoryA",mywindir$,145)
msgbox(mywindir$,,"GetWindowsDirectory")