아래 소스로 인터넷 익스플로러에서 검색한 사이트의 히스토리를 가져옵니다.
그런데 문제는 이번주의 검색 히스토리만 가져오는 것 같더라고요.
익스플로러 히스토리 보기를 보면 3주전 것도 가지고 오던데요.
익스플로러에서 열어본 모든 히스토리를 가져오려면 어떻게 해야하나요.
답변 부탁드려요
procedure TfrmMain.listHistoryClick(Sender: TObject);
var
T: PInternetCacheEntryInfo;
D: Cardinal;
begin
showMenu(0);
lblUrl.Clear;
D := 0;
GetUrlCacheEntryInfo(Pchar(listHistory.Items[listHistory.ItemIndex]), T, D); //Get BufferSize
GetMem(T, D);
GetUrlCacheEntryInfo(Pchar(listHistory.Items[listHistory.ItemIndex]), T, D);
lblAccess.Caption := FileTimeToDt(T^.LastAccessTime);
lblSync.Caption := FileTimeToDt(T^.LastSyncTime);
lblModify.Caption := FileTimeToDt(T^.LastModifiedTime);
lblExe.Caption := FileTimeToDt(T^.ExpireTime);
lblVisit.Caption := IntToStr(T^.dwHitRate);
lblUrl.Lines.Add(Copy(T^.lpszSourceUrlName, Pos('@', T^.lpszSourceUrlName) + 1, MAX_PATH));
FreeMem(T, D);