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

Вниз

Программно узнать под какой   Найти похожие ветки 

 
explorer ©   (2003-11-13 10:12) [0]

Мастера!
Подскажите, как реализовать сабж?


 
pasha_golub ©   (2003-11-13 10:21) [1]

Перебрать варианты и проверять тип носителя GetDriveType


 
pasha_golub ©   (2003-11-13 10:23) [2]


for c:="A" to "Z" do
if GetDriveType(c+":\") = DRIVE_CDROM then
ShowMesage("Мать моя женщина, под буквой "+C+" сидюк");


 
explorer ©   (2003-11-13 10:37) [3]

pasha_golub ©
Спасибки! :)


 
Fibonachi   (2003-11-13 16:02) [4]

Точнее так:
var c:Char;
begin
for c:="A" to "Z" do
if GetDriveType(PChar(c+":\")) = DRIVE_CDROM then
ShowMessage(C+" is a CD-ROM");
end;


 
pasha_golub ©   (2003-11-13 16:34) [5]

2Fibonachi
Очень актуальное уточнение! :-)))))


 
nix   (2003-11-13 22:08) [6]

Можно и так:
var w:dword; Root:string;
var
w:dword; Root:string;
i:integer;
begin
w:=GetLogicalDrives;
Root := "#:\";
for i := 0 to 25 do begin
Root[1] := Char(Ord("A")+i);
if (W and (1 shl i))>0 then
if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
Form1.Caption:=Root;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
4-93738
Mohamed
2003-11-23 12:54
2004.01.29
Resource


1-93528
RustamBek
2004-01-19 10:36
2004.01.29
Межстрочный интервал в TRichEdit


8-93585
XenonXX
2003-09-21 04:47
2004.01.29
Режим экранного видио для плеера


1-93437
GAlexis
2004-01-16 14:13
2004.01.29
Округление чисел


1-93422
GrayFace
2004-01-16 19:00
2004.01.29
Как проверить, нажата ли средняя кнопка мыши?