ярлык на форму, программно.

[Rec0il]

Всем привет.
Надо сделать некий лаунчер.. на форме несколько компонентов image. На каждый надо установить свой ярлык, путём opendialog.
Путь до ярлыка я могу сделать, но вот картинку ярлыка не получается отобразить в image.
У вас на форуме нашёл ответ на подобный вопрос. Но почему то не работает:

Uses
   ShellApi;
Procedure TForm1.Button1Click(Sender: TObject);
Var
A: Array[0..78] Of Char;
Begin
If OpenDialog1.Execute Then
Begin
StrPCopy(A,OpenDialog1.FileName);
Image1.Picture.Icon.Handle:=ExtractIcon(Hinstance,A,0);
End;
End;
Procedure TForm1.Image1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open',PChar(OpenDialog1.FileName),Nil,Nil,SW_SHOWDEFAULT);
End;

[astecenko]

пользуйтесь поиском, например Google, первая же ссылка в выдаче ведет сюда же на форум с ответом на ваш вопрос

[Rec0il]

Сообщение от astecenko

пользуйтесь поиском, например Google, первая же ссылка в выдаче ведет сюда же на форум с ответом на ваш вопрос

Да пользовался я гуглом! И поиском на форуме! нашёл только 1 подходящий ответ. ответ, который не работает!
Вот и спрашиваю, что в коде не так, почему не работает, помогите исправить !?

[Stilet]

Стесняюсь спросить, а почему через Image?
Ведь ListView а еще лучше ShellListView самостоятельно отображают иконки файлов.

[саша40]

Кажись в уроках Владислава Любаева говорилось о том как позаимствовать у программы иконку. Переменая типа HIcon и функция ExtractFileIcon использовались. Посмотри где он делает панель быстрого запуска(типа гаджета).

[Stilet]

http://delphiworld.narod.ru/base/get_exe_main_ico.html
http://delphiworld.narod.ru/base/extract_icon.html