Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
ВнизКак полчить спсиок всех дисков? Найти похожие ветки
← →
qwen (2002-06-08 00:03) [0]Сабж. Перебор всех буковок и приверка на существование такого диска, имхо, не самый удачный вариант...
← →
Shrek (2002-06-08 00:10) [1]А почему не используеш компонент DriveComboBox?
← →
qwen (2002-06-08 00:11) [2]не... мне программно... уже и не нада, уже нашел...
если кому интересно - GetLogicalDriveStrings
← →
allrussia (2002-06-08 04:19) [3]Добавляет только харды в комбо:
procedure GetDrives(ComboBox: TComboBox);
var
I: integer;
LogDrives: set of 0..25;
DrvLetter: Char;
begin
Integer(LogDrives):=GetLogicalDrives;
for I := 0 to 25 do
if (I in LogDrives) then begin
DrvLetter:=Chr(I + 65);
if GetDriveType(PChar(DrvLetter+":\"))=DRIVE_FIXED then
ComboBox.Items.Add(DrvLetter);
end;
ComboBox.ItemIndex:=0;
end;
← →
cyborg (2002-06-08 09:43) [4]http://delphibase.endimus.com/?action=viewfunc&topic=harddisk&index=6
← →
Song (2002-06-08 17:04) [5]Цикл от A до Z с GetDriveType()
← →
Quest (2002-06-08 18:09) [6]>> allrussia©
хочу поправить, не "харды", а логические диски.
← →
Poirot (2002-06-08 20:45) [7]
> Quest
Извиняйте, но вы просто чувака не поняли... харды - в смысле нот ремувабле (фиксид) диски... т.е. даже не диски а тома....
Вам бы советом Song воспользоваться....
← →
cypher (2002-06-10 23:08) [8]все-таки цикл перебора a..z - имхо не умное занятие,
GetLogicalDrive и GetLogicalDriveStrings - API-функции для этого
← →
Dimka Maslov (2002-06-11 09:36) [9]
procedure GetLogicalDriveList(const List: TStrings);
var
Size, Pos: Cardinal;
Buffer: array[0..127] of AnsiChar;
P: PChar;
begin
List.BeginUpdate;
try
List.Clear;
Size:=GetLogicalDriveStrings(SizeOf(Buffer), Buffer);
Pos:=0;
while Pos<Size do begin
P:=@Buffer[Pos];
List.Add(P);
while Buffer[Pos]<>#0 do Inc(Pos);
Inc(Pos);
end;
finally
List.EndUpdate;
end;
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c