|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2008, 20:02 | #1 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 62
|
запуск программ по нажатию на картику (проблема со значком)
Не знал как назвать тему... прочтите пост я думаю подходит
ситуация такая... Delphi 7 есть форма. На ней компоненты: Image1, Edit1, Edit2, Button1. Теперь я записываю в "Edit1" к примеру путь к игре (пусть контра) "c:/Valve/hl.exe" , в "Edit2" путь к значку "c:/Valve/ctrike/Counter-Strike.ico" код: uses .... ,ShellAPI; .... procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.LoadFromFile(edit2.Text ); ShellExecute(Handle, nil, Pchar(Edit1.text), nil, nil, SW_SHOW); end; .... Суть проги - по нажатию на картинку открыть ту прогу которая изображена... Т.е в одной строке пишу путь к файлу, а во второй строке пишу путь к значку. Я хочу это как нить упростить. Сам "hl.exe" имеет свой значок. Мне нужно ИСПОЛЬЗОВАТЬ один Edit1(где будет указываться путь к файлу) - так чтобы после на Image1 появилась его значок и можно было запустить эту прогу... Это что вроде ярлыка на .exe файл... Я думаю свою мылсь до ВАС до ввел... |
29.10.2008, 20:59 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если хочешь нажимать на Эдит, так и нажимай на Эдит, зачем
procedure TForm1.Button1Click(Sender: TObject); |
29.10.2008, 21:10 | #3 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Я так понял, он хочет нажимать на картинку.
Тогда: Код:
|
29.10.2008, 21:54 | #4 | ||
Пользователь
Регистрация: 27.10.2008
Сообщений: 62
|
Цитата:
кнопка - на то она и кнопка, у мну там еще валом бдет настраек... Цитата:
Да мне нужно нажимать на картинку... Спасибо!такой код я пробывал уже... В общем мне нужны те же функции что и обычного ярлыка... когда создаешь ярлык на рабочем столе, тебе предлогают указать путь к файлу ОДИН РАЗ, а значок этого файла ставиться АВТОМАТОМ (т.е. вытаскивается из этого же файла). Вот мне НУЖНО вытащить значок из .exe файла и поместить его в Image1, так чтоб не писать в ручную путь к значку... Кстати mihali4 , Я на днях скачал твой ФАК, Он мне очень помог... Спасибо! Ребята, предложите еще дей... |
||
29.10.2008, 22:30 | #5 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Если в ФАКе сделать поиск по началу слова "извлечь", то можно найти 2 способа извлечения иконки из файла... |
|
31.10.2008, 14:12 | #6 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 62
|
Извлечение иконки из EXE-файла
В данном примере мы рассмотрим то, как можно "выдрать" иконку из EXE файла и поместить ее в объект имеющий канву (в данном случае это TImage). uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var IconIndex: word; h: hIcon; begin IconIndex := 0; h := ExtractAssociatedIcon(hInstance, 'C:\FILE.EXE', IconINdex); DrawIcon(Form1.image1.Canvas.Handle , 10, 10, h); end; Вместо FILE.EXE должен быть нужный вам EXE файл. вот тот кусок с ФАКа... Вот не задача, я этот код происываю у себя, ВОТ тока вместо значка того файла он мне рисует БЕЛЫЙ лист.... т.е. он не вытаскивает значок (как я понял)... Может чего еще нужно добавить... Еще раз поясню, я делаю что то вроде ярлыка в своей проге, МНЕ нужно чтобы после указания пути к файлу FILE.EXE он мне вытащил его зназок и поместил его на Image... |
31.10.2008, 15:37 | #7 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
В этом способе что-то не так.
А вот другой (оттуда же ) "Как извлечь иконку из другого файла" работает на ура. Я проверил. Последний раз редактировалось mihali4; 31.10.2008 в 18:29. |
31.10.2008, 18:32 | #8 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Прошу прощения, пришлось создать новый пост, а не править предыдущий, чтобы привлечь внимание.
Насчет первого способа. Пытался привести его в чувство, но никак. Вот код: Код:
Подключайтесь, у кого какие будут соображения? З.Ы. Через 20 минут - сам же и нашел. То ScorpioN_T : Код:
Последний раз редактировалось mihali4; 31.10.2008 в 18:58. |
01.11.2008, 12:51 | #9 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 62
|
Спасибо mihali4!
Эти способы я ОПРОБУЮ... Вот вчера сам кое-что надыбал и пока это меня устраивает. З.Ы. Вчера я в посте отвечал, но видимо из-за разрыва соединения с Инетом ответ не дошел Вот мои код : Код:
Считаю тему закрытой! Последний раз редактировалось mihali4; 02.01.2010 в 22:36. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запуск программ на хостинг-сервере | Gordon | PHP | 2 | 10.09.2008 22:59 |
Dev-C++ проблема с запуском программ | Надюха | Помощь студентам | 12 | 28.05.2008 03:55 |
Сервис->запуск программ->не коректная работа | Air | Общие вопросы Delphi | 2 | 26.03.2008 19:52 |
Запуск программ | sinoptik | Общие вопросы Delphi | 6 | 04.05.2007 13:54 |