1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function GetWMIstring(wmiHost, wmiClass, wmiProperty: string): string;
var
  Locator: ISWbemLocator;
  Services: ISWbemServices;
  SObject: ISWbemObject;
  ObjSet: ISWbemObjectSet;
  SProp: ISWbemProperty;
  Enum: IEnumVariant;
  Value: Cardinal;
  TempObj: OleVariant;

begin
  try
    Locator := CoSWbemLocator.Create;
    Services := Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '', '', 0, nil);
    ObjSet := Services.ExecQuery('SELECT * FROM ' + wmiClass, 'WQL',
      wbemFlagReturnImmediately and wbemFlagForwardOnly, nil);
    Enum := (ObjSet._NewEnum) as IEnumVariant;
    while (Enum.Next(1, TempObj, Value) = S_OK) do
      begin
        SObject := IUnknown(tempObj) as ISWBemObject;
        SProp := SObject.Properties_.Item(wmiProperty, 0);
        if VarIsNull(SProp.Get_Value) then
          result := ''
        else
          begin
            result := SProp.Get_Value;
          end;
      end;
  except
    on exception do
      result := '';
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function GetWinDir: string;
{returns Windows folder, or null string on failure}
var Path: array[0..MAX_PATH - 1] of char;
begin
  Result := '';
  if (0 = GetWindowsDirectory(Path, MAX_PATH)) then exit;
  Result := Trim(Path);
end;

function GetDiskName(const ADrive: Char): String;
var
  unused: Cardinal; //oder Integer (Delphi 3)
  buffer: array[0..19] of Char;
begin
  Result:='';
  if (GetDriveType(PChar(Format('%S:\',[ADrive]) ) ) >1) and
     (GetVolumeInformation(PChar(ADrive+':\'),
     @buffer[0], SizeOf(buffer), nil, unused, unused, nil, 0)) then
    Result := buffer
  else
    RaiseLastOSError;// Bis D5 RaiseLastWin32Error;
end;

procedure TForm1.Button10Click(Sender: TObject);
var Windrive : String;  d : Char;
begin
Memo1.Lines.Add(Getwindir);
if ((Length(GetWinDir) > 1) and (GetWinDir[2] = ':'))
    then WinDrive := AnsiUpperCase(Copy(GetWinDir, 1, 2))
  else WinDrive := 'C:';
Memo1.Lines.Add(Windrive);
d:= Windrive[1];
Memo1.Lines.Add(GetDiskname(d));
end;