ник: час
ещё вот чё нашёл, но синтаксис какой то не понятный......
Кто нибудь может перевести?
var
Drive: Char;
DriveLetter: String[4];
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
case GetDriveType(PChar(Drive + ':\')) of
DRIVE_REMOVABLE:
Memo1.Lines.Add(DriveLetter + ' Флеш');
DRIVE_FIXED:
Memo1.Lines.Add(DriveLetter + ' Локальный');
DRIVE_REMOTE:
Memo1.Lines.Add(DriveLetter + ' Сетевой');
DRIVE_CDROM:
Memo1.Lines.Add(DriveLetter + ' CD-ROM ');
end;
end;
end;
|