Как очистить папку 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;

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