Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

как получить список всех накопителей   Найти похожие ветки 

← →
mifi   (2002-10-08 19:30) [0]

Подскажите какой функцыей получить список
всех накопителей (HDD FDD CD )

---

← →
AL2002 ©   (2002-10-08 19:54) [1]

GetLogicalDrives
GetLogicalDriveStrings
GetDriveType

А почему в Потрепаться такой крутой вопрос задаёшь?

---

← →
Rouse_ ©   (2002-10-08 19:58) [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;

for Drive := "A" to "Z" do
begin
case GetDriveType(PChar(Drive+":\")) of
DRIVE_REMOVABLE:CheckListBox1.Items.Add(Drive+": "+VolumeID(Drive));//

---

← →
AL2002 ©   (2002-10-08 20:20) [3]

>Rouse_ © (08.10.02 19:58)
Кодировочка глючит. :)

---

← →
Rouse_ ©   (2002-10-08 23:45) [4]

> AL2002 © (08.10.02 20:20)

Знаю, никак не разберусь в чем дело :(

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c