FileFindFirstFile() 1

[FlamingClaw]

Hello for everyone!
I'm working a great project,that's name is "Unatended WindowsXp"
The idea is not really new,and not is mine,but I can do that too...Some files during Windows setup will be copying to the 'TempInstall' dir of the system drive.They'll be installing silently.And here comes my little problem:after installation I wanna delete this temprorary setup files from the system drive...So the question is there any function or procedure that uses the following things like these:

"FileFindFirstFile()"seekin' of the setup files,and when it find one then a new function should goes like "FileFindNextFile()" that will be keep searching for the remaining files .....

These codes can be write in 'AUTOIT' scripting but I wanna to write that in Pascal.....
Someone could help me?

 

[feherke]

Hi

In Pascal you have [tt]FindFirst[/tt] and [tt]FindNext[/tt] in the [tt]dos[/tt] unit.

  [b]uses[/b] dos;
  [b]var[/b] sea:SearchRec;
[b]begin[/b]
  FindFirst([i]'tempdir\*.*'[/i],AnyFile,sea);
  [b]while[/b] DosError=0 [b]do[/b] [b]begin[/b]
    Write(sea.name,[i]' is a '[/i]);
    [b]if[/b] sea.attr and Directory=Directory [b]then[/b] Writeln([i]'directory'[/i]) [b]else[/b] Writeln([i]'regular file'[/i]);
    FindNext(sea);
  [b]end[/b];
[b]end[/b].

Feherke.

http://rootshell.be/~feherke/