blokada

0

witam

kiedys gdzieś tu znalazłem źródełko programiku który blokował wybrany katalog ... a blokada polegała na tym że zmieniał go na taki rodzaj jak ma Panel sterowania. i gdy się go zablokowało i chciało się wejść do tego katalogu to się otwierał Panel sterowania ...

ma ktoś jeszcze coś takiego ??

thx z góry :P pilne :)

0

Zmien nazwę folderu z np. Nazwa na Nazwa.{645FF040-5081-101B-9F08-00AA002F954E} Folder będzie "udawał" Kosz.

0

no spox, ale mam taki kodzik :

procedure TForm1.Button1Click(Sender: TObject);
var R : TSHFileOpStructA;
begin
with R do
begin
Wnd:=Handle;
wFunc:=FO_RENAME;
pFrom:= Edit1.Text + #0;
pTo:= Edit1.Text+'.{645FF040-5081-101B-9F08-00AA002F954E}' + #0;// do katalogu...
fFlags:=FOF_NOCONFIRMMKDIR;
end;
if SHFileOperation(R)<>0 then
ShowMessage('Błąd')
end;

i gdy chce zmienic żeby ścieżke katalogu brał z Edit1 to wyskakuje błąd :/

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