mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-12 07:41:43 +01:00
23 lines
418 B
ObjectPascal
23 lines
418 B
ObjectPascal
program showcds;
|
|
|
|
{$mode objfpc}
|
|
{$h+}
|
|
|
|
uses cdrom,sysutils;
|
|
|
|
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,' exception caught with message: ',E.Message);
|
|
end;
|
|
end.
|