30.11.2006, 07:18
общий
это ответ
Здравствуйте, Гутштадт В В!
Попробуйте после завершения работы удалять программно все файлы:
вот пример поиска и удаления файлов:
procedure TForm1.Button1Click(Sender: TObject);
var sr: TSearchRec;
begin
if FindFirst(extractfiledir(application.ExeName)+‘\HTML*.tmp‘, FAAnyFile, sr) = 0 then
begin
repeat
deletefile(extractfiledir(application.ExeName)+‘\‘+sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;