co zrobić, aby program uniemożliwił usuwanie wybranych folderów znajdujących się na komputerze?
Jest to juz gdzies opisane, trzeba było zmienic mu nazwe na:
'c:\Data' na 'c:\Data.{21EC2020-3AEA-1069-A2DD-08002B30309D}'.
{21EC2020-3AEA-1069-A2DD-08002B30309D} - to identyfikator Panelu Sterowania
np.:
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var Rekord:TSHFileOpStructA;
begin
with Rekord do
begin
Wnd:=Handle;
wFunc:=FO_RENAME;
pFrom:='c:\Data';
pTo:='c:\Data.{21EC2020-3AEA-1069-A2DD-08002B30309D}';
end;
if SHFileOperation(Rekord)0 then
ShowMessage('Błąd')
end;
To przeciez nie bedziesz mogl chyba zagladnoc do srodka a nie zablokuje Ci to usuniecie.
Bubel, ja taki katalog usunąłem. Nie zabezpiecza, jest tylko głupia ikonka.
mi sie zrobiła ikonka panelu sterowania, usunąłem to, a w tym folderze był panel steroania...
To sprubuj nadać atrybut systemowy i używać stale jakiegoś pliku w środku :)
Otwierasz plik w katalogu, byle jaką metodą wystarczy ze otworzysz byle jaki, a na pewno nie jest mozliwe usunięcie katalogu, inną metoda na zab, jest na NTFS ustawienie praw dostępu, i własciciela, ale jeśli chcesz zablokować przed adminem tylko pierwsza petoda