Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

найти буквы дисководов   Найти похожие ветки 

 
Imhotep   (2006-08-19 18:33) [0]

уважаемые мастера, подскажите пожалуйста код или ссылку на код, который бы определял буквы всех дисководов, в том числе FDD, определенные в системе. Я рылся в исходниках по системе, но ничего не нашел.


 
DprYg ©   (2006-08-19 18:46) [1]

GetLogicalDriveStrings + F1


 
Пусик ©   (2006-08-19 19: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;


 
Imhotep   (2006-08-20 10:16) [3]

Спасибо , Мастера, вы мне очень помогли!



Страницы: 1 вся ветка

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
15-1158050254
Mutnauq
2006-09-12 12:37
2006.10.01
Работа с QuantumGrid


2-1158288695
Timur
2006-09-15 06:51
2006.10.01
Проверка на корректность документа Word.


4-1148418602
GanibalLector
2006-05-24 01:10
2006.10.01
KeyboardLayout


2-1157960470
SFproG
2006-09-11 11:41
2006.10.01
Управление сайтом на Delphi


15-1157999150
Furyz
2006-09-11 22:25
2006.10.01
КПК , нужен кпк , что посоветуете