![Старый](images/statusicon/post_old.gif)
24.07.2006, 18:09
|
![Аватар для Ferra](image.php?s=d4e91fdcaeebeba4e285bfb944028436&u=226&dateline=1149161209) |
Местный
|
|
Регистрация: 12.03.2006
Адрес: Минск
Сообщения: 527
Репутация: 1336
|
|
Цитата:
function DriveExists(Drive:Byte):Boolean;
var
Drives: set of 0..25;
begin
integer(Drives):=GetLogicalDrives;
Result:=Drive in Drives
end;
function 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;
|
Далее пишешь:
Цитата:
for i:=0 to 25 do
if DriveExists(i) then
...
CheckDriveType(i);
...
|
__________________
Нет повести печальнее на свете, чем повесть о заклиневшем Resete.
|