| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как определить метку диска (дискеты...) [D5, Win95/98, WinME, NT4, Win2k, WinXP]

Alien ©   (2003-12-24 05:37:00) 

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

---

Alien   (2003-12-25 08:56:00) [1]

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

---

Rouse_   (2003-12-24 11:34:00) [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;

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

---

tesseract   (2003-12-24 11:29:00) [3]

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

---

Наверх