Discussion :

[MonPc]

Bonjour a tous et a toute ,
SVP je veux inclure un fichier texte dans mon executable avec posssibilité de :
1- Ecrire dans mon fichier texte.
2- Consulter et modifier mon fichier text .
tous ca dans un fichiet text qui ce situe dans mon executable .
est t il possible ?
bonne soirée.

[philnext]

Euh..oui c'est possible.
Mais disons que modifier un exécutable n'est intéressant que dans des cas très précis (et rares !!). De plus la majorité des antivirus va gueuler.
Si tu nous disais pourquoi tu veux faire ça on te donnerais peut être d'autres solutions.

[ShaiLeTroll]

1- Explique ton problème, une aute solution existe ! je suis aussi d'accord avec PhilNext

1- Tu peux le faire de façon assez simple ... mais potentiellement risqué

Ton programme se lance pour la première fois, il ne contient rien ...
Ton programme se duplique sous un autre nom (genre Programme.New)
Ton programme vie sa vie
Ton programme se ferme (après la boucle Run dans le DPR)
A ce moment là, tu ouvre la duplication comme un binaire, tu insères à la fin, la taille du fichier texte + un checksum + le fichier texte + la taille du fichier texte + FF FF FF FF...
tu génère un fichier BAT, qui va en boucle tenter de renommer l'ancien exe en autre chose, puis renommer le nouvel exe avec le bon nom ...
Ton programme se fini totalement
le fichier BAT peut faire son travail ...


ton programme se lance pour la seconde fois (valable pour la 1ère aussi)
Il se lit lui-même, il va lire les 4 derniers octets si c'est FF FF FF FF, il lit les 4 suivtans c'est la longueur du texte, il va donc lire, les 8 octets à partir de la fin en reculant de "8 + la longueur lu", il tombe donc sur la longueur de la chaine que l'on a répétée, si les valeurs sont égales, il va lire le texte, calculer le checksum, et si c'est bon, il se copie lui même sans le texte, écrit le texte dans un fichier temporaire, et continue sa vie
...

lol, c'est la bonne Uzinagaz, mais ça doit être drôle à faire, il doit y avoir d'autres méthodes, un pote l'avait fait, il avait mis des marqueurs dans son exe, et modifiait entre les deux marqueurs, mais modifier au milieu, hum risqué ... à la fin, c'est tout simplement ignoré ...

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
:LoopDeleteBack
DEL "Programme.exe.Back"
IF EXIST "Programme.Exe.Back" GOTO LoopDeleteBack
 
:LoopRenameOld
RENAME "Programme.Exe" "Programme.exe.Back"
IF NOT EXIST "Programme.exe.Back" GOTO LoopRenameOld
 
:LoopDeleteOld
DEL "Programme.Exe"
IF EXIST "Programme.Exe" GOTO LoopDeleteOld
 
:LoopRenameNew
RENAME "Programme.New" "Programme.exe"
IF NOT EXIST "Programme.exe" GOTO LoopRenameNew
 
DEL "Fichier.Bat"

[MonPc]

Bonjour et merci pour vos reponse ,
je vous vous dire ce que je veux exactement :
je veut enregister la date de démarage de logiciel ainsi la clé d'autorisation dans mon fichier executable c-a-d je veux ecrire dans mon executable ,
je ne veux pas ecrire dans la base de registre ni les fichier Ini : est il possible ?

[ShaiLeTroll]

Et Quel en sera l'utilité ?
Une sécurité ?
Il suffira de copier l'exe avant de le lancer pour la première fois, et lorsque l'original ne voudra plus se laner à cause de la license, il suffira de relancer la copie ...

[MonPc]

Bonjour merci baucoup ShaiLeTroll pour ton interet
mais SVP est il possible de faire ca ?

[philnext]

Jette un coup d'oeil là dessus : http://www.torry.net/authorsmore.php?id=3984

[Paul TOTH]

j'ai regardé le code le ExeMod, sa fonction AlterExe est une rustine

il enregistre l'exe dans un fichier temporaire qu'il execute pour pouvoir modifier l'original

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure AlterExe;
begin
 if (Exe) <> '' then
 begin
   String2File(Exe, 'temp0a0.exe');
   ShellExecute(0, 'open', PChar('temp0a0.exe'),
     PChar('"'+ExtractFilename(Application.ExeName)+'"'), nil, SW_SHOW);
   Application.Terminate;
 end;
end;

il me semble - mais je n'ai pas vérifié - que depuis Windows 2000 ou XP il est possible de modifier un executable ouvert...voir UpdateResource

[MonPc]

bonjour ;
et baucoup pour Vous,
philnext c'est exactement ce que je cherche .
c'est pour ça je vais mettre