Hallo,
Als Erstes möchte ich mich mal bedanken. Bin schon seit einiger Zeit regelmäßiger Besucher der
DP und habe viel Hilfe gefunden. Um Anderen zu helfen, reichen meine Delphi-Kenntnisse leider noch nicht aus.
Leider habe ich hier ein Problem, das ich nicht selbst lösen kann :
Es handelt sich um eine Funktion, die die Icon eines Programmes zu einer ImageList hinzufügen soll. Die Sache ist etwas umständlich programmiert; ich hatte anfangs eine kompaktere Version, bin aber nach und nach mehr ins Detail gegangen, um den Fehler zu finden.
Die Idee ist Folgende:
1) Eine ImageList (ImgLst, width und height = 32) im MainForm.
2) Die Funktion AddFileIconToImgList wird aufgerufen (Parameter ist der Programmname) und gibt als Ergebnis den ImageIndex de Icon in der ImageList zurück.
Das Problem ist, dass das beim ersten Aufruf gut funktioniert, dann aber nicht mehr.
z.B.:
Delphi-Quellcode:
AddFileIconToImgList('c:\windows\expolorer.exe’);
AddFileIconToImgList('c:\windows\expolorer.exe’);
Beim ersten Aufruf wird 0 als Index zurückgegeben, beim zweiten Aufruf 1. In der ImageList befinden sich auch zwei Bitmaps, das erste ist die Explorericon, das zweite Bitmap ist allerdings ‚leer’ (einfach nur weiss).
Delphi-Quellcode:
function TFrm_Main.AddFileIconToImgList(FName : string):integer;
var
FileInfo : TSHFileInfo;
tmpImgLst : TImageList;
tmpBitmap : TBitmap;
begin
tmpBitmap := TBitmap.Create;
tmpBitmap.Height := 32;
tmpBitmap.Width := 32;
tmpImgLst := TImageList.Create(self);
tmpImgLst.Width := 32;
tmpImgLst.Height := 32;
tmpImgLst.Handle := SHGetFileInfo(PChar(FName),0,FileInfo,sizeof(FileInfo),SHGFI_SYSICONINDEX or SHGFI_ICON);
tmpImgLst.GetBitmap(FileInfo.iIcon,tmpBitmap);
tmpImgLst.Free;
Result := ImgList.Add(tmpBitmap,nil);
tmpBitmap.Free;
end;
Hat jemand 'ne Idee, warum das nicht läuft ?
Danke für Eure Hilfe.
LM