elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] DH Icon Changer 0.1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] DH Icon Changer 0.1  (Leído 2,063 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] DH Icon Changer 0.1
« en: 30 Agosto 2013, 20:31 pm »

Un simple programa para cambiar el icono de otro programa.

Una imagen :



El codigo :

Código
  1. // DH Icon Changer 0.1
  2. // Coded By Doddy H
  3. // Based on IconChanger By Chokstyle
  4. // Thanks to Chokstyle
  5.  
  6. unit icon;
  7.  
  8. interface
  9.  
  10. uses
  11.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  12.  Dialogs, StdCtrls, sButton, sEdit, sGroupBox, sSkinManager, ComCtrls,
  13.  sStatusBar, ExtCtrls, madRes, jpeg, sCheckBox;
  14.  
  15. type
  16.  TForm1 = class(TForm)
  17.    sSkinManager1: TsSkinManager;
  18.    sGroupBox1: TsGroupBox;
  19.    sEdit1: TsEdit;
  20.    sButton1: TsButton;
  21.    sGroupBox2: TsGroupBox;
  22.    sGroupBox3: TsGroupBox;
  23.    sButton2: TsButton;
  24.    sButton3: TsButton;
  25.    sButton4: TsButton;
  26.    sStatusBar1: TsStatusBar;
  27.    OpenDialog1: TOpenDialog;
  28.    sGroupBox4: TsGroupBox;
  29.    Image1: TImage;
  30.    sButton5: TsButton;
  31.    OpenDialog2: TOpenDialog;
  32.    Image2: TImage;
  33.    sEdit2: TsEdit;
  34.    procedure sButton1Click(Sender: TObject);
  35.    procedure FormCreate(Sender: TObject);
  36.    procedure sButton5Click(Sender: TObject);
  37.    procedure sButton2Click(Sender: TObject);
  38.  
  39.    procedure sButton4Click(Sender: TObject);
  40.    procedure sButton3Click(Sender: TObject);
  41.  private
  42.    { Private declarations }
  43.  public
  44.    { Public declarations }
  45.  end;
  46.  
  47. var
  48.  Form1: TForm1;
  49.  
  50. implementation
  51.  
  52. {$R *.dfm}
  53.  
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. begin
  56.  
  57.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  58.  sSkinManager1.SkinName := 'falloutstyle';
  59.  sSkinManager1.Active := True;
  60.  
  61.  OpenDialog1.InitialDir := GetCurrentDir;
  62.  OpenDialog2.InitialDir := GetCurrentDir;
  63.  OpenDialog2.Filter := 'ICO|*.ico|';
  64.  
  65. end;
  66.  
  67. procedure TForm1.sButton1Click(Sender: TObject);
  68. begin
  69.  
  70.  if OpenDialog1.Execute then
  71.  begin
  72.    sEdit1.Text := OpenDialog1.FileName;
  73.  end;
  74. end;
  75.  
  76. procedure TForm1.sButton2Click(Sender: TObject);
  77. var
  78.  op: string;
  79.  change: dword;
  80.  valor: string;
  81.  
  82. begin
  83.  
  84.  valor := IntToStr(128);
  85.  
  86.  op := InputBox('Backup', 'Backup ?', 'Yes');
  87.  
  88.  if op = 'Yes' then
  89.  begin
  90.    CopyFile(PChar(sEdit1.Text), PChar(ExtractFilePath(Application.ExeName)
  91.          + 'backup' + ExtractFileExt(sEdit1.Text)), True);
  92.  end;
  93.  
  94.  try
  95.    begin
  96.      change := BeginUpdateResourceW(PWideChar(wideString(sEdit1.Text)), false);
  97.      LoadIconGroupResourceW(change, PWideChar(wideString(valor)), 0, PWideChar
  98.          (wideString(sEdit2.Text)));
  99.      EndUpdateResourceW(change, false);
  100.      sStatusBar1.Panels[0].Text := '[+] Changed !';
  101.      Form1.sStatusBar1.Update;
  102.    end;
  103.  except
  104.    begin
  105.      sStatusBar1.Panels[0].Text := '[-] Error';
  106.      Form1.sStatusBar1.Update;
  107.  
  108.    end;
  109.  end;
  110.  
  111. end;
  112.  
  113. procedure TForm1.sButton4Click(Sender: TObject);
  114. begin
  115.  Form1.Close();
  116. end;
  117.  
  118. procedure TForm1.sButton5Click(Sender: TObject);
  119. begin
  120.  
  121.  if OpenDialog2.Execute then
  122.  begin
  123.    Image1.Picture.LoadFromFile(OpenDialog2.FileName);
  124.    sEdit2.Text := OpenDialog2.FileName;
  125.  end;
  126.  
  127. end;
  128.  
  129. procedure TForm1.sButton3Click(Sender: TObject);
  130. begin
  131.  ShowMessage('Credits : Based on IconChanger By Chokstyle' + #13#10 + #13#10 +
  132.      'Contact to lepuke[at]hotmail[com]');
  133. end;
  134.  
  135. end.
  136.  
  137. // The End ?
  138.  

Si quieren bajar el programa lo pueden hacer de aca.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda con el Windows XP CD Key Changer
Windows
el mati 3 5,414 Último mensaje 16 Junio 2010, 18:17 pm
por heaviloto
[Delphi] DH Icon Changer 0.5
Programación General
BigBear 0 1,990 Último mensaje 11 Abril 2014, 18:36 pm
por BigBear
[SOURCE] Skype Persistence Changer
.NET (C#, VB.NET, ASP)
Eleкtro 0 1,650 Último mensaje 28 Junio 2014, 23:50 pm
por Eleкtro
Icon changer « 1 2 3 »
Análisis y Diseño de Malware
sadfud 25 14,829 Último mensaje 16 Marzo 2015, 14:05 pm
por .:UND3R:.
"Dz Icon o Dz Icon light"
Dispositivos Móviles (PDA's, Smartphones, Tablets)
win_7 1 2,001 Último mensaje 26 Septiembre 2018, 15:24 pm
por Sytry
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines