Ir al contenido


Foto

[TRUCO DELPHI] Encontrar el primer CD-DRIVE Disponible.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 03:57

[TRUCO DELPHI] Encontrar el primer CD-DRIVE Disponible.


delphi
  1. function FindFirstCDROMDrive: Char;
  2. Var
  3. DriveMap: DWORD;
  4. Mask : DWORD;
  5. i : Integer;
  6. Root : String;
  7. begin
  8. Result := #0;
  9. Root := 'A:\';
  10. DriveMap := GetLogicalDrives;
  11. Mask := 1;
  12. For i := 1 To 32 Do
  13. begin
  14. If (Mask And DriveMap) <> 0 Then
  15. If GetDriveType(PChar(Root)) = DRIVE_CDROM Then
  16. begin
  17. Result := Root[1];
  18. Break;
  19. end;
  20. Mask := Mask Shl 1;
  21. Inc(Root[1]);
  22. end;
  23. end;

Saludos!


  • 1