用DELPHI能怎样清理使用痕迹（2000、XP系统）？急，感谢！ ( 积分: 50 )

用DELPHI能怎样清理使用痕迹（2000、XP系统）？急，感谢！
1.清除最近使用过的文档记录
2.删除临时文件夹中的内容
3.清除“运行”、“查找”等处的历史记录
4.清除网上网上邻居的记录

你看记录都在哪些注册表跟临时文件中，然后删除对应的信息就可以了。

当然可以,首先要找到痕迹的位置.

注册表中都有相关的记录指向的文件目录,只要找到注册表中的项就可以找到痕迹的位置.

期待结果ing.....

{=================================================================
功 能: 清空回收站
参 数: 无
返回值: 无
=================================================================}
Procedure EmptyRecycleBin;
Const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;
Type
TSHEmptyRecycleBin = Function(Wnd: HWND; LPCTSTR: pchar; dword: Word): Integer; stdcall;
Var
SHEmptyRecycleBin: TSHEmptyRecycleBin;
LibHandle: THandle;
Begin
LibHandle := LoadLibrary(pchar('Shell32.dll'));
If LibHandle <> 0 Then
@SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
Else Begin
ShowMessage('Failed to load Shell32.dll.');
Exit;
End;
If @SHEmptyRecycleBin <> Nil Then
SHEmptyRecycleBin(Application.handle, '', SHERB_NOCONFIRMATION Or SHERB_NOPROGRESSUI Or SHERB_NOSOUND);
FreeLibrary(LibHandle);
@SHEmptyRecycleBin := Nil;
End;

有没有像360助手这样的清理使用痕迹的代码，我想写个小程式，电脑关机时自动清理使用痕迹

还有一个问题没有解决就是清除网上邻居的访问记录？

接受答案了.