Kontrolowanie usuwanych plików

0

Witam

  1. Jak sprawdzić, co jest w koszu i czy te rzeczy zostały usunięte przez użytkownika?
  2. Jak "schwytać" polecenie użytkownika odnośnie usuwania plików? (Niektórzy mają ustawione, aby pliki od razu usuwać)
  3. Jak zablokować możliwości usuwania plików w WIN95/98/ME?
0

Witam

  1. Jak sprawdzić, co jest w koszu i czy te rzeczy zostały usunięte przez użytkownika?
  2. Jak "schwytać" polecenie użytkownika odnośnie usuwania plików? (Niektórzy mają ustawione, aby pliki od razu usuwać)
  3. Jak zablokować możliwości usuwania plików w WIN95/98/ME?
  1. 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

0
  1. Jak zablokować możliwości usuwania plików w WIN95/98/ME?

http://4programmers.net/Forum/viewtopic.php?id=48590
tam znajdziesz moją dopoweidź

1 użytkowników online, w tym zalogowanych: 0, gości: 1