Всем привет.
Надо сделать некий лаунчер.. на форме несколько компонентов image. На каждый надо установить свой ярлык, путём opendialog.
Путь до ярлыка я могу сделать, но вот картинку ярлыка не получается отобразить в image.
В интернете нашёл ответ на подобный вопрос. Но почему то не работает, не загружает картинку в компонент 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;