Оглавление Free Pascal: ShowCDs - показать устройства CD


Текст программы с комментариями

program showcds;

{$mode objfpc}
{$h+}

uses cdrom,sysutils; 
        //чтобы программа компилировалась, нужно указать путь к модулю cdrom
        // текстовым поиском ищу файлы cdrom.* 
        // нахожу E:\FPC2.0.4\units\i386-win32\cdrom\cdrom.ppu опция:
        // -FuE:\FPC2.0.4\units\i386-win32\cdrom добавлена в fpc.cfg
        // после чего файл успешно компилируется

Var
  Drives : Array[1..10] of String;
  I,Count : Integer;

begin
  Try
    Count:=GetCDRomDevices(Drives); 
    Writeln('This PC has ',count,' CD-ROM drives');
    For I:=1 to count do
      Writeln('Drive ',i,' on device: ',Drives[i]);
  Except
    On E : exception do
      Writeln(E.ClassName,' Ошибка: ',E.Message);
  end;
end.


Запуск программы и результат

Примечание:
Шрифт и цвета окна cmd.exe (и вообще сеансов DOS) настраиваются: правый щелчок по заголовку | свойства
Rambler's Top100
Hosted by uCoz