关于扫描文件的几个问题(50分)

有没有哪位大虾能告诉小弟怎样在软件查找特定的文件是否存在，比如说我要在软件中扫描"C:/windows/sha.exe"是否存在。(另外俺希望在扫描到该文件存在的同时知道它的大小，可否?)
另外俺还想知道怎样在软件中扫描垃圾文件，以及删除,就像那些个系统优化软件一样。

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
fh:file of byte;
size:longint;
begin
s:='C:/windows/notepad.exe';
if fileexists(s) then
begin

AssignFile(fh,s);
Reset(fh); size := FileSize(fh);
CloseFile(fh);
showmessage(s+':'+inttostr(size))
end
else showmessage(s+' 不存在')
end;

判断文件是否存在用 fileexixts，文件大小用FileSizeByName或者用FileSize函数
扫描垃圾文件比较难实现，判断不出来，优化软件只是做清临时文件的作用吧!

var
iSize:Cardinal;
begin
if FileExists('c:/winnt/system32/calc.exe') then
begin
iSize := FileSizeByName('c:/winnt/system32/calc.exe');
showmessage(inttostr(iSize));
end;
end;
FileSizeByName中idglobal单元中。