Форум: "Система";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];
ВнизПрограммно узнать под какой Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c