急呀高手来指点一下!!!(20分)

怎么删除不了这个文件===ABC.TXT
function GetFileLocation(const Filename: string; StartAt: string):
string;
procedure Traverse(const AFolder: string);
var SearchRec: TSearchRec;
begin
if Result <> '' then Exit;
if FindFirst(AFolder+'*', faAnyFile, SearchRec) = 0 then
try
repeat
if (SearchRec.Name[1] <> '.') then
if SearchRec.Attr AND faDirectory > 0 then
Traverse(AFolder + SearchRec.Name + '/')
else
if AnsiCompareText(SearchRec.Name, Filename) = 0 then
Result := AFolder + SearchRec.Name;
until (FindNext(SearchRec) <> 0) or (Result <> '');
finally
FindClose(SearchRec);
end;
end;
begin
Result := '';
if StartAt[Length(StartAt)] <> '/' then StartAt := StartAt + '/';
Traverse(StartAt);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if ExtractFileName(GetFileLocation(ABC.TXT','c:/'))= 'ABC.TXT' then
if DeleteFile( 'connect.ini') then
showmessage('has deleted!' ) else
showmessage('no deleted!');
END:

问题已解决,

其实非常简单

怎么不说说解决方法呢?可以学习一下啊.

现在有个新的问题大家来一起讨论:
在WIN2000 XP下怎么隐藏的问题,

我是指线程隐藏,

没人来解决好烦呀

怎么是不是分少?还是高手都去旅游去了?

可能都放暑假了吧..线程没有搞过帮你提前

真是有点烦,老是没人理