paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added more drive detection mechanisms

Browse Source 
git-svn-id: trunk@9601 -
This commit is contained in:
michael 2007-12-30 22:25:42 +00:00
parent 8793de3166
commit 323cd9e0fe
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/extra/cdrom/lincd.pp
View File

@ -1079,7 +1079,7 @@ end;
Const
NrDevices = 14;
NrDevices = 16;
Devices : Array[1..NrDevices] of string = (
'/dev/cdrom',
'/dev/cdroms/cdrom?',
@ -1094,6 +1094,8 @@ Const
'/dev/sjcd',
'/dev/cm206cd',
'/dev/gscd',
'/dev/scd?',
'/dev/sr?',
'/dev/optcd');
Function DetectCD : String;