Hidden attribute

[DB9633]

How can I set a program's hidden attribute so that people dont mess around with it?

[JoshT]

Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" _
    (ByVal lpFileName As String) As Long
    
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" _
    (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
 
Private Const INVALID_HANDLE_VALUE As Long = -1&
Private Const MAX_PATH As Long = 260&
Private Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10&
Private Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20&
Private Const FILE_ATTRIBUTE_COMPRESSED As Long = &H800&
Private Const FILE_ATTRIBUTE_HIDDEN As Long = &H2&
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80&
Private Const FILE_ATTRIBUTE_READONLY As Long = &H1&
Private Const FILE_ATTRIBUTE_SYSTEM As Long = &H4&
Private Const FILE_ATTRIBUTE_TEMPORARY As Long = &H100&
 
'then
Dim retval As Long 'generic return value
    Dim lngAttr As Long 'file attributes
    
    If Right$(filename, 1) <> vbNullChar Then filename = filename & vbNullChar
    
    'set the hidden bit
    lngAttr = GetFileAttributes(filename)
    retval = SetFileAttributes(filename, lngAttr Or  FILE_ATTRIBUTE_HIDDEN)