[sanya920]

Как можно програмно узнать название жесткого диска или флешкарты? Заранее спасибо

[AND_REY]

На HDD работает, на флешках не проверял.

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 SerialNum, MaxFNameLength, FileSysFlags: DWORD;
 VolName, FSName: Array [0..255] Of Char;
begin
 GetVolumeInformation('C:\', VolName, SizeOf(VolName), @SerialNum,
              MaxFNameLength, FileSysFlags, FSName, SizeOf(FSName));
 Label1.Caption:= VolName;
end;

[sanya920]

спасибо, работает(с флешками кстати тоже)

[OnzMill]

А имя физического диска слабо получить? ))))))

[AND_REY]

В смысле физического? Надпись маркером на CD или DVD?)))

[OnzMill]

Грубо говоря, есть физический диск (на котором данные сохранены) и то, что мы видим из под операционной системы (логический диск).
Физического, в смысле не диск С, диск Д, а именно попытаться получить паспорт, или хотя бы модель жесткого диска. Как и ставил задачу автор темы. )))
например WD5000BEVT-22ZAT0-WXNZ08L14294.

[einstein]

Сообщение от OnzMill

А имя физического диска слабо получить? ))))))

Легко.....

[OnzMill]

давай )))))))))) а мы посмотрим ))))