UPXHELPER V1.1.1

{===============================================================================
Code Source : BEAUMONT Christophe
Version     : 1.1.1
Date        : 07 Mars 2010

Micro Projet 02 - Un programme qui offre une interface utilisateur au compresseur
de programmes UPX, pratique pour les applications portables sur clé USB. Il en
existe un tas mais c'est toujours plus sympa quand c'est fait "maison".
Ne pas oublier de déclarer "ShellAPI" dans les "Uses" pour l'utilisation de
ShellExecute ainsi que 'IniFiles' pour la gestion du fichier de configuration.
===============================================================================}
unit f_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI, XPMan, ComCtrls, IniFiles;

type
  TUPXHelp = class(TForm)
    LoaderString: TEdit;
    BtnDialog: TButton;
    OpenExe: TOpenDialog;
    XPLook: TXPManifest;
    BtnCompress: TButton;
    BtnDecompress: TButton;
    CompressionBox: TGroupBox;
    CompressionBar: TTrackBar;
    LabTauxCompression: TLabel;
    BruteBox: TCheckBox;
    UBruteBox: TCheckBox;
    OptionsBox: TGroupBox;
    RessourcesBox: TCheckBox;
    ExportsBox: TCheckBox;
    IconesBox: TComboBox;
    RelocsBox: TCheckBox;
    DiversBox: TGroupBox;
    CompatibiliteBox: TCheckBox;
    ForceBox: TCheckBox;
    BackupBox: TCheckBox;
    procedure BtnDialogClick(Sender: TObject);
    procedure CompressionBarChange(Sender: TObject);
    procedure BruteBoxClick(Sender: TObject);
    procedure UBruteBoxClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnDecompressClick(Sender: TObject);
    procedure BtnCompressClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  UPXHelp: TUPXHelp;
  UPXPath, INIPath, Parameters : String;
implementation

{$R *.dfm}

procedure TUPXHelp.BtnCompressClick(Sender: TObject);
begin
// On vide le string
 Parameters := '';

 //=============================================================================
 // Ici on commence à traiter les options de compression
 //=============================================================================
// Si "Ultra-Brute" est sélectionné
 if UBruteBox.Checked
 // alors on le déclare en paramètres
   then Parameters := Parameters+' --ultra-brute'
// Sinon on teste "Brute"
   else if BruteBox.Checked
// Si "Brute est sélectionné alors on le déclare en paramètres
        then Parameters := Parameters+' --brute'
// Si aucun des deux n'est coché, on va déclarer le taux de compression
// Si le taux de compression = 10
        else if CompressionBar.Position = 10
// alors on déclare --best en paramètres
            then Parameters := Parameters+' --best'
// Sinon la valeur du taux de compression ( 1 à 9 )
            else Parameters := Parameters+' -'+IntToStr(CompressionBar.Position);

//=============================================================================
// Ici on continue en traitant les options avancées
//=============================================================================
// Si la compression des ressources est sélectionnée
if RessourcesBox.Checked
// alors on valide le paramètre
  then Parameters := Parameters+' --compress-resources=1'
// autrement pas de compression des ressources
  else Parameters := Parameters+' --compress-resources=0';

// Si la compression des exports est sélectionnée
if ExportsBox.Checked
// alors on valide le paramètre
  then Parameters := Parameters+' --compress-exports=1'
// autrement pas de compression des exports
  else Parameters := Parameters+' --compress-exports=0';

// Si l'enlèvement des relocations est sélectionné
if RelocsBox.Checked
// alors on valide le paramètre
  then Parameters := Parameters+' --strip-relocs=1'
// autrement pas d'enlèvement des exports
  else Parameters := Parameters+' --strip-relocs=0';

// On choisit le mode de compression des icônes contenus dans le programme
 Parameters := Parameters+' --compress-icons='+IntToStr(IconesBox.ItemIndex);

//==============================================================================
// Et enfin les options diverses
//==============================================================================
// On vérifie si la compatibilté 8086 est sélectionnée
if CompatibiliteBox.Checked
// Si oui, on ajoute le paramètre
  then Parameters := Parameters+' --8086';
// Doit on forcer la compression ?
if ForceBox.Checked
// Si oui alors on ajoute le paramètre
  then Parameters := Parameters+' --force';
// Et enfin, doit on faire une sauvegarde du programme avant traitement ?
if BackupBox.Checked
// Si oui, on ajoute le paramètre pour une sauvegarde
  then Parameters := Parameters+' --backup'
// Si non, on ne fait pas de sauvegarde du programme et on l'écrase
  else Parameters := Parameters+' --no-backup';

  // Et enfin on exécute upx.exe et son armada de paramètres
 ShellExecute(GetDesktopWindow, 'open', PChar(UPXPath), PChar('"'+UPXPath+'"'+Parameters+' '+'"'+LoaderString.Text+'"'), nil, SW_SHOWNORMAL);
end;

procedure TUPXHelp.BtnDecompressClick(Sender: TObject);
begin
// On passe en paramètres la commande pour décompresser
 Parameters := ' -d';
// Si on a choisit de faire une sauvegarde du fichier compressé
 if BackupBox.Checked then
  begin
// on indique la sauvegarde en paramètres
   Parameters := Parameters+' --backup';
  end
  else
// Autrement pas de sauvegarde
  Parameters := Parameters+' --no-backup';
