Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Cómo saber si una unidad de disco está preparada - Delphi
Lenguaje de programación Borland Delphi


Es fácil usando esta función:


     function DiskInDrive(Drive: Char): Boolean;
     var
       ErrorMode: word;
     begin
       { poner en mayúsculas }
       if Drive in ['a'..'z'] then Dec(Drive, $20);
       { comprobar si es una letra }
       if not (Drive in ['A'..'Z']) then
         raise EConvertError.Create('No es una letra de unidad válida.');
       ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
       try
         { drive 1 = a, 2 = b, 3 = c, etc. }
         if DiskSize(Ord(Drive) - $40) = -1 then
           Result := False
         else
           Result := True;
       finally
         SetErrorMode(ErrorMode);
       end;
     end;

Un ejemplo de cómo realizar la llamada a la función:

      If DiskInDrive('a') then
        ...




Publicado el: 2003-09-12

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A