Mam maly problem ze znajdywaniem plików w katalogu Temporary Internet Files, oto kod:
procedure TForm1.FindFiles(Dir, Mask: String);
var
SR : TSearchRec; // rekord
List : TListItem; // pozycja w ListView
Found : Integer; // zmienna oznacza ilosc znalezionych plikow
I : WORD;
Icon : TIcon; // ikona
begin
I := 0;
ListView.Items.Clear; // wyczyszczenie komponentu
Icon := TIcon.Create; // stworzenie ikony
// wyciagniecie ikony
Icon.Handle := ExtractAssociatedIcon(hInstance, PChar('C:\Documents and Settings\Rafał Woźniak\Ustawienia Lokalne\Temporary Internet Files' + Mask), i);
ImageList1.InsertIcon(0, Icon); // wstawienie ikony do komponentu
Found := FindFirst('C:\Documents and Settings\Rafał Woźniak\Ustawienia Lokalne\Temporary Internet Files' + Mask, faAnyFile, SR ); // odnajdź pliki
while ( Found = 0 ) do // rob dopoki liczba zbalezionych plikow nie rowna sie zero
begin
List := ListView.Items.Add; // stworz nowa pozycje
List.Caption := Dir + '' + SR.Name; // ustaw pozycje
List.SubItems.Add(IntToStr(SR.Size) + ' bajtów'); // dodaj rozmiar pliku
List.ImageIndex := 0; // ustaw ikone
Found := FindNext(SR); // kontynuuj przeszukiwanie
end;
FindClose(SR); // zkaoncz przeszukiwanie
Icon.Free; // zwolnij zmienna
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Wykonaj procedure na podst. maski ustawionej w komponencie
TEdit oraz katalogu z komponentu "DirectoryListBox" }
FindFiles('C:\Documents and Settings\Rafał Woźniak\Ustawienia Lokalne\Temporary Internet Files', Maska.Text);
end;
Gdy maska jest np. . odnajduje mi jakis katalog Content.IE5
Czy ten katalog ma jakis specyficzny dostęp??? Pomóżcie bo moja głowa już wysiadła w tej sprawie!