Как определить метку диска (дискеты...)

← →
Alien (2003-12-24 05:37) [0]

Как определить метку диска (дискеты...)
Нужно программно считать метку тома А:\, С:\

← →
tesseract (2003-12-24 11:29) [1]

GetVlolumeInformation - смотри описание в Windows SDK

← →
Rouse_ © (2003-12-24 11:34) [2]

function TForm1.VolumeID(DriveChar: Char): string; var OldErrorMode: Integer; NotUsed, VolFlags: DWORD; Buf: array [0..MAX_PATH] of Char; begin OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); try Buf[0] := #$00; if GetVolumeInformation(PChar(DriveChar + ":\"), Buf, DWORD(sizeof(Buf)), nil, NotUsed, VolFlags, nil, 0) then SetString(Result, Buf, StrLen(Buf)) else Result := ""; if DriveChar < "a" then Result := AnsiUpperCaseFileName(Result) else Result := AnsiLowerCaseFileName(Result); Result := Format("[%s]",[Result]); finally SetErrorMode(OldErrorMode); end; end;

Желаю успехов

← →
Alien (2003-12-25 08:56) [3]

Ну пасиб, братаны....

Как определить метку диска (дискеты...) Найти похожие ветки