+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية جعل ملف أو مستند cacher برمجيا (/showthread.php?tid=7275)
كيفية جعل ملف أو مستند cacher برمجيا - ع الحليم - 08-11-2015
كيفية جعل ملف أو مستند cacher برمجيا
RE: كيفية جعل ملف أو مستند cacher برمجيا - salah07230 - 11-11-2015
السلام عليكم
اظف ComObj; للوحدة uses
هذا لاخفاء مجلد
procedure TForm1.Button1Click(Sender: TObject);
var
V:Variant;
F:Variant;
FolderPath: String;
begin
// Replace FolderPath with the folder's path (duh)
FolderPath := 'C:\Documents and Settings\serveur\Bureau\1';
case Button1.Tag of
0:
begin
V := CreateOleObject('Scripting.FileSystemObject');
F := V.GetFolder(FolderPath);
// -1 Makes it completly hidden from windoes explorer(works for me on xp)
F.Attributes := -1;
Button1.Tag := 1;
end;
1:
begin
V := CreateOleObject('Scripting.FileSystemObject');
F := V.GetFolder(FolderPath);
// This returns the folder to normal in windows explorer
F.Attributes := 0;
Button1.Tag := 0;
end;
end;
end;
او استعمل هذا الكود البسيط
SetFileAttributes('C:\Documents and Settings\serveur\Bureau\2', FILE_ATTRIBUTE_HIDDEN);
استعمل هذين افضل واسهل
procedure TForm1.Button2Click(Sender: TObject);
begin
SetFileAttributes('C:\Documents and Settings\serveur\Bureau\2', FILE_ATTRIBUTE_HIDDEN);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
FileSetAttr('C:\Documents and Settings\serveur\Bureau\6.txt', faHidden);
end;
RE: كيفية جعل ملف أو مستند cacher برمجيا - onexite - 13-11-2015
استخدم FileSetAttr
RE: كيفية جعل ملف أو مستند cacher برمجيا - ع الحليم - 25-11-2015
مشكورين يا إخوان على المعلومات