مخفی کردن یک فایل [بایگانی]

amin a.^2

دوشنبه 03 مهر 1385, 21:39 عصر

با سلام
من می خوام فایلهایی که نمی خوام کاربر از وجودشون با خبربشه را پنهان کنم(برای نمونه فایل پسورد)یه کاری شبیه کاری که ویندوز انجام میده باید چی کار کنم؟

vcldeveloper

سه شنبه 04 مهر 1385, 02:14 صبح

یه کاری شبیه کاری که ویندوز انجام میده باید چی کار کنم؟
ویندوز Attribute فایل ها را به Hidden و System تغییر میده. تو هم همون کار رو بکن:
SetFileAttributes

اَرژنگ

سه شنبه 04 مهر 1385, 05:29 صبح

استفاده از Registry ??

amin a.^2

سه شنبه 04 مهر 1385, 22:54 عصر

استفاده از Registry ??
ارژنگ جان استفاده از رجیستری رو خودم هم میدونم ولی کار ساده ای نیست
علی جان راه شما را هم امتحان می کنم جواب میدم
از هر دوی شما متشکرم

amin a.^2

سه شنبه 04 مهر 1385, 23:01 عصر

علی جان این ارور را میده
[Error] Unit1.pas(179): Not enough actual parameters

ghabil

سه شنبه 04 مهر 1385, 23:53 عصر

کار با رجیستری با استفاده از کلاس TRegistery بسیار کار ساده و به صرفه ای هست .

dkhatibi

چهارشنبه 05 مهر 1385, 18:31 عصر

علی جان این ارور را میده
[Error] Unit1.pas(179): Not enough actual parameters
خوب یک پارامتر براش کم می ذاری؛ یک(یا چند) پارامتر برای نوع فایل باید تعیین کنی
مثلا:

SetFileAttributes(pansichar(FileName),(FaSysFile + FaHidden+faReadonly));

سه صفت سیستمی، مخفی وفقط خواندنی را به فایل مذکور می دهد!

amin a.^2

چهارشنبه 05 مهر 1385, 20:58 عصر

دوستان خیلی ممنون تاچند روز آینده می گم کار کرد یا نه
سرم خیلی شلوغه
--------------------

کار با رجیستری با استفاده از کلاس TRegistery بسیار کار ساده و به صرفه ای هست .
با سلام
دوست عزیز اگه کار ساده اییه خواهشاً راهشا برام بذار چون من بلد نیستم

ghabil

چهارشنبه 05 مهر 1385, 23:51 عصر

Uses
Registery
...
Var
reg: Tregistery;
begin
reg:=Tregistery.create;
Try
reg.rootKey:=Hkey_Current_User;//برای مثال
if reg.openKey('مسیر مورد نظر در رجیستری',True) then//وجود اسکریپت
begin
Reg.writeString('........','DataValue') ;
Reg.CloseKey;
end;
Finally;
Reg.free;
Inherited;
End;

فقط تو گوگل زدم TRegistery جالبیش اینه تو صفحه اول توضیح فارسی هم براش پیدا شد....
کپی رایتش هم ماله این سایته : http://freefard.blogfa.com/

amin a.^2

پنج شنبه 06 مهر 1385, 20:46 عصر

Uses
Registery
...
Var
reg: Tregistery;
begin
reg:=Tregistery.create;
Try
reg.rootKey:=Hkey_Current_User;//برای مثال
if reg.openKey('مسیر مورد نظر در رجیستری',True) then//وجود اسکریپت
begin
Reg.writeString('........','DataValue') ;
Reg.CloseKey;
Finally;
Reg.free;
Inherited;
End;

فقط تو گوگل زدم TRegistery جالبیش اینه تو صفحه اول توضیح فارسی هم براش پیدا شد....
کپی رایتش هم ماله این سایته :
http://freefard.blogfa.com/
باسلام
خیلی ممنون
اما من فکر نمی کردم تو گوگل چنین چیزیم وجود داشته باشه چون چیزایه ساده تر نیست
خوب اینم از بی فکری من بوده:عصبانی++: