Open Drive Volume using TFilestream

[topcat01]

I remember a few years back on a Delphi Tips website (can't remember which) - some example code that allowed you to open a disk volume using filestream - the volume would be treated a file.

Does anybody on the list have that code or name of the website? It was literally three/four lines of code. A long shot I know!

Thanks

 

[topcat01]

I have remembered the code mentioned above:

var
  TS : TFilestream;
begin
  TS := TFileStream.Create('\\.\PHYSICALDRIVE0', fmOpenRead or fmShareDenyNone);
  Memo2.Lines.Add('Size: '+inttostr(TS.Size));
  TS.Free;

The only problem with this code is that the size returns 4GB (i'm running on an 80GB) - TS.Size should return int64, can anynody explain this?

I am running on D6 Pro.

 

[whosrdaddy]

are you trying to get the disk size?

->

http://www.swissdelphicenter.ch/torry/showcode.php?id=654

btw: your function returns -1 on my laptop
so I don't know if this is a reliable way to do this


-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!