размер свободного места на диске

[detalik]

необхоходимо определить тип носителя(съемный,фиксированный,cd-rom), полный объем, свободно, занято в %. Вывести в таблицу. Спасибо

[Mad_Cat]

язык то какой а?
[delphi]

//Как определить, какие диски находятся на компьютере?
function TForm1.CheckDriveType(Drive: Byte): string; 
var 
DriveLetter: Char; 
DriveType: UInt; 
begin 
DriveLetter := Chr( Drive + $41 ); 
DriveType := GetDriveType( PChar( DriveLetter + ':\' ) ); 
case DriveType of 
0 : Result := '?'; 
1 : Result := 'Path does not exists'; 
DRIVE_REMOVABLE : Result := 'Removable'; 
DRIVE_FIXED : Result := 'Fixed'; 
DRIVE_REMOTE : Result := 'Remote'; 
DRIVE_CDROM : Result := 'CD_ROM'; 
DRIVE_RAMDISK : Result := 'RAMDISK' 
else 
Result := 'Unknown' 
end; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
i: 0..25; 
begin 
for i := 0 to 25 do 
if CheckDriveType( i ) <> 'Path does not exists' then 
Memo1.Lines.Add( Format( '%s - %s', [chr( i+$41 ), CheckDriveType( i )] ) ); 
end;

[detalik]

На строчку

DriveLetter := Chr( Drive + $41 );

ругается пишет undeclareted identeficator drive

[detalik]

Помогите, очень срочно нужно

[Mad_Cat]

C - Fixed
D - Fixed
E - CD_ROM
G - CD_ROM
H - CD_ROM

все работает!!! мб руки?

[Serge_Bliznykov]

берите код целиком, не надо бездумно выдёргивать код из контекста!

function TForm1.CheckDriveType(Drive: Byte): string;