Как прочитать метку диска

← →
Pontic (2002-11-26 15:59) [0]

Подскажите как прочитать метку компакт-диска для того чтобы в случае его отсутствия можно было бы выдать сообщение типа "вставьте диск ... в дисковод". Спасибо

← →
Song © (2002-11-26 16:00) [1]

GetVolumeInformation()

← →
Pontic (2002-11-26 16:14) [2]

А какой файл подключать???

← →
mrcat © (2002-11-26 16:16) [3]

какой файл?

← →
Pontic (2002-11-26 16:18) [4]

.h или .hpp ??? как он называется и можно примерчик если нетрудно

← →
mrcat © (2002-11-26 16:19) [5]

The GetVolumeInformation function returns information about a file system and volume whose root directory is specified.

BOOL GetVolumeInformation(

LPCTSTR lpRootPathName, // address of root directory of the file system
LPTSTR lpVolumeNameBuffer, // address of name of the volume
DWORD nVolumeNameSize, // length of lpVolumeNameBuffer
LPDWORD lpVolumeSerialNumber, // address of volume serial number
LPDWORD lpMaximumComponentLength, // address of system"s maximum filename length
LPDWORD lpFileSystemFlags, // address of file system flags
LPTSTR lpFileSystemNameBuffer, // address of name of file system
DWORD nFileSystemNameSize // length of lpFileSystemNameBuffer
);

о каком файле речь?!

← →
Pontic (2002-11-26 16:21) [6]

да это я читал, правда ничего не понял (((
к чему присваивать результат функции?? мона примерчик

function 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;

А почему бы не посмотреть на старую, как Паскаль,
FindFirst, FindNext с аттрибутом faVolumeID ?

Как прочитать метку диска Найти похожие ветки