Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

HDDs   Найти похожие ветки 

 
Anar ©   (2002-10-17 22:40) [0]

Как узнать сколько на компе жёстких дисков, а также их имена (метки)?
И у CD-ROM"a тоже не помешало бы...


 
TTCustomDelphiMaster ©   (2002-10-17 22:46) [1]

F1 - GetDriveType


 
Rouse_ ©   (2002-10-17 22:52) [2]

Вот блин, шестой раз на такой вопрос отвечаю, и именно в такой постановке

function TForm1.VolumeID(DriveChar: Char): string;
var
OldErrorMode: Integer;
NotUsed, VolFlags: DWORD;
Buf: array [0..MAX_PATH] of Char;
begin
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
Buf[0] := #$00;
if GetVolumeInformation(PChar(DriveChar + ":\"), Buf, DWORD(sizeof(Buf)),
nil, NotUsed, VolFlags, nil, 0) then
SetString(Result, Buf, StrLen(Buf))
else Result := "";
if DriveChar < "a" then
Result := AnsiUpperCaseFileName(Result)
else
Result := AnsiLowerCaseFileName(Result);
Result := Format("[%s]",[Result]);
finally
SetErrorMode(OldErrorMode);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Drive:Char;
begin
for Drive := "A" to "Z" do
begin
case GetDriveType(PChar(Drive+":\")) of
DRIVE_REMOVABLE:CheckListBox1.Items.Add(Drive+": "+VolumeID(Drive));//



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-92487
kav
2002-10-18 09:08
2002.10.28
Вызов досовской команды


1-92421
Дмитрий К.К.
2002-10-17 07:57
2002.10.28
Поменять цвет любого оконного контрола


1-92611
Cker
2002-10-12 23:58
2002.10.28
А как-бы мне строку, введенную в edit преобразовать в unicode???


14-92671
Lola
2002-10-06 12:26
2002.10.28
Письмо-счастье


3-92363
Beginer1
2002-10-02 19:52
2002.10.28
надо проверить её на наличее двух одинаковых символов