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
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
Jak zwykle :-) dziękuję {brawo} --__________________________________
Pozdrawiam...
piechnat
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.