Salut les amis je suis entrain de développer un programme , ce programme cherche les fichiers qui sont ajoute au dossier recent et prefetch et il les effaces
Voici le syntaxe
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
46
47
program chercher;
uses dos,crt;
var fichier:searchrec;
procedure prefetch;
var t:string;

begin
     textcolor(red);
           writeln('prefetch');
           delay(500);
           textcolor(white);

     findfirst('c:\windows\prefetch\*.*',archive,fichier);
     while doserror =0 do
           begin

           writeln(fichier.name);
           erase(fichier.name)//le probleme c'est dans cette ligne

                      findnext(fichier);
           end;
     end;

procedure recent;
begin
     textcolor(red);
           writeln('recent');
           delay(500);
           textcolor(white);

     findfirst('C:\Docume~1\Admini~1\Recent\*.*',archive,fichier);
     while doserror =0 do
           begin
            writeln(fichier.name);

             erase(fichier.name)//le probleme c'est dans cette                                     ligne
                      findnext(fichier);
           end;
     end;

begin
clrscr;
prefetch;
recent;
readln;
end.
et merci pour votre aide