Listing HardDrives and Volumes Associated (not Using WMI)

Nice, that's the solution of other border of the problem (corresponding drives and volumes),
which I was thinking in create another question.
But my problem reside in justly list and correspond the physical HD with it's volumes...

That's a good one...
Thank you anyway.

I don't quite follow.  The above should be completely what you need.

A physical hard drive will have one or more volumes.  With one hard drive, it is typically the 'C' drive. All the above info will work.

If a physical hard drive is partitioned into two partitions (volumes) it will be say, a 'C' and a 'D' drive. (the letters are really arbitrary, they could be any letters).  In this case, the above info will also work just fine.

In what way will the following NOT do the job?
for Drive := 'A' to 'Z' do
  begin
  iDrive := ord(Drive) - ord('A') + 1;    //maps 'A' to 1, 'B' to 2 etc...
  DiskInfo[Drive] := DiskSize(iDrive);
  end;

Maybe you want the volume label;
then you should use this :

function GetVolumeLabel(Drive: Char): Str11;
{ function returns volume label of a disk }
var
  SR: TSearchRec;
  DriveLetter: Char;
  SearchString: String[7];
  P: Byte;
begin
  SearchString := Drive + ':\*.*';

  { find vol label }
  if FindFirst(SearchString, faVolumeID, SR) = 0 then begin
    P := Pos('.', SR.Name);
    if P > 0 then begin                      { if it has a dot... }
      Result := '           ';               { pad spaces between name }
      Move(SR.Name[1], Result[1], P - 1);    { and extension }
      Move(SR.Name[P + 1], Result[9], 3);
    end
    else begin
      Result := SR.Name;                     { otherwise, pad to end }
      PadVolumeLabel(Result);

    end;
  end
  else
    Result := '';
end;

Following links should help

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/filei/fs/volume_management_functions.asp)
http://msdn.microsoft.com/library/en-us/fileio/fs/findfirstvolume.asp)
http://msdn.microsoft.com/library/en-us/fileio/fs/findnextvolume.asp))
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/getvolumeinformation.asp)

Usage Sample: Enumerating Volumes and Mount Points
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/enumerating_mount_points.asp

this C++ code list all drives and prints their type(cdrom ,removable , fixed...)
I compiled in Borland 5.02 but I think should be compiled in visual c++ 6.0 too.
this code works great ;)

#include <windows.h>
#include <iostream.h>
 
long int pow(int i)
{
	if(i)
	{
		int ret = 1;
		for(int j=1;j<=i;j++)
			ret*=2;
		return ret;
	}
	else
		return 1;
}
 
int main()
{
long int LDs = GetLogicalDrives();
	char letter[2], drive_letter[4];
	BYTE index=0;
	for(unsigned int i=0;i<25;i++)
		if((LDs & pow(i)) != 0)
		{
			letter[0] = (char)(65 + i);
			letter[1] = '\0';
			strcpy(drive_letter,letter);
			strcat(drive_letter,":\\");
			switch(GetDriveType(drive_letter))
         {
         case 2:
         cout<<drive_letter<<"\t"<<"Removable"<<endl;
         break;
         case 3:
         cout<<drive_letter<<"\t"<<"Fixed Drive"<<endl;
         break;
         case 4:
         cout<<drive_letter<<"\t"<<"Remote"<<endl;
         break;
         case 5:
         cout<<drive_letter<<"\t"<<"CD-Rom"<<endl;
         break;
         case 6:
         cout<<drive_letter<<"\t"<<"Ram disk"<<endl;
         break;
         default:
         cout<<drive_letter<<"\t"<<"Unrecognized"<<endl;
         }
		}
   system("pause");
}

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Hmm, that iterates through 26 drive letters just like my code above. With the only difference being that it calls GetDriveType instead of GetSize.

@ALL:
Oh, my goodness... Seems my question wasn't clear.

Let's take as imaginary machine.
CPU intel Pentium 4
HardDrive Sansung MP0804H
  Has drive C:\
HardDrive Seagate ST3230623A
 Has drive E:\
 Has drive F:\
<and a lot of other stuff>


I want a path to get that information:
 Sansung MP0804
    C:\ - Space total: 17.3Gb Space Free: 2.15Gb
 Seagate ST3230623A
    E:\ - <same info as above>

My trouble is relating the physical hardsdrives with it's correspondents volumes (and logical drives). I'm  completely clueless about it.

@ciuly:
The approach on:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20722391.html

Seems very promising... Hmmm

I think my original post has all the info to do exactly that.  Here's a simplified version:

for Drive := 'A' to 'Z' do
  begin
  iDrive := ord(Drive) - ord('A') + 1;  
  if DiskSize(iDrive) > 0 then
    writeln(format('Disk %s Space Total: %d bytes;  Space Free: %d bytes',
        [Drive,DiskSize(iDrive),DiskFree(iDrive)]);
  end;

Using the other API calls you can also get other drive info like it's name, serial number, etc.

The above writes to standard output; if you want to write to say a memo box, change the line to
    S := format('Disk %s Space Total: %d bytes;  Space Free: %d bytes',
        [Drive,DiskSize(iDrive),DiskFree(iDrive)]);
and then write the S to the memo box.

and this also writes the full number of bytes. I'll leave it to you to convert that into nice round KB or MB or GB or TB.  

@ciuly

Why no WMI? I don't want to rely on a type library that doesn't
exist natively on Win9x.  If I use WMI, I'll have to create a ins-
taller - and I wanted to be zero-installation.


@JosephGlosz
Yeah, but what I'm searching is just the relation of physical HD
with the volumes.
Like I showed in my last message:
HardDrive Sansung MP0804H
 Has drive C:\

What I want is THAT relationship between the HD and logical
drives.

@ciuly
Since Mitec SysInfo component suite  is discontinued (was sold to another company), it's not a option anymore...

why not? you can still use that old version :) I do :P

@ciuly and @Joseph

 Initially, I was focused to understand the code of getting the hd serial and use it to get other information about the storage devices. So I'll use ciuly links and Joseph approach (although using an API to get an bitmap with the logical drives in use instead of iterating through them).
 
But I changed plans.

 Actually, I'll use the MITec Suite because it provides MUCH more information than merely drive, physical devices and volumes - and is ABSURDLY easier to use.

 But I'll reward both ciuly and Joseph as follows:
Ciuly --> 400 points
Joseph --> 100 points

 Do you two agree with that?
 
(I'll read the replies only on Monday, since my home computer is screwed :-(     )

 @all

 Thank you all very much for your time and dedication to this question.
 
Best regards
Delphian

Where it reads
> So i'll use ciuly links and Joseph appoach

read

>So I'd use ciuly' links and Joseph's approach


Sorry about that

I should get more points. You can't even pronounce 'Ciuly' ...  You must detract points just for that alone  :)

lol :)
joseph, try it like this: chiulee ;)

Thank you two very much and see ya on EE.

Sweet!  So just having a girl say your name makes it look like she is blowing you a kiss. Awesome. I love it. *I* should have thought of that!  I retract my previous comment, I say add extra points for you from now on!  

I never thought of it like that :lol: I have to write that down :D