extraction fichier

**Seb4657** · 01/01/2006, 01h42

salut,

j'ai suivi ce tutoriel de delphicool : http://delphicool.developpez.com/tut/utiliz_ressources/

de manière à extraire un fichier exécutable.

ça marche nikel, merci à lui

maintenant, lors de l'extraction du fichier, est-il possible de choisir l'icone du fichier en question ??

merci

**Seb4657** · 04/01/2006, 15h31

toujours pas d'idée ??

**smyley** · 05/01/2006, 00h23

l'icone du fichier en question ... je comprend pas vraiment ...
Tu veux parler de l'icone de l'exécutable ? si c'est ça, sache que son icone lui est propre : un exe aura toujours la même icone, tant qu'on en change pas explicitement c-à-d que pour changer son icone il faut modifer ses propres ressources ( traditionnellement sous Delphi, il y a une antrée MAINICON dans les resources de l'exe ).

**Seb4657** · 05/01/2006, 19h39

et bien avec delphi y a-t-il un moyen de modifier l'icone d'un fichier ??

**smyley** · 05/01/2006, 23h17

donc c'est pas un exe ...
Par exemple changer l'icone d'un fichier txt ? ( soit plus précis )

**Coussati** · 06/01/2006, 05h37

à mon avis il veut changer l'icone d'un exe

ton exe en question tu le prends ou ? tu l'as codé toi même (en delphi) ou alors tu le prends n'importe ou ?

**Seb4657** · 06/01/2006, 22h36

codé moi même en delphi
et si il y a une solution pour les codé n'importe ou je veux bien la connaitre aussi

**anapurna** · 07/01/2006, 07h32

salut

si tu veut chnger l'icone de ton application avant compilation pour que celui-ci
s'affiche dans windows regarde les option de projet
meun projet | Option onglet application

par contre si tu veut qu'un type de fichier soit associer a ton appli

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure Associ(Nameapplication,ext: string; DefaultKey: string);
var
  Registre: TRegistry;
  s: string;
  stapp : string;
begin
   // Pour s'ajouter au menu contextuel de l'extension
   Registre := TRegistry.Create;
   try
     Registre.RootKey := HKEY_CLASSES_ROOT;
     Registre.OpenKey('\' + ext, true);
     s := Registre.ReadString('');
     if Length(s) = 0 then
     begin    // Si le type n'est pas enregistré
         s := DefaultKey;
         Registre.WriteString('', s);
     end;
     if not Registre.KeyExists('\' + s + '\DefaultIcon') then
     begin
        Registre.OpenKey('\' + s + '\DefaultIcon', true);
        Registre.WriteString('', ParamStr(0) + ',0'); 
     end;
     stapp :=format('\%s\Shell\%s',[s,Nameapplication])
     Registre.OpenKey(stapp, true);
     Registre.WriteString('', Nameapplication);
     stapp :=format('\%s\Shell\%s\Command',[s,Nameapplication])
     Registre.OpenKey(stapp, true);
     Registre.WriteString('', '"' + ParamStr(0) + '" "%1"');
   finally
     Registre.Free;
   end;
end;

utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 RegisterExt('DELPHI''.pas', 'PASFile');

@+ Phil

**Seb4657** · 07/01/2006, 13h16

merci anapurna

mais ici l'icone changera pour tout les executables, moi je veux ne changer que celle d'un fichier

**bjl** · 07/01/2006, 14h38

Bonjour, pas très clair tout çà.....

petit rappel

Fichier exe : icone contenu dans l'exe
Fichier type .doc, .txt : icone attribué par association à un fichier exe. ou .ico (l'association est faite dans le registre). => partie 2 de la réponse d'Anapurna

Coté fichier exe : si tu es l'auteur de l'application, ouvre la sous delphi, à partir du menu : Projet/options onglet application : bouton LoadIcon. => partie 1 de la réponse d'Anapurna

si tu n'es pas l'auteur de l'application, je ne crois pas que l'auteur soit d'accord pour que tu changes l'icone. Si tu en es l'auteur pourquoi faire compliqué en extrayant l'executable alors que delphi permet de le faire à partir des sources ?

**Laurent Dardenne** · 07/01/2006, 15h11

Salut,

Envoyé par bjl

Bonjour, pas très clair tout çà.....

A l'avenir merci d'énoncer clairement le problème rencontré.

Au cas où pour modifier l'icone de l'application

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  //Modifie l'icône de l'application
       With Application do
        Icon.Handle := ExtractIcon(Handle,Pchar(ExeName),1);

Ajouter l'icone dans un fichier Ascii MonIcone.rc

MonIcone ICON AutreIcone.ico

Le compiler avec Brcc32.exe et ajouter la directive suivante dans le .dpr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{$R MonIcone.RES}

**Seb4657** · 07/01/2006, 16h34

Au cas où pour modifier l'icone de l'application
Code:
//Modifie l'icône de l'application
With Application do
Icon.Handle := ExtractIcon(Handle,Pchar(ExeName),1);

salut

est-ce que vous pourrier m'en dire plus sur la maniere qui permet de modifier l'icone d'une application ?

merci

j'ai deja vu ce code sur des sites mais ils mettent qu'il ne sert qu'a extraire l'icone d'un fichier

**Clandestino** · 08/01/2006, 11h20

Tu peux parfaitement modifier l'icone d'un executable en le patchant (si ton executable n'est pas crypté ou packé)...
J'avais déjà fait celà pour un petit tool à usage privé...
Pour ne pas avoir à modifier le PE de l'executable cible et pour que ceci reste simple, je te conseille tout d'abord de verifier quel est le format exact de l'icone de l'executable cible : taille et resolution : par exemple 32*32 en 256 couleurs... Tu peux l'extraire avec l'outil resource Hacker d'Angus Johnson.

Crée ensuite à l'aide d'un outil spécialisé (Microangelo par exemple) différentes icones ayant les memes caractéristiques en taille et résolution que l'icone du fichier cible.

Je vais t'expliquer la marche à suivre sans te donner du tout fait, c'est à mon sens bien plus enrichissant.
La technique consiste à etudier dans un editeur hexa (en comparant le fichier icone extrait et l'exe cible) l'endroit précis ou l'icone est incluse dans l'executable... Je te laisse regarder ce n'est pas très dur à trouver...

Tu remarqueras aussi que l'icone incluse dans l'executable est légèrement différente du fichier.ico extrait : quelques octets en moins au debut...

à toi d'enlever le meme nombre d'octets à tes icones neuves, de les inclure dans ton exe patcheur en tant que tableaux de bytes par exemple, puis à patcher ton exe cible à l'endroit voulu byte par byte avec les nouvelles valeurs.

ce n'est pas très difficile et ça marche très bien...

Je te laisse découvrir tout celà...

Clandestino

**Seb4657** · 08/01/2006, 15h46

ça a pas l'air simple

donc si je comprends bien, tu vas chercher dans le code hexa ou se trouve l'icone, et tu vas remplacer ce code par celui d'une autre icone ?

**Coussati** · 08/01/2006, 21h53

en faite ce qu'il veut faire c'est exactement ce que ressource hacker fait

lorsqu'on utilise l'option remplace icon

**Seb4657** · 10/01/2006, 18h53

et je devrais inclure RH dans mon programme ?

**smyley** · 10/01/2006, 19h07

extrait du code source d'Inno Setup ( je ne me souvient plus de la version ) :
http://smyley.developpez.com/forum_e...pResUpdate.pas
http://smyley.developpez.com/forum_elements/VerInfo.pas
http://smyley.developpez.com/forum_elements/Version.inc

Tu pourrais t'en inspirer

**Clandestino** · 10/01/2006, 22h54

ça a pas l'air simple

Et ce n'est rien par rapport à ce que resource hacker fait!
Car lui est capable de mettre une icone de taille différente, donc de modifier la table des resources, et eventuellement la taille de l'executable... bref l'ecriture d'un outil comme reshacker demande de connaitre parfaitement la constitution d'un executable window et s'apparente plus à l'ecriture d'un véritable compilateur qu'à celle d'un tout simple patcheur (comme ce je te l'ai expliqué précédemment)...
Bref, modifier un programme compilé est souvent bien plus complexe que d'en ecrire un et le compiler soi meme...

**Seb4657** · 12/01/2006, 19h19

et serait-il possible d'inclure ressource hacker dans mon application?

extraction fichier

Langage Delphi

Vue hybride

Discussions similaires

Partager

Partager