comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] DH Icon Changer 0.1

  • 0 Respuestas
  • 1385 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Agosto 30, 2013, 03:31:09 pm »
Un simple programa para cambiar el icono de otro programa.

Una imagen :



El codigo :

Código: Delphi
  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.

 

¿Te gustó el post? COMPARTILO!



Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3265
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2054
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3512
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1477
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2945
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear