quarta-feira, 23 de setembro de 2009

Descobrindo a letra da unidade de cd-rom

Function TForm1.CDROMDrive: Char;
Var
drivemap, mask: DWORD;
i: Integer;
root: String;
Begin
Result := #0;
root := 'A:';
drivemap := GetLogicalDrives;
mask := 1;
For i:= 1 To 32 Do
Begin
If (mask and drivemap) <> 0 Then
If GetDriveType( PChar(root) ) = DRIVE_CDROM Then
Begin
Result := root[1];
Break;
End;
mask := mask shl 1;
Inc( root[1] );
End;
End;

Nenhum comentário:

Postar um comentário