TImageList probleme

[Doreen Schröder]

Ich möchte gerne den Inhalt einer TImageList in eine Datei speichern. das Funktioniert auch mit dem Auslesen wunderbar, solange ich nicht dieses nutzte

procedure TForm1.FormCreate(Sender: TObject);
var
SHFileInfo: TSHFileInfo;
SysIcons: THandle;
begin


try
SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_SYSICONINDEX OR SHGFI_LARGEICON);
finally
DestroyIcon(SHFileInfo.hIcon);
end;
JvImageList1.Handle := SysIcons;
end;

das muss ich aber nutzten, damit die Icons in voller Auflösung auch angezgit werden!

hat jemand eine Idee wie ich mein Problem beseitigen kann?

[Oswald Mair]

Hallo Doreen
*
function SetGlyphbitmap ( ImageList:TImageList;nBitNummer:integer ):TBitmap;
var bitmap : TBitmap;
begin
bitmap := TBitmap.create;
ImageList.GetBitmap(nBitNummer,bitmap);
result := bitmap;
// Hier eventuell
// bitmap.savetofile('c:\bild.bmp');
end;
*
*
Gruß Oswal