// Et on exécute upx.exe avec sa ligne de commande en paramètres et le programme cible
  ShellExecute(GetDesktopWindow, 'open', PChar(UPXPath), PChar('"'+UPXPath+'"'+Parameters+' '+'"'+LoaderString.Text+'"'), nil, SW_SHOWNORMAL);
end;

procedure TUPXHelp.BtnDialogClick(Sender: TObject);
begin
// Renvoie true lorsque l'utilisateur effectue une sélection et clique sur OK, et renvoie
// false lorsque l'utilisateur ferme la boîte de dialogue sans effectuer de sélection.
 if OpenExe.Execute then
  begin
// On affiche le chemin et le nom du programme sélectionné
    LoaderString.Text := OpenExe.FileName;
// On active les boutons "Compresser" et "Décompresser" qui étaient désactivés pour éviter
// de gérer une erreur de fichier non sélectionné.
    BtnCompress.Enabled := True;
    BtnDecompress.Enabled := True;
  end;
end;

procedure TUPXHelp.BruteBoxClick(Sender: TObject);
begin
// Si l'option "Brute" est sélectionnée
 if BruteBox.Checked  then
// alors on déselectionne "Ultra Brute"
  UBruteBox.Checked := False;
end;

procedure TUPXHelp.UBruteBoxClick(Sender: TObject);
begin
// Si l'option "Ultra Brute" est sélectionnée
 if UBruteBox.Checked  then
// alors on déselectionne "Brute"
  BruteBox.Checked := False;
end;

procedure TUPXHelp.CompressionBarChange(Sender: TObject);
begin
// On affiche le taux de compression ( 1 à 10 )
 LabTauxCompression.Caption := IntToStr(CompressionBar.Position);
end;

procedure TUPXHelp.FormActivate(Sender: TObject);
var INI : TIniFile;
begin
// Create construit un objet TCustomIniFile pour une application et affecte le paramètre FileName
// à la propriété FileName pour spécifier le nom du fichier ini à utiliser
 INI := TIniFile.Create(INIPath+'UPXHelper.ini');

 // On charge une chaîne de caractères (string)
 LoaderString.Text := INI.ReadString('Options','LastFile','');
 // On charge la valeur du taux de compression (Integer), valeur par défaut = 7
 CompressionBar.Position := INI.ReadInteger('Options','Compression',7);
 // On charge l'état du composant (True ou False), valeur par défaut = False
 BruteBox.Checked := INI.ReadBool('Options','Brute',False);
 UBruteBox.Checked := INI.ReadBool('Options','UBrute',False);
 // On charge l'état du composant (True ou False), valeur par défaut = True
 RessourcesBox.Checked := INI.ReadBool('Options','Ressources',True);
 ExportsBox.Checked := INI.ReadBool('Options','Exports',True);
 RelocsBox.Checked := INI.ReadBool('Options','Relocations',True);
 IconesBox.ItemIndex := INI.ReadInteger('Options','Icones',2);
 CompatibiliteBox.Checked := INI.ReadBool('Options','Compatibilite',False);
 ForceBox.Checked := INI.ReadBool('Options','Force',False);
 BackupBox.Checked := INI.ReadBool('Options','Backup',False);

 // On libère le fichier .ini
 INI.Free;
// On n'oublie pas d'activer nos boutons si nous avons un programme déclaré
 if LoaderString.Text <>'' then
   begin
    BtnCompress.Enabled := True;
    BtnDecompress.Enabled := True;
   end
end;

procedure TUPXHelp.FormCreate(Sender: TObject);
begin
// Récupère le chemin d'accés à notre programme
 INIPath := ExtractFilePath(Application.ExeName);
 // et ajoute upx.exe
 UPXPath := INIPath+'upx.exe';
 // Si upx.exe n'est pas dans le répertoire de notre programme
 if not FileExists(UPXPath) then
// On affiche un avertissement.
  ShowMessage('Upx.exe est absent du répertoire');
end;

procedure TUPXHelp.FormDestroy(Sender: TObject);
var INI : TIniFile;
begin
// Créé le fichier Ini s'il n'existe pas, on définit aussi le répertoire courant
// comme chemin sinon le fichier se créé dans le répertoire Windows
 INI := TIniFile.Create(INIPath+'UPXHelper.ini');

// On va écrire le dernier programme sélectionné ainsi que son chemin d'accès (string)
 INI.WriteString('Options','LastFile',LoaderString.Text);
// La valeur du taux de compression de 1 à 10 (Integer)
 INI.WriteInteger('Options','Compression',CompressionBar.Position);
// La valeur boléenne du composant (True ou False)
 INI.WriteBool('Options','Brute',BruteBox.Checked);
 INI.WriteBool('Options','UBrute',UBruteBox.Checked);
 INI.WriteBool('Options','Ressources',RessourcesBox.Checked);
 INI.WriteBool('Options','Exports',ExportsBox.Checked);
 INI.WriteBool('Options','Relocations',RelocsBox.Checked);
 INI.WriteInteger('Options','Icones',IconesBox.ItemIndex);
 INI.WriteBool('Options','Compatibilite',CompatibiliteBox.Checked);
 INI.WriteBool('Options','Force',ForceBox.Checked);
 INI.WriteBool('Options','Backup',BackupBox.Checked);

// On libère le fichier .ini
 INI.Free;
end;

end.