| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

number o drives [D6, WinXP]

AleXqwq ©   (2004-06-25 14:05:00) 

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

---

Игорь Шевченко   (2004-06-25 20:33:00) [1]

GetLogicalDriveStrings

---

CHES   (2004-06-25 14:45:00) [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;


---

begin...end   (2004-06-25 14:15:00) [3]

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

---

Наверх