Extracteur d'icône assez complet

Soyez le premier à donner votre avis sur cette source.

Vue 5 907 fois - Téléchargée 609 fois

Description

Voilà un extracteur d'icône qui est assez complet. Il permet d'extraire les icones des fichiers EXE, DLL, OCX, etc... J'avais commencer ce prog tout au début, kan je commencais en delphi, alors ne vous étonnez si la source est un peu bordélique. Voilà, n'oubliez de laisser vos commentaires...

Ah oui, aussi, pour pouvoir l'utiliser, vous devez d'abord compiler le projet Dll.dpr (c'est la dll qui va avec le prog). Ensuite, vous pouvez compiler le projet extracteur.dpr

Source / Exemple :


Tout est dans le zip

Conclusion :


Le prog n'enregistre pas encore en ICO, j'y arrive pas du tout. Si quelqu'un sait comment faire ??

Pas de bug connue, si vous en trouvez, laissez un commentaire !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
7 octobre 2008

Bonjour,
Je suis lucie, j'ai téléchargé dans ton site un extracteur d'îcone, car il me manque dans mon Pc, après un reformatage complet, des applications win32.exe.
Je ne suis pas informaticienne, mais je me débrouille pas mal. Mais là, je suis larguée ! Pourquoi lorsque je réinstalle des logiciels ou des applications, j'ai toujours le même message "application Win32.exe non valide.
Pourrais-tu m'aider ? je t'en remercie d'avance.
Lucie
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
28
Voilà une bonne résolution prise en ce début d'année ;-()
Puissent tes paroles être entendues...
Messages postés
246
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
5 août 2004
1
Je crois k'il fodrai mieu que je recommence tout ! Je vais m'y mettre dès maintenant ! Bye
Messages postés
246
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
5 août 2004
1
Je sais, je sais, chui po tre tre doué. Mais bon, c'est en faisant des erreurs kon apprend, n'est ce pas ?! Je recommencerais plus !! Bye
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
28
Aaaaaaaaaaaaaaarrrrrrrghhhhh !
Des Label et des Goto !
Des If à gogo pour tester l'existence de clés dans la BDR alors que tu viens de les créer :
if not Registre.KeyExists('SoftWareIcone extractor1.00_fr') then
begin
Registre.CreateKey('SoftwareIcone extractor1.00_fr');
if Registre.OpenKey('SoftWareIcone extractor1.00_fr', false) then
Ce qui peut s'écrire :
if not Registre.KeyExists('SoftWareIcone extractor1.00_fr') then
begin
Registre.OpenKey('SoftWareIcone extractor1.00_fr', TRUE) then

Quant à l'application principale :
1/- il faut disposer du composant TXpMenu livré avec Delphi 7, n'est-ce pas ?

2/- Dans la procédure LectureRegistre, tu écris :
Registre := Tregistry.create;
if Registre.OpenKey('SoftWareIcone extractor1.00_fr', false) then
begin
Form1.Left := Registre.ReadInteger('X');
Form1.Top := Registre.ReadInteger('Y');

Or, si la clé n'existe pas, tu essaies de lire quand même les données contenues dans 'X' et 'Y'.
--------------
procedure TOptProg.Button4Click(Sender: TObject);
var
i: integer;
begin
for I := 0 to 5 do
CheckListBox1.Checked[I] := true;
end;

procedure TOptProg.Button6Click(Sender: TObject);
var
i: integer;
begin
for I := 0 to 5 do
CheckListBox1.Checked[I] := true;

end;
Quelle est la différence entre ces deux méthodes ?
----------------------
Bon, on va s'arrêter là...
Bordélique, tu dis ?
Le mot n'est pas trop fort !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.