IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Получение имени и иконки съемного драйва..
Unconnected
сообщение 30.06.2011 2:41
Сообщение #1


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


..и установка последней в качестве иконки своей программе (есть буква флешки или другого съемного носителя). Имя так получаю:

function getdname(d:string):string; //d-буква диска формата F:\
var
  VolumeName,FileSystemName : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo : DWord;
  MaxComponentLength,FileSystemFlags : longword;
begin
  result:='';
  if GetVolumeInformation(PChar(D),VolumeName,MAX_PATH,@VolumeSerialNo,
                      MaxComponentLength,FileSystemFlags,FileSystemName,MAX_PATH) then result:=VolumeName;
end;


, но этот код меня смущает, прототип функции GetVolumeInformation другой в плане типов входных параметров, там LPSTR всякие..
А проверяю, подключился ли новый флеш,так:

function getnewdrive:string;
var i:char;
begin
  result:='';
  for i:='A' to 'Z' do
    if Getdrivetype(pchar(i+':\'))=DRIVE_REMOVABLE then begin 
      if not(i in drives) then begin
        result:=i+':\';
        break;
      end;
    end;
end;


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 29.07.2025 1:42
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"