// du ska lägga till denna rad under uses
ShellApi;


//Koden som du ska lägga in under knappen
var
N: Byte;
Drv: string ;
Drives: set of 0..25;
begin
Integer(Drives):=GetLogicalDrives;
for N:=0 to 25 do
if N in Drives then
begin
Drv:=Char(N+Ord('A'))+':';
if(GetDriveType(PChar(Drv))=5) then
Label1.Caption:='Drive '+Drv+' is the CD-Rom Drive';