Custom Component for browsing files (base: TListBox)

[abcfantasy]

Hello,
I'm creating this custom component derived from TListBox used for file browsing. I use FindFirst and FindNext to get the list of directories and files and add them to the list.

The question is, how do I display the contents of My Computer? That is, displaying the logical drives, floppy drives, cd drives, etc...

I don't think FindFirst and FindNext could be of use here.

Any help?
Thanks in advance
Andrew

ABC -

http://www.abcfantasy.tk

 

[bianchin]

in the windows unit we have the:
GetLogicalDrives
GetDriveType
GetDiskFreeSpace
GetLogicalDrivesStrings

may help you, but I haven´t use these yet...

hope it helps

"Suffering, anguish, desperation and hard work are the materials a good programmer is made of." (buho (A))
"and against short remaining time..." (me)

 

[svanels]

Use the OpenDialog component found on the Dialogs Tab. It will invoke the File Open dialog used by windows

Regards

Steven

 

[abcfantasy]

Thanks for your help.

I took part of the TDriveComboBox source and changed it a little to suit my component.

For those who may be interested, this is the procedure:

procedure TFileBrowser.BuildDriveList;
var
  DriveNum: Integer;
  DriveChar: Char;
  DriveBits: set of 0..25;

begin
  Clear;
  Integer(DriveBits) := GetLogicalDrives;
  for DriveNum := 0 to 25 do
  begin
    if not (DriveNum in DriveBits) then Continue;
    DriveChar := Char(DriveNum + Ord('a'));
    Items.Append( DriveChar + ':\' );
  end;
end;

ABC -

http://www.abcfantasy.tk

 

[derickd1]

You should check around

http://www.planet-source-code.com,

I remember writting out one that gets these drives names and thier propeirtys from code I editted on there.

Hope it helps!

 

[bianchin]

if not (DriveNum in DriveBits) then

???


he is verifing some bits from a cardinal?

is it other way to use then 'in' operator?

"Suffering, anguish, desperation and hard work are the materials a good programmer is made of." (buho (A))
"and against short remaining time..." (me)

 

[buho]

// The physical format of the set 0..25 is actually a
// dword/integer/cardinal.
DriveBits: set of 0..25;

...

// The integer returned by GetLogicalDrives is typecasted
// into a set (actually, the integer returned is a
// bitmap).
Integer(DriveBits) := GetLogicalDrives;

A set is a collection of bits, and an integer is a collection of bits too. Any bitwise operation can be done with sets and viceversa (using the due typecasts).

buho (A).

 

[bianchin]

I never had think about it...

I could see it by my self!

"Suffering, anguish, desperation and hard work are the materials a good programmer is made of." (buho (A))
"and against short remaining time..." (me)