DriveComboBox para Lazarus
 

Hola a todos.

Quisiera saber si existe para Lazarus algún componente similar al DriveComboBox de Delphi, o de que manera puedo simularlo.

Desde ya, muchas gracias a todos.

Hola.
Desconozco si existe algo así. Pero tiene sentido que no se incluya nativamente, ya que el concepto de unidad de disco (A, B, C, D, etc.) no existe en otros sistemas operativos como LINUX, y Lazarus (que funciona bajo Linux, entre otros S.O.) está pensado para ser multiplataforma en la medida de lo posible.

Saludos !

DriveComboBox
 

Gracias por responder.

Dispositivos montados:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Str: string;
 Index, Pos: Integer;
begin
 ListBox1.Items.LoadFromFile('/etc/mtab');
 Index := 0;
 while Index < ListBox1.Count do
  begin
   Str := ListBox1.Items[Index];
   if Copy(Str, 1, 5) <> '/dev/' then
    ListBox1.Items.Delete(Index)
   else
    begin
     Pos := System.Pos(' ', Str);
     repeat Inc(Pos);
     until Str[Pos] = ' ';
     ListBox1.Items[Index] := Copy(Str, 1, Pos);
     Inc(Index);
    end;
  end;
end;

Dispositivos según sistema de archivos:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
 Str: string;
 Index, Pos: Integer;
begin
 ListBox1.Items.LoadFromFile('/etc/fstab');
 Index := 0;
 while Index < ListBox1.Count do
  begin
   Str := ListBox1.Items[Index];
   if (Str <> '') and (Str[1] = '#') then
    if (Index < (ListBox1.Count - 1)) and (Copy(ListBox1.Items[Index + 1], 1, 5) = 'UUID=') then
     begin
      Str := Copy(Str, 3, 255) + Copy(ListBox1.Items[Index + 1], 42, 255);
      ListBox1.Items.Delete(Index + 1);
     end
    else
     Str := '';
   if (Str = '') or (Str[1] <> '/') then
    ListBox1.Items.Delete(Index)
   else
    begin
     repeat Pos := System.Pos('  ', Str);
      if Pos <> 0 then
       Delete(Str, Pos, 1);
     until Pos = 0;
     Pos := System.Pos(' ', Str); // just the physical device and the mount point.
     repeat Inc(Pos);
     until Str[Pos] = ' ';
     ListBox1.Items[Index] := Copy(Str, 1, Pos);
     Inc(Index);
    end;
  end;
end;

Saludos

Agradecimientos
 

Muchisimas gracias!!! yo mismo lo pruebo.