hi all here is my piece of code.
i am wanting to add the diskfree function to it but the d6 personal
help files are not very help full on this matter to the fact it isn't
even in the help files(that i can find)
the piece of code gets my hdd's what i want to do is add the diskfree
function to it please
var
d:char;
dletter :string[4];
begin
for d:='A' to 'Z' do
begin
dletter:=d+':\';
case GetDriveType(PChar(d+':\'))of
Drive_Fixed:
Memo1.Lines.Add(dletter+' Bytes Free');
end;
end;
...
Brendon Toogood
E-Mail [EMAIL PROTECTED]
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
