|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ярлык на форму, программно
Всем привет.
Надо сделать некий лаунчер.. на форме несколько компонентов 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; |