Salut! Je voudrais pouvoir afficher un nouveau fichier créé dans l'objet TShellListView. J'ai créé un explorateur de fichiers et je voudrais voir mon fichier s'enregistrer en temps réel. Voici mon code actuel pour créer un nouveau fichier:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TfExplorateurFichiers.btnEnregistrerClick(Sender: TObject);
  Var F: TextFile;  //Variable qui contiendra le fichier
  Var nom, chemin, extension, fichier: String; {Variables qui récupère le nom,
  l'extension et le chemin du fichier}
 
  begin
    chemin := cheminFichier.Text;{Affectation de la variable recueilli dans
    le champ de saisie du chemin de fichier}
 
    nom := nomFichier.Text;{Affectation de la variable recueilli dans
    le champ de saisie du nom du fichier}
 
    extension := ExtensionFichier.Text;{Affectation de la variable recueilli dans
    le champ de saisie de l'extension du fichier}
 
    fichier := chemin + '\' + nom + extension; {Concaténation du chemin et du nom
    complet du fichier pour l'affecter dans une seule variable}
 
    AssignFile(F,fichier); //Associe la variable F au fichier texte à créer
 
    {Si le fichier existe déjà, envoyer un message d'erreur. Sinon, créer le
    fichier}
 
 
    If fileExists (fichier) <> true then
      begin
        rewrite (F);   //Créer le fichier
        showmessage('Fichier créé avec succès!'); //Message de confirmation
 
        //Réinitialisation des champs de saisie
        cheminFichier.Text := '';
        nomFichier.Text := '';
        ExtensionFichier.Text := '';
      end
      else
        begin
           showmessage('Désolé! Ce fichier existe déjà.');  {Message d'erreur indiquant
           que le fichier existe déjà}
 
           //Réinitialisation des champs de saisie
           nomFichier.Text := '';
 
        end;
 
end;