[Gareth]

Всем привет.
Надо сделать некий лаунчер.. на форме несколько компонентов 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;

[NumLock]

Код:

Image1.Picture.Icon.Handle:=ExtractIcon(0, 'c:\WINDOWS\system32\calc.exe', 0);

[Gareth]

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

Код:

Image1.Picture.Icon.Handle:=ExtractIcon(0, 'c:\WINDOWS\system32\calc.exe', 0);

Извините, но нет, это не подходит.
Мне нужно что бы при добавлении ярлыка через 'opendialog' на форуму, добавлялась картинка именно того ярлыка.
У меня будет несколько ярлыков, и какие именно, заранее знать не могу, по этому надо добавлять иконку именно того ярлыка, который я добавил.

[NumLock]

используй магию! вместо статичного имени файла подставь из диалога:

Код:

Image1.Picture.Icon.Handle:=ExtractIcon(0, PChar(OpenDialog1.FileName), 0);