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 !
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
Puissent tes paroles être entendues...
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.