Na razie nie robię programu, ale już w myślach mam pomysł na jeden i przydałyby się jakieś mini porady od was.
Tak na oko w uproszczeniu:
procedure WczytajIkone(sciezka: String);
begin
Form1.Image1.Picture.Icon.Handle:= ExtractIcon(Form1.Handle, PChar(sciezka), 0);
end;
i pod buttonem:
begin
WczytajIkone('D:\programy\JakisProgram\PrzykladowoOdtwarzaczFilmow.exe');
end;
I to powinno wyciągnąć ikonkę z dowolnego programu i wyświetlić ją na TImage. Z tego co pamiętam, zmieniając właściwości w TImage, skalowania (zmniejszenia/zwiększania wielkości) ikony nie zrobimy i stąd pytanie - jak naprościej i najlepiej zmniejszać ikonę lub ją zwiększać, standardowo ikony mają 32x32 pixele o ile pamiętam. Program zawsze przy starcie będzie wczytywał wiele ikon z wielu programów (nie będzie ikon zapisywał na dysku).
Także proszę o jakieś mini porady. Nie musicie wcale kodu wklejać, wystarczy nakierować mnie na coś, czy mam "zapisywać" na sekundę ikonkę i jakimś sposobem przekonwertować ją na JPG, czy na coś i bawić się, czy może nie trzeba takich rzeczy robić, wystarczy coś innego?
Niebawem będziecie jeść kolację więc życzę smacznego wszystkim.