shell32.dll и иконки

[Baaandit]

Как извлечь иконки из библиотеки shell32.dll и загрузить их в imagelist?

[russian-stalker]

var
h:hwnd;
bmp:tbitmap;
....
....
h:=loadlibrary('shell32.dll');
bmp.LoadFromResourceID(h,130);

дальше думаю сами разберетесь

[Baaandit]

Да не разобрался.Как в imagelist вставить imagelist1.add(bmp) или как?

[Neeter]

Да не разобрался.Как в imagelist вставить imagelist1.add(bmp) или как?

imagelist1.add(bmp, nil);

[Baaandit]

procedure TForm2.FormActivate(Sender: TObject);
var
h:hwnd;
bmp:tbitmap;
begin
h:=loadlibrary('shell32.dll');
bmp.LoadFromResourceID(h,130);
imagelist2.add(bmp, nil);
end;

Код не работает у меня-ошибка вызывается?bmp.LoadFromResourceID(h ,130);-на этой строке

[Neeter]

Перед присваиванием надо создавать битмап.

procedure TForm2.FormActivate(Sender: TObject);
var
 h:hwnd;
 bmp:tbitmap;
begin
 h:=loadlibrary('shell32.dll');
 bmp := TBitmap.Create;
 try
  bmp.LoadFromResourceID(h,130);
  imagelist2.add(bmp, nil);
 finally
  bmp.Free;
  FreeLibrary(h);
 end;
end;

Может быть что-то неправильно, без делфи сижу.

[Baaandit]

Спасибо работает.Правда в imagelist добавляется только сининький квадратик) и что здесь- bmp.LoadFromResourceID(h,130) означает 130?

[Neeter]

и что здесь- bmp.LoadFromResourceID(h,130) означает 130?

Идентификатор ресурса, в вашем случае иконки.

[Baaandit]

procedure TForm2.FormActivate(Sender: TObject);
var
h:hwnd;
bmp:tbitmap;
begin
h:=loadlibrary('shell32.dll');
bmp := TBitmap.Create;
try
bmp.LoadFromResourceID(h,130);
imagelist2.add(bmp, nil);
finally
bmp.Free;
FreeLibrary(h);
end;
end;

Как я понял в этом коде в imagelist загружается какая-то иконка ,непонятно какая правда из библиотеки.А как сделать так чтоб вся библиотека добавлялась в Imagelist?

[russian-stalker]

130-это я давал случайное число. надо ресторатором вскрывать и смотреть