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:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

//
// delete files during next reboot (code by sakura)
//
function DeleteFileDuringNextSystemBoot(aFileName: string): Boolean;
var
  ShortName,
  winini    : string;
  os        : TOSVersionInfo;
  ts        : array of string;
  f         : TextFile;
  i         : integer;
begin
  Result := False;

  // get OS version
  os.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
  GetVersionEx(os);

  case os.dwPlatformId of
    // not supported by Win32s
    VER_PLATFORM_WIN32s:
      exit;
    // NT systems
    VER_PLATFORM_WIN32_NT:
      Result := MoveFileEx(pchar(aFileName),
        nil,
        MOVEFILE_REPLACE_EXISTING + MOVEFILE_DELAY_UNTIL_REBOOT);
    // 9x systems
    else begin
      // get Windows folder
      SetLength(winini,MAX_PATH+1);
      SetLength(winini,GetWindowsDirectory(@winini[1],MAX_PATH+1));

      if(winini <> '') then begin
        if(winini[length(winini)] <> '\') then
          winini := winini + '\';
        winini   := winini + 'wininit.ini';

        // get short name of the given file
        SetLength(ShortName,MAX_PATH+1);
        SetLength(ShortName,
          GetShortPathName(@aFilename[1],@ShortName[1],MAX_PATH+1));

        // add it to "wininit.ini" to delete
        // during next reboot
        SetLength(ts,0);

        {$I-}
        // get old file´s content
        AssignFile(f,winini);
        ReSet(f);
        if(IoResult = 0) then begin
          while(not eof(f)) do begin
            SetLength(ts,length(ts)+1);
            ReadLn(f,ts[length(ts)-1]);

            if(lstrcmpi('[rename]',pchar(ts[length(ts)-1])) = 0) then begin
              SetLength(ts,length(ts)+1);
              ts[length(ts)-1] := 'NUL='+ShortName;
            end;
          end;
          CloseFile(f);
        end;

        if(length(ts) = 0) then begin
          SetLength(ts,2);
          ts[0]            := '[rename]';
          ts[1] := 'NUL='+ShortName;
        end;

        // create new!
        ReWrite(f);
        Result := (IoResult = 0);
        if(Result) then begin
          for i := 0 to length(ts) - 1 do
            WriteLn(f,ts[i]);

          CloseFile(f);
        end;
        {$I+}

        SetLength(ts,0);
      end;
    end;
  end;
end;                    

1:

C:\Dokumente und Einstellungen\[Username]\Cookies\index.dat