[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] Просто IconChanger
[Delphi] Просто IconChanger
MilokHopДата: Понедельник, 17.06.2019, 23:44 | Сообщение # 1
Сообщений: 125
Награды: 0
Репутация: 0
Статус:
Открываем 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);
 
Форум » Программирование » Pascal/Delphi » [Delphi] Просто IconChanger
  • Страница 1 из 1
  • 1
Поиск: