Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Pontic © (2002-11-26 15:59:00)
Подскажите как прочитать метку компакт-диска для того чтобы в случае его отсутствия можно было бы выдать сообщение типа "вставьте диск ... в дисковод". Спасибо

Johnmen (2002-11-26 17:24:00) [1]
А почему бы не посмотреть на старую, как Паскаль,
FindFirst, FindNext с аттрибутом faVolumeID ?

mrcat (2002-11-26 16:53:00) [2]
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;

Pontic (2002-11-26 16:21:00) [3]
да это я читал, правда ничего не понял (((
к чему присваивать результат функции?? мона примерчик

mrcat (2002-11-26 16:19:00) [4]
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:18:00) [5]
.h или .hpp ??? как он называется и можно примерчик если нетрудно

mrcat (2002-11-26 16:16:00) [6]
какой файл?

Pontic (2002-11-26 16:14:00) [7]
А какой файл подключать???

Song (2002-11-26 16:00:00) [8]
GetVolumeInformation()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »