ajouter une ligne a la fin d un executable

Question

salut,
vous avez des idees sur la maniere dont on rajoute une ligne a la fin d un executable?
j ai pense a utiliser tfilestream seulement, je ne vois pas comment utiliser le filestream.write...
et pis surtout, comment se rendre a la fin.

j ai reussi a faire quelques trucs mais apres, avec le notepad, je me suis apercu que ca ne fonctionnait pas correctement : ce netait pas les bons caracteres qui etaient ecrits...

cs_Delphiprog · Answer

Les fichiers exécutables ont une structure précisément définie (PE : Portable Executable) et n'ont rien à voir avec celle d'un fichier texte. De plus, si tu veux déclencher les antivirus en modifiant un exe, alors vas-y mais ne soit pas étonné que ton exe ne fonctionne plus après ce genre de modifications. Pour info : pour se rendre à la fin d'un TStream, il faut rechercher le dernier octet avec la méthode Seek : Stream.Seek(0, soFromEnd); Pour utiliser la méthode Write, il faut disposer d'un tampon mémoire. Exemple:

var
  Stream: TFileStream;
  Buffer: array [0..255] of byte;
begin
  Stream := TFileStream.create('NomDuFichier', fmOpenWrite);
   
  FillChar(Buffer, SizeOf(Buffer), 0);
  Stream.Write(Buffer, SizeOf(Buffer));

Evidemment, l'exemple donné ici n'est pas très réaliste puisqu'on remplit un buffer de 0 qu'on ajoute à la fin du stream.

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient. <

Niki2001 · Answer

En effet tu peux &#234;tre s&#251;r que ton exe sera foutu (pas d&#233;finitivement, heureusement). Mais si tu veux &#233;crire, utilises plut&#244;t WriteBuffer avec SizeOf:
Exemple:
var
   i: integer;
begin
   ...
   Stream.WriteBuffer(i, SizeOf(i));
end;

SizeOf, si tu ne connaissais pas, renvoie la taille en octet de la variable ou du type que tu lui transmet.
Sur ce...

Ajouter une ligne a la fin d un executable

2 réponses

Votre réponse

Discussions similaires