Статья. Как прикрепить иконку к приложению
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Статья. Как прикрепить иконку к приложению - 2008-04-13 19:45:58.230000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Нередко возникает необходимость изменить(прикрепить) иконку к программе, дабы не использовать протрояненный паблик софт,я покажу вам как самому это сделать… Что нам понадобиться: - Delphi 7 - Модуль "vIconChanger" by Vito - Прямые руки Начнём… Запускаем Делфи и сохраняем проэкт в отдельную папку (File - Save as) Копируем модуль "vIconChanger.pas" в эту папку. Подключаем его в списке модулей: Uses Windows,vIconChanger, Messages,…. Бросаем на форму 3 кнопки(Button), 2 Эдита(Edit) и 2 OpenDialog(вкладка Dialogs) В событии "On Create" формы пишем следующий код:
form1.Button1.Caption := 'Выбрать приложение';
form1.Button2.Caption := 'Выбрать иконку';
form1.Button3.Caption := 'Прикрепить !';
form1.Edit1.Text := '';
form1.Edit2.Text := '';
В On Click первой кнопки пишем:
OpenDialog1.Execute;
if FileExists(OpenDialog1.FileName) then
Edit1.Text:=OpenDialog1.FileName;
второй кнопки:
OpenDialog2.Execute;
if FileExists(OpenDialog2.FileName) then
form1.Edit2.Text := form1.OpenDialog2.FileName;
третьей кнопки
ChangeIcon(Edit1.text, Edit2.text, 'AyIcon');
Всё…жмём F9 и проверяем… _______________________________________________________________________________________________________________________ 1. Я всё понял модуль в студию http://webfile.ru/1869654 (Модуль) 2. Не всё понятно но хочу разобраться http://webfile.ru/1869655 (Исходник) 3. Дайте готовенькое http://webfile.ru/1869658 (Откомпиленая проэкт)
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-13 21:40:48.376666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ну блин,все интересное сделал сам((.Но значительно лучше статей с стиле "узнаем очевидное". Вот прописал бы каменты к коду в модуле - совсем бы молодец был).Как бы "склейка" не особо проблема,но код интересно почитать,пасиба).А то исходники к джойнерам не всегда есть.Ща поценю главное - палевность).
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-13 22:03:03.356666
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Сорец джойнера: http://webfile.ru/1869888
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-13 22:58:13.130000
|
|
|
blаcksun
Сообщений: 1670
Оценки: 0
Присоединился: 2007-11-19 20:03:45.703333
|
Мда .. скоро будут писать "Статья. Как запустить файл двойным кликом мышы"
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-13 23:26:58.930000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
quote:
Мда .. скоро будут писать "Статья. Как запустить файл двойным кликом мышы" Ну да не надо так строго! Тут хоть коды есть,не ОС конечно и не ИИ)),но тоже что то.Правда принцип "юзай готовое" не айс,но не суть. А вот FLIER пусть не раздает проги с троянами!! Нет,я не путаю ничего,эт не антивирь бесится - просто при запуске джойнера он какой то экзешник левый глубоко на жесткий диск пиханул! Вот не надо такого.
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-13 23:39:00.973333
|
|
|
[ TRaY ]
Сообщений: 919
Оценки: 0
Присоединился: 2008-03-22 18:47:37.556666
|
Статья хорошая, новичкам в помощь… Но не мешала бы ссылка на Delphi7, ведь на форумах многие брутфорс скачать не могут , а это тем более…имхо…
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-14 00:07:12.366666
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
quote:
ORIGINAL: Genco А вот FLIER пусть не раздает проги с троянами!! Нет,я не путаю ничего,эт не антивирь бесится - просто при запуске джойнера он какой то экзешник левый глубоко на жесткий диск пиханул! Вот не надо такого. Я его каким скачал таким и выложил…когда работал с ним, все "EXE" удалил сразу, разбирался только с папкой "Source"
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-14 00:10:21.743333
|
|
|
blаcksun
Сообщений: 1670
Оценки: 0
Присоединился: 2007-11-19 20:03:45.703333
|
Народ, где вы тут джойнер увидели? Хоть убейте здесь им не пахнет. quote:
ORIGINAL: [ TRaY ] Статья хорошая, новичкам в помощь… Но не мешала бы ссылка на Delphi7, ведь на форумах многие брутфорс скачать не могут , а это тем более…имхо… На кой хрен нужно качать делфи, чтобы всеголишь сменить иконку у проги? С этим вполне справляется ResHacker или Restorator.
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-14 00:14:33.953333
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
//////////////////////////////////////////////////// //ABC Joiner 1.27 - Core // //Coding - ZloY © 2007 // //Contacts: icq-8778556, [email=mail-zloy-toxa@mail.ru]mail-zloy-toxa@mail.ru[/email] // //Made In Source Code From Go0o$E! // ////////////////////////////////////////////////////
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-14 01:30:14.226666
|
|
|
[ TRaY ]
Сообщений: 919
Оценки: 0
Присоединился: 2008-03-22 18:47:37.556666
|
quote:
ORIGINAL: blаcksun Народ, где вы тут джойнер увидели? Хоть убейте здесь им не пахнет. quote:
ORIGINAL: [ TRaY ] Статья хорошая, новичкам в помощь… Но не мешала бы ссылка на Delphi7, ведь на форумах многие брутфорс скачать не могут , а это тем более…имхо… На кой хрен нужно качать делфи, чтобы всеголишь сменить иконку у проги? С этим вполне справляется ResHacker или Restorator. quote:
ORIGINAL: FLIER - Delphi 7 - Модуль "vIconChanger" by Vito - Прямые руки Тогда этот вопрос уже не ко мне, в статье написан делфи, если бы был ResHacker или Restorator то линки были бы нужны именно на этот софт
|
|
|
RE: Статья. Как прикрепить иконку к приложению - 2008-04-14 14:55:27.600000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
http://torrents.ru/ регимся..в поиске пишем "Delphi" качаем наздоровье
|
|
|
|
|