Ver Mensaje Individual
  #7  
Antiguo 11-10-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por danielmj Ver Mensaje
¿existe alguna forma de que la aplicación reconozca solo los discos duros con sus particiones?
Si.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Dev: DWORD;
  Uni: string;
  i  : Integer;
begin
  Dev:= GetLogicalDrives;
  for i:= 1 to 32 do
    if Dev shr i and 1 = 1 then
    begin
      Uni:= Chr(Ord('A') + i) + ':';
      if GetDriveType(PChar(Uni)) = DRIVE_FIXED then
        ComboBox1.Items.Add(Uni);
   end;
  ComboBox1.ItemIndex := 0;
end;

Con respecto al problema que mencionas, ignoro que puede pasarte. Como te comenté me funciona correctamente...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 11-10-2013 a las 04:07:24.
Responder Con Cita