Определяем имя тома определенного диска:
var nombre, unidad: String; NumeroSerie: LongWord; FSFlag, MaxLongitud: Cardinal; begin Unidad:= 'D:\'; // Имя диска SetLength(nombre, MAX_PATH); GetVolumeInformation(PChar(Unidad), PChar(nombre), MAX_PATH, @NumeroSerie, MaxLongitud, FSFlag, Nil, 0); showmessage(trim(nombre)); end;
Имя (обязательное)
E-Mail (обязательное)
Сайт
Подписаться на уведомления о новых комментариях
Обновить