home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 October / PCA1097A.ISO / menue / brett / 97100637.txt < prev    next >
Text File  |  1997-08-28  |  762b  |  33 lines
  1. 0
  2. Name das Windows-Verzeichnisses ermitteln
  3. ThE WIZARD
  4. PROGRAMMIEREN
  5.  
  6.  
  7. '***********************************************
  8. 'Deklaration der API-Funktion
  9. '***********************************************
  10.  
  11. Declare Function GetWindowsDirectory Lib_
  12. "kernel32" Alias "GetWindowsDirectoryA"_
  13. (ByVal Puffer As String, ByVal PufferLΣnge As_
  14. Long) As Long
  15.  
  16.  
  17. '***********************************************
  18. 'Name des Windows-Verzeichnisses ermitteln
  19. '***********************************************
  20.  
  21. Sub WinVerzErmitteln()
  22.     Dim FnWert As Long
  23.     Dim Puffer As String
  24.     Dim WinVerz As String
  25.     
  26.     Puffer = String$(255, 0)
  27.     FnWert = GetWindowsDirectory(Puffer, 255)
  28.     WinVerz = Left$(Puffer, FnWert)
  29.     MsgBox WinVerz
  30. End Sub
  31.  
  32.  
  33.