Как очистить папку History? [D6, Win95/98]
Sound © (2004-01-23 17:27:00)
При разработке программы возникла необходимость очистки папки
History ("Журнал") Windows, может кто подскажет какие-нибудь
функции (может уже есть WinAPI?) либо подкинте доков..
Barmutik (2004-01-25 14:03:00) [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;
Наверх 
ЧАТ |
Орешник |
|
