Hi Brendon,
See if this works.
var
d :char;
dletter :string;
drive: String;
Counter : Integer; // ADDED
begin
Counter := 1; // ADDED
drive:=ExtractFileDrive(Application.ExeName)+'\';
for d := 'A' to 'Z' do
begin
dletter := d + ':\';
case GetDriveType(PChar(d+':\'))of
Drive_Fixed:
Memo1.Lines.Add(dletter + IntToStr(DiskFree(Counter)) + '
Bytes Free'); // MODIFIED
end;
Inc(Counter); // ADDED
end;
regards,
NIRAV KAKU
On 8 Sep 01, at 17:35, [EMAIL PROTECTED] wrote:
> here is the full code of the procedure
>
> var
> d :char;
> dletter :string;
> begin
> drive:=ExtractFileDrive(Application.ExeName)+'\';
> for d:='A' to 'Z' do
> begin
> dletter:=d+':\';
> case GetDriveType(PChar(d+':\'))of
> Drive_Fixed:
> Memo1.Lines.Add(dletter+DiskFree(dletter)' Bytes Free');
> end;
> end;
> end;
>
> any help on how to make it work
> incompatible type byte and strings
>
> ...
> 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/
>
- From the Shreemat Bhägwat Gïta -
'Sarcasm is the lowest form of wit.'
---------------------------------------------------------------------------
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/
