jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 26 janv. 2006 à 16:38
salut,
fais tout simplement:
AssignFile(F, 'C:`\animaux\Crapaud.exe');
je te donnes la description de l'aide:
Syntaxe Delphi :
procedure AssignFile(var F; FileName: string);
Description
Appelez AssignFile pour initialiser une variable fichier dans le code
Delphi. F est une variable fichier d'un type quelconque. FileName est
une expression de type chaîne ou de type PChar si la syntaxe étendue a
été activée.
Après l'appel à AssignFile, F reste associée au fichier externe jusqu'à
ce que ce dernier soit fermé. Toutes les opérations sur F
agissent sur le fichier externe nommé par FileName.
Si le paramètre FileName est vide, F est associée au fichier standard
en entrée ou en sortie. Après un appel à Reset (F) et si le nom affecté
est vide, F fait référence au fichier standard en entrée, et après un
appel à Rewrite (F) et si le nom affecté est vide, F fait référence au
fichier standard en sortie.
N'utilisez pas AssignFile avec une variable correspondant à un fichier déjà ouvert.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 26 janv. 2006 à 17:09
salut,
un petit exemple aussi simple qu'inutile :
procedure TForm1.Button18Click(Sender: TObject);
var MyFile: file of Byte; // pour un Fichier Exe
buffer : Array[0..255] of Byte;
aStr : String; I : Integer;
Begin try AssignFile(MyFile, 'aTest.exe');
Reset(MyFile);
Seek(MyFile, soFromBeginning);
BlockRead(MyFile, Buffer, SizeOf(Buffer));
finally CloseFile(MyFile);
end; For I :0 to 15 <gras>do aStr :</gras> aStr + IntToStr(Buffer[I]) + ','; // on affiche les 16 premiers Bytes
Label1.Caption:= aStr;
End;
MyFile : TextFile; // Pour un Fichier Texte
pour l'autre question désolé mais je n'ai rien trouvé