[Delphi] Просто IconChanger. - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » Delphi Программирование » [Delphi] Просто IconChanger.
[Delphi] Просто IconChanger.
Mewex Дата: Среда, 19.04.2017, 17:52 | Сообщение # 1
STEAM SELLER
Сообщений: 475
Статус: Offline
Открываем Delphi, и сразу делаем папку для проекта и сохраняем его туда.
Качаем ФАЙЛ [VT], и кидаем его в папку проекта.
Добавляем в USES проекта IconChangerUnit.
Кидаем на форму два OpenDialog, и две кнопки и два Edit'a.
На первую мы будем вызывать OpenDialog для выбора иконки
На вторую будем выбирать файл для замены
На третью соответственно менять иконку
В edit'ы будем визуально сохранять путь к файлу и иконке.


Код на первую кнопку:

Код
if OpenDialog1.Execute then begin
edit1.text:=OpenDialog1.FileName;
end;


Не забываем в свойствах Opendialog указывать фильтры по расширению, первый это *.ico второй *.exe

Код на вторую кнопку:

Код

if OpenDialog2.Execute then begin
edit2.text:=OpenDialog2.FileName;
end;


Третья:

Код
if (OpenDialog1.FileName <> '') and (OpenDialog2.FileName <> '') then
    if ChangeExeIcon(PChar(OpenDialog2.FileName), 'ICON', OpenDialog1.Filename) then begin end;


Оформление делаем какое по душе.

Можно немного прокачать и добавить Image, для прогрузки иконки на первой кнопке, выглядеть код будет так:

Код
if OpenDialog1.Execute then
    Image1.Picture.LoadFromFile(Opendialog1.FileName);
Форум » Программирование » Delphi Программирование » [Delphi] Просто IconChanger.
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7209]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи
donaldga2 [05:28]

rubenia18 [21:17]

pokotiloroman91 [18:24]

stephensh5 [12:00]

calliesv7 [06:11]

louqm16 [22:14]

artushak [16:32]

Kingpolker [15:42]

leeyv11 [15:12]

Trappa17 [01:00]

Djamalchik [16:40]

ajeense [14:24]

654470559 [08:55]