| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
найти буквы дисководов [D6, WinXP]
Imhotep © (2006-08-19 18:33:00)уважаемые мастера, подскажите пожалуйста код или ссылку на код, который бы определял буквы всех дисководов, в том числе FDD, определенные в системе. Я рылся в исходниках по системе, но ничего не нашел.
Imhotep (2006-08-20 10:16:00) [1]Спасибо , Мастера, вы мне очень помогли!
Пусик (2006-08-19 19:00:00) [2]
function GetCollectionDrives: String;
var
D: Integer;
i: Integer;
c: Char;
begin
Result := '';
D := GetLogicalDrives;
i := 1;
for c := 'A' to 'Z' do
begin
if (D and i) = i then Result := Result + c;
i := i shl 1;
end;
end;
DprYg (2006-08-19 18:46:00) [3]GetLogicalDriveStrings + F1
| |
