|
发表于 2011-8-13 01:27:47
|
显示全部楼层
四川省成都市
function GetShellFolder(aName: string): string;
const
SCookieKey = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders ';
var
Reg: TRegistry;
begin
Result := ' ';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey(SCookieKey, False) then
Result := Reg.ReadString(aName);
finally
Reg.Free;
end;
end;
procedure DelSomeFile(aFolder, aPattern: string);
var
vFound: Integer;
SearchRec: TSearchRec;
begin
vFound := FindFirst(aFolder + '\ ' + aPattern, faAnyFile, SearchRec);
while vFound = 0 do begin
if (SearchRec.Attr and faDirectory) = 0 then
DeleteFile(aFolder + '\ ' + SearchRec.Name); //删除文件
vFound := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
----------------------------
DelSomeFile(GetShellFolder( 'Cookies '), '*@qq*.txt ');
DelSomeFile(GetShellFolder( 'Cookies '), '*@cgi-bin*.txt '); |
|