مخفي كردن Folder

[YkA1363]

سلام به همه دوستان
عكسهاي اسكن شده در برنامه رو داخل يك پوشه ذخيره و بازيابي مي كنم. مي خوام كاربر نتونه به اين پوشه دسترسي داشته باشه. اگه راهي وجود داره لطفا به صورت ساده توضيح بدين.ممنون از لطفتون.

[Felony]

عکس ها رو به صورت کد شده داخل پوشه ذخیره کنید و در زمان بارگذاری از حالت کد در بیاریدشون ؛ در مورد عدم دسترسی به پوشه هم میتونید از نام های غیر مجاز استفاده کنید ، چند وقت پیش تو همین بخش مفصلا در موردش بحث کردم ...

[tdkhakpur]

از fileSetAttr میتوانید برای مخفی سازی فایل و دایرکتوری استفاده کنید .
البه اصولی نیست که برای رسیدن به هدفی از مسیری که ارتباطی به اون کار ندارد استفاده کنید اگر هدفتان عدم دسترسی به تصویر هست راههای مطمئنی وجود دارد اما باید مشخص کنید که با چه ابزاری برای نمایش تصویر استفاده میکنید.
در هر صورت با کد زیر میتوانید فولدر رو مخفی و ظاهر کنید.


Function HideDirectory(Const TheFile : String): Boolean;
Var
Attributes : Integer;
Begin
Result := False;
Try
Attributes := faDirectory + faHidden + faSysFile;
FileSetAttr(TheFile,Attributes);
Result := True;
Except
End;
End;
Function UnHideDirectory(Const TheFile : String): Boolean;
Var
Attributes : Integer;
Begin
Result := False;
Try
Attributes := faDirectory ;
FileSetAttr(TheFile,Attributes);
Result := True;
Except
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
HideDirectory('c:\1');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
UnHideDirectory('c:\1');
end;

[YkA1363]

مجتبي عزيز لطف مي كني آدرس بدي نتونستم پيدا كنم. ممنون از لطفت