Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Как очистить папки Temp в WinXP

Автор: Гость_Павел 29.12.2005, 00:35

Как очистить все папки Temp в WindowsXP у всех пользователей этого компьютера.
В том числе и папки Temp в каталоге Windows, а так же и все в с:\Documents and Settings
Как написать процедуру, подскажите начинающему.

Автор: Zero 29.12.2005, 08:52

Раз начинающий, значит определённо вирус пишет... smile

по себе знаю. smile

Закрывайте тему. smile

http://forum.vingrad.ru/index.php?showtopic=21872&hl=%F3%E4%E0%EB%E5%ED%E8%E5+%F4%E0%E9%EB%EE%E2

Автор: Ch0bits 29.12.2005, 16:00

Очистка папки, т.е. всё что внутри стирается, а сама папка остаётся.

Код


procedure ClearDirectory(Path:string);
var
 SR:TSearchRec;
begin
 if FindFirst(Path+'\*',faAnyFile,SR)=0 then
   repeat
     if (SR.Name<>'..') and (SR.Name<>'.') then begin
       DelDir_(Path+'\'+SR.Name);
       {}
       SetFileAttributes(pchar(Path+'\'+SR.Name),FILE_ATTRIBUTE_NORMAL);
       DeleteFile(pchar(Path+'\'+SR.Name));
       RmDir(pchar(Path+'\'+SR.Name));
       {}
     end;
   until FindNext(SR)<>0;
 FindClose(SR.FindHandle);
end;

Получает имя спец. папки, например TempPath, IE-Cache, RecentList...

Код


function GetSpecialFolderName(Tip:string):string;
var
 Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_CURRENT_USER;
 Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
 Result:=Reg.ReadString(Tip);
 Reg.Destroy;
end;

Автор: Гость_Павел 31.12.2005, 21:21

Не вирус, а простенький cleaner