[Delphi] Stacje dysków

0

Jak sprawdzić ile jest dysków na kompie (A: , B: , C: itd...)
i jakiemu odpowiada jaki typ tzn. że np. A - dyskietka C - twardy F - cd ?--__________________________________
Pozdrawiam...
piechnat

0

var
Drive : char;
begin
for drive:='A' to 'Z' do
case GetDriveType(PChar(Drive+':\')) of
DRIVE_UNKNOWN: Memo1.Lines.Add(Drive+' nieznany');
DRIVE_NO_ROOT_DIR: Memo1.Lines.Add(Drive+' nie ma');
DRIVE_REMOVABLE: Memo1.Lines.Add(Drive+' dyskietka lub tp');
DRIVE_FIXED: Memo1.Lines.Add(Drive+' twardy a przynajmniej niewyjmowalny');
DRIVE_REMOTE: Memo1.Lines.Add(Drive+' sieciowy');
DRIVE_CDROM: Memo1.Lines.Add(Drive+' CD-ROM');
DRIVE_RAMDISK: Memo1.Lines.Add(Drive+' Ram-disk');
end;

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

Jak zwykle :-) dziękuję {brawo} --__________________________________
Pozdrawiam...
piechnat

1 użytkowników online, w tym zalogowanych: 0, gości: 1