Скачать: CL | DM;

Как очистить папку History?   Найти похожие ветки 

← →
Sound   (2004-01-23 17:27) [0]

При разработке программы возникла необходимость очистки папки History ("Журнал") Windows, может кто подскажет какие-нибудь функции (может уже есть WinAPI?) либо подкинте доков..

---

← →
Barmutik ©   (2004-01-25 14:03) [1]

Вообщем там много кода ещё .. если надо то напиши на почту...

procedure ClearHistory;
var
 HistoryStg: IUrlHistoryStg2;
 H: THandle;
 s: string;
begin
 try
   HistoryStg := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg2;
   if HistoryStg <> nil then
     HistoryStg.ClearHistory;
 except
 end;

 if DeleteFirstCacheEntry(H, "Visited") = S_OK then
   repeat
   until DeleteNextCacheEntry(H, "Visited") = ERROR_NO_MORE_ITEMS;
 FindCloseUrlCache(H);

 s := GetUserShellFolder("History");
 if s = "" then
   Exit;
 ClearTree(PAnsiChar(s), False);
 except
   on E: Exception do
   begin
     raise;
   end;
 end;

function ClearTree(const Path: string; DeleteRoot: Boolean): Boolean;
begin
 Result := ClearTreeEx(Path, DeleteRoot, False, nil);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c