domingo, 18 de dezembro de 2011

Icon Changer (Muda icone de executável) Delphi Source

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!

0 Comentários:

Postar um comentário

Você pode utilizar:
<b>NEGRITO</b> | <em>ITÁLICO</em> | <a href="LINK">TEXTO DO LINK</a>