Cita:
Empezado por danielmj
¿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
