|
|
Регистрация | << Правила форума >> | 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; |
#2
|
||||
|
||||
Код:
Image1.Picture.Icon.Handle:=ExtractIcon(0, 'c:\WINDOWS\system32\calc.exe', 0); Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
Мне нужно что бы при добавлении ярлыка через 'opendialog' на форуму, добавлялась картинка именно того ярлыка. У меня будет несколько ярлыков, и какие именно, заранее знать не могу, по этому надо добавлять иконку именно того ярлыка, который я добавил. |
#4
|
||||
|
||||
используй магию! вместо статичного имени файла подставь из диалога:
Код:
Image1.Picture.Icon.Handle:=ExtractIcon(0, PChar(OpenDialog1.FileName), 0); Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Gareth (13.06.2013)
|