Ecrire un fichier textes sous bloc-notes [Résolu]

- - Dernière réponse : cs_jeje2
Messages postés
72
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
27 décembre 2012
- 19 août 2005 à 09:52
Bonjour à tous

Imaginez que vous avez un bouton OK dans une FORM. Quand vous cliquez sur le bouton OK, le bloc-note de windows s'ouvre. Une phrase comme "SALUT A TOUS" s'écrit en son équivalent binaire dans le bloc-note. Ensuite le bloc-note enregistre cela sous le fichier COUCOU par exemple. Finalement le bloc-note se referme tout seul. Si quelqu'un a une idée de source merci car la je suis dans la panade.

Merci d'avance
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
72
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
27 décembre 2012
3
Merci
Dans ton programme, crée un fichier ou tu écrit "SALUT A TOUS" puis enregistre le sous coucou.txt

Après ouvre ton fichier avec le bloc-note.


procedure TForm1.Button1Click(Sender: TObject);

var

laFichierSave : TextFile;

lsLigneDeTexte : String;

begin

AssignFile(laFichierSave,'C:\coucou.txt');

Rewrite(laFichierSave);

Writeln(laFichierSave,'SALUT A TOUS');

CloseFile(laFichierSave);

ShellExecute(Handle,'OPEN','C:\coucou.txt',Nil,Nil,SW_SHOWNORMAL);

end;


jéjé

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 206 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_jeje2