скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как определить, какие диски находятся на компьютере




- Чем отличается джентльмен от джентльмена программиста?
- Джентльмен всегда носит с собой презерватив, на всякий случай, а джентльмен программист - системную дискету.


function DriveExists(Drive:Byte):Boolean;
var
  Drives: set of 0..25;
begin
  integer(Drives):=GetLogicalDrives;
  Result:=Drive in Drives
end;

function CheckDriveType(Drive: Byte): string;
var
  DriveLetter: Char;
  DriveType: UInt;
begin
  DriveLetter:=Chr(Drive + $41);
  DriveType:=GetDriveType(PChar(DriveLetter + ':\'));
  case DriveType of
    0:               Result:='?';
    1:               Result:='Path does not exists';
    DRIVE_REMOVABLE: Result:='Removable';
    DRIVE_FIXED:     Result:='Fixed';
    DRIVE_REMOTE:    Result:='Remote';
    DRIVE_CDROM:     Result:='CD_ROM';
    DRIVE_RAMDISK:   Result:='RAMDISK'
    else
      Result:='Unknown'
  end
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook