как определить системный диск?

[Simbad]

Привет всем! Как определить системный диск с помощью VBasic?

[excorsist]

С помощью winAPI функции.

[psycho-coder]

Пример из API Guide

Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(sName As String) As String
    GetEnvironmentVar = String(255, 0)
    GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)
    If InStr(1, GetEnvironmentVar, Chr$(0)) > 0 Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr$(0)) - 1)
    GetEnvironmentVar = sName + ": " + GetEnvironmentVar
End Function
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Me.AutoRedraw = True
    Me.Print GetEnvironmentVar("USERNAME")
    Me.Print GetEnvironmentVar("USERDOMAIN")
    Me.Print GetEnvironmentVar("PROCESSOR_IDENTIFIER")
    Me.Print GetEnvironmentVar("NUMBER_OF_PROCESSORS")
    Me.Print GetEnvironmentVar("OS")
End Sub

Диск лежит в SYSTEMDRIVE