Скачать: CL | DM;

Список дисков   Найти похожие ветки 

← →
HellWaiter ©   (2004-05-19 07:48) [0]

Доброе время суток, уважаемые мастера!!!
подскажите, как создать список дисков винчестера(ов)?
в этот список не должны входить дисководы, СD и т.п.

---

← →
grom2   (2004-05-19 08:26) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
INN:TSHFileInfo;
begin
for i:=65 to 90 do if GetDriveType(PChar(chr(i)+":\"))=DRIVE_FIXED then begin
 SHGetFileInfo(PChar(chr(i)+":\"), 0, INN, SizeOf(TShFileInfo),SHGFI_DISPLAYNAME);
 ComboBox1.Items.Add(Trim(INN.szDisplayName));
 end;
 ComboBox1.ItemIndex:=0;
end;

---

← →
grom2   (2004-05-19 08:36) [2]

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=65 to 90 do if GetDriveType(PChar(chr(i)+":\"))=DRIVE_FIXED then ComboBox1.Items.Add(chr(i));
end;

---

← →
grom2   (2004-05-19 08:36) [3]

Удалено модератором
Примечание: Дубль

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c