Hallo habe ein problem mit icons, die
ich aus verschiedenen exen auslese
die icons sind machmal fehlerhaft, also
es werden andere icons dargestellt als die exe
eigentlich ta.
seht euch am besten mal den screenshot an.
die icons werden mit
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| function IconFromFile(const Filename: String; IconNr: Word): HICON; var buffer: array[0..2*MAX_PATH]of Char; begin StrPCopy(buffer, Filename); Result := ExtractAssociatedIcon(HInstance, buffer, IconNr); end; |
und
Delphi-Quelltext
1: 2: 3:
| aIcon := TICon.Create; aIcon.Handle := IconFromFile(ExtractAnwendung(Array3[j]),j); Form1.ImageList1.AddIcon(aIcon); |
ausgelesen.
verwechslungen der icons kommen nicht in frage.
gruß