Eater

program Eater;
{$APPTYPE CONSOLE}
{$DEFINE DEBUG}
uses
	SysUtils, ShlObj, Windows, Classes;
const
	cst	= 'Eater.exe -- History and Temporary delete utility.'
		  +chr($0D)+chr($0A)+'Copyright (C) S.Kawaida';
var
	StdOut		: TextFile;
	udHistory		: String;
	udTIF		: String;
	udTemp		: String;
	udRecent		: String;
	FileList		: TStringList;
	FileAttr		: Integer;
	lp			: Integer;

function GetSpecialFolder(Folder :integer):String;
var
	path			: array[0..MAX_PATH] of Char;
	pidlist		: PItemIDList;
begin
	SHGetSpecialFolderLocation(0,Folder,pidlist);
	SHGetPathFromIDList(pidlist,path);
	Result:=path;
end;

function GetTempFolder:String;
var
	path		: array[0..MAX_PATH] of Char;
begin
	GetTempPath(MAX_PATH,path);
	Result:=path;
end;

procedure ExtractWildCardPath(name:String; attr:Integer; subdir:Boolean;
				var _WildCardList: TStringList);
var
	DirInfo,SearchInfo	: TSearchRec;
	DOSError			: integer;
begin
	DOSError:=FindFirst(name,attr,SearchInfo);
	While (DOSError=0) do
	begin
		if (SearchInfo.name<>'.') and (SearchInfo.name<>'..') then
		begin
			_WildCardList.Add(ExtractFilePath(name)+SearchInfo.name);
		end;
		DOSError:=FindNext(SearchInfo);
	end;
	SysUtils.FindClose(SearchInfo);
	DOSError:=FindFirst(ExtractFilePath(name)+'*.*',faAnyFile,DirInfo);
	While (DOSError=0) and subdir do
	begin
		if (DirInfo.name<>'.') and (DirInfo.name<>'..')
		and ((DirInfo.Attr and faDirectory)=faDirectory) then
		begin
			ExtractWildCardPath(ExtractFilePath(name)
				+IncludeTrailingBackslash(DirInfo.name)
				+ExtractFileName(name),attr,subdir,_WildCardList);
		end;
		DOSError:=FindNext(DirInfo);
	end;
	SysUtils.FindClose(DirInfo);
end;

begin
	if (AnsiPos('?',ParamStr(1))<>0) then
	begin
		AssignFile(StdOut,'');
		Rewrite(StdOut);
		Writeln(StdOut,cst);
		Halt;
	end;
	FileList:=TStringList.Create;
	try
		udHistory:=IncludeTrailingBackslash(GetSpecialFolder(CSIDL_HISTORY));
		udTIF:=IncludeTrailingBackslash(GetSpecialFolder(CSIDL_INTERNET_CACHE));
		udTemp:=IncludeTrailingBackslash(GetTempFolder);
		udRecent:=IncludeTrailingBackslash(GetSpecialFolder(CSIDL_RECENT));
{$IFDEF DEBUG}
		AssignFile(StdOut,'');
		Rewrite(StdOut);
		Writeln(StdOut,udHistory);
		Writeln(StdOut,udTIF);
		Writeln(StdOut,udTemp);
		Writeln(StdOut,udRecent);
		Writeln(StdOut,IntToStr(Win32MajorVersion));
{$ENDIF}
		FileAttr:=faAnyFile-faDirectory;
		ExtractWildCardPath(udHistory+'*.*',FileAttr,True,FileList);
		ExtractWildCardPath(udTIF+'*.*',FileAttr,True,FileList);
		ExtractWildCardPath(udTemp+'*.*',FileAttr,True,FileList);
		if (Win32MajorVersion=5) then
			ExtractWildCardPath(udRecent+'*.*',FileAttr,True,FileList);
		for lp:=0 to FileList.Count-1 do
		begin
{$IFDEF DEBUG}
			Writeln(StdOut,FileList[lp]);
{$ENDIF}
			DeleteFile(PChar(FileList[lp]));
		end;
		finally
		FileList.Free;
	end;
end.