Comment ecrire dans un EXE

Question

Hello, comment dois-je faire pour ouvrir un EXE en binaire et ecrire à l'interieur ?

je sais le faire en visual basic mais pas en delphi .

sytaxe en vb:

open ("C:\Windows\...") for binary as # 1 len = 1
get 1, , code
put 1, , code

......

close #1

j'aimerai faire la meme chose mais en delphi 

et aussi comment ecrire dans le fichier ouvert . merci

cs_Bestiol · Answer

Il suffit d'utiliser un TFileStream ou une variable de type File...

Si l'EXE est lancé, tu ne pourras par contre pas écrire dedans !

Avec un TFileStream, rien de plus simple que de manipuler un fichier !

Exemple :

var Fichier: TFileStream;
begin
  Try
    Fichier :=  TFileStream.Create('C:\MonFichier.exe', fmOpenWrite);
    //On se rend à la fin du fichier
    Fichier.Seek(0, soFromEnd);
    //On écrit un petit texte !
    Fichier.Write('Coucou[.org] !', SizeOf( String ));
  Finally
    Fichier.Free;
  end;


Pour un exemple avec une variable de type File, je te renvoie sur le site Phidels.com, où tu as un très bon tutoriel sur l'utilisation des fichiers...

Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]

Comment ecrire dans un EXE

1 réponse

Votre réponse

Discussions similaires