Tutorial ensinando como criar um simples Icon Changer, que muda o ícone de programas.
Adicione os seguintes componentes no formulario:
1 OpenDialog (Menu Dialogs)
2 Edit (Menu Standart)
3 Buttons (Menu Standart)
Altere a caption do Button1 e do Button2 para "
Add" , e a do Button3 para "Mudar Icone".
Declare na Uses
: IconChangerUnit
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
IconChangerUnit;
Clique aqui para fazer o download da Unit (Após baixado jogue-a na mesma pasta da aplicação).
No evento OnClick do button1 que é de carregar o executável coloque o codigo:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog.FileName := '';
opendialog.Filter := 'Executable File|*.exe|';
if opendialog.Execute
then
Edit1.Text := OpenDialog.FileName;
end;
No evento OnClick do button2 que é de carregar o ícone coloque o codigo:
procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog.FileName := '';
opendialog.Filter := 'Icon Files (*.ico)|*.ico';
if not OpenDialog.Execute
then exit;
Edit2.Text := OpenDialog.FileName;
end;
No evento OnClick do button3, o botão que irá mudar o ícone coloque o codigo:
procedure TForm1.Button3Click(Sender: TObject);
begin
if ChangeExeIcon(Edit1.Text, 'MAINICON', Edit2.Text)
then
MessageBox(0,'Icone Trocado com Sucesso!','Info',MB_OK or MB_ICONINFORMATION)
else
MessageBox(0,'Error','Error',MB_OK or MB_ICONERROR);
end;
DOWNLOAD DA SOURCE
Se resta duvidas, é so perguntar!