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

Вниз

number o drives   Найти похожие ветки 

← →
AleXqwq ©   (2004-06-25 14:05) [0]

kak mne procitati kakie diski esti na moem compe tipa: A,C,D hto znaet pomogite

---

← →
begin...end ©   (2004-06-25 14:15) [1]

function GetDrives: String;
var
 Ch: Char;
begin
 for Ch := "A" to "Z" do
 if GetDriveType(PChar(Ch + ":\")) <> 0 then
   Result := Result + Ch;
end;

---

← →
CHES ©   (2004-06-25 14:45) [2]

2 begin...end ©   (25.06.04 14:15) [1]

не совсем так


function GetDrives: String;
var
Ch: Char;
Val : integer;
begin
for Ch := "A" to "Z" do
 begin
   Val:=GetDriveType(PChar(Ch + ":\"));
   if (Val <> 0)and (Val <> 1) then
   Result := Result + Ch;
 end;
end;


---

← →
Игорь Шевченко ©   (2004-06-25 20:33) [3]

GetLogicalDriveStrings

---

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

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

Наверх

Память: 0.47 MB
Время: 0.023 c