Witam
- Jak sprawdzić, co jest w koszu i czy te rzeczy zostały usunięte przez użytkownika?
- Jak "schwytać" polecenie użytkownika odnośnie usuwania plików? (Niektórzy mają ustawione, aby pliki od razu usuwać)
- Jak zablokować możliwości usuwania plików w WIN95/98/ME?
- można to podwójnie chcarkateryzować:
- przez przeglądniecie kosza:
na formę daj komponent TShellListView (zakładka Samples), kliknij dwukrotnie. W polu "Use Standard folder" zaznacz "rfRecycleBin"
i mas zpodgląd kosza
- jak chcesz sprawdzić czy jakiś plik '1.bmp' jest w koszu wówczas:
w Oncreate formy wpisz
uses registry;
*****
procedure TForm1.FormCreate(Sender: TObject);
var Rejestr : TRegistry;
name, i : string;
begin
Rejestr := TRegistry.Create;
Rejestr.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer',False);
i := Rejestr.ReadString('Logon User Name');
name := '1.bmp'; {wpisz nazwę pliku, którego obecnosc w koszu sprawdzamy}
if FileExists('C:\Documents and Settings'+ i +'\recent'+name +'.lnk') {nie usuwaj tego kawałku '.lnk', ponieważ w koszu są linki do programów}
then
ShowMessage('Plik o nazwie '+ name + ' jest w koszu. Jego lokalizacja to: C:\Documents and Settings'+ i +'\recent')
else
begin
ShowMessage('Pliku o nazwie '+ name + ' nie ma w koszu.');
end;
Rejestr.Free;
end;
pozdraiwam