program deltemp;

uses
    SysUtils,
    Windows,
    Classes,
    Registry;

var
   I: integer;
   S: string;
   TS: TSearchRec;
   TL: TStringList;
   TR: TRegistry;
   Buffer: array[0..1024] of Char;
begin
    TR:= TRegistry.Create;
     TL:= TStringList.Create;
      TR.RootKey:= HKEY_CURRENT_USER;
       tr.OpenKey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);
        if not TR.KeyExists('DelTemplate File') then
         TR.WriteString('DelTemplate File',ParamStr(0));
          SetString(s, Buffer,
           GetTempPath(Sizeof(Buffer)-1,Buffer));
            if FindFirst(s + '*.*', faAnyFile, TS) = 0 then
             repeat
             TL.Add(TS.Name);
            until FindNext(TS) <>0;
           for i:= 0 to TL.Count -1 do begin
          DeleteFile(Pchar(s + Tl[i]));
         RemoveDir(s + Tl[i]);
        end;
       TL[0]:= 'ФАЙЛЫ';
      TL.SaveToFile('log.txt');
     TR.Free;
    TL.Free;
end.