Получение имени и иконки съемного драйва.. Опции

[Unconnected]

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

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;

[IUnknown]

У меня оттуда и работает пример

и

при запуске проги я записываю в множество drives буквы флешек, воткнутых в данный момент, и при срабатывании события подключения новой - ищу, какая буква ей присвоилась

- это взаимоисключающие утверждения. Вся прелесть WM_DEVICECHANGE + DBT_DEVICEARRIVAL - в том, что тебе не надо искать, какая буква добавилась, тебе об этом сообщают одним из параметров, достаточно набор бит перевести в букву... Ну, хочешь так - делай так... Мне-то что...

С getdname проблем не видно. Ну, разве что (все равно ты не используешь предпоследний параметр, название ФС) сделать так:

function getdname(D : string) : string;
var
  VolumeName : array [0 .. MAX_PATH-1] of Char;
  VolumeSerialNo : DWord;
  MaxComponentLength, FileSystemFlags : LongWord;
begin
  result := '';
  if GetVolumeInformation(PChar(D), VolumeName, MAX_PATH,
        @VolumeSerialNo, MaxComponentLength, FileSystemFlags, nil, 0) then
    result := VolumeName;
end;