روش ساخت فایل های مخفی و سیستمی

[sina_saravi1]

سلام

میخواستم ببینم که چطوری میشه فایل باخصوصیات هیدن وسیتمی ایجاد کرد

من تو دو تا کتاب دنبالش گشتم ولی پیدا نکردم.
لطفا کسی اگه چیزی میدونه کمک کنه

[3dboy1]

با سلام
به اينجا سر بزن :
http://barnamenevis.org/forum/showthread.php?t=131469

[debugger]

این یه مثال هست که من تو دایرکتوری ویندوز فایلی بنام rundll.exe را سوپر هیدن کردم


Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

================================================== ==============
SetAttr Windir & "\Rundll.exe", vbHidden + vbSystem + vbArchive

================================================== =====
Private Function Windir()
Dim WinPath As String
WinPath = String(255, vbNullChar)
GetWindowsDirectory WinPath, 255
Windir = Left(WinPath, InStr(WinPath, vbNullChar) - 1)
End Function