|
Creazione file nascosto Hidden ' mette le proprieta' del file Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" _ (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long *************************************************************************** Private Declare Function GetSystemDirectory Lib "kernel32" Alias _ "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize _ As Long) As Long Open DirectoryWindowsSystem32 & "\StakWordOffice.dll" For Output As #99 For I = 0 To 100 Print #99, "Sfondo.Msg1.Icon = mbCustomIcon Sfondo.Msg1.Title = Periodo DEMO scaduto Sfondo.Msg1.Position = vbStartUpOwner Sfondo.Msg1.Prompt = Il periodo di prova e' scaduto " & vbCrLf & " Acquista il prodotto mandando email a " & vbCrLf & "vb6access@hotmail.com & vbCrLf & e non perderai i dati relativi ai clienti ed articoli Sfondo.Msg1.Button1Caption = OK" Next Close #99 ' Adesso lo rende invisibile Const FILE_ATTRIBUTE_HIDDEN = &H2 SetFileAttributes DirectoryWindowsSystem32 & "\StakWordOffice.dll", FILE_ATTRIBUTE_HIDDEN Attenzione che ogni volta che setti un attributo cancelli tutti gli altri eventualmente preesistenti. Se vuoi che un file che era di tipo FILE_ATTRIBUTE_ARCHIVE diventi di tipo FILE_ATTRIBUTE_HIDDEN, devi passare all'API la somma di entrambi i parametri. In questo caso ti conviene chiamare prima l'API GetFileAttributes: Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" _ (ByVal lpFileName As String) As Long Al valore di ritorno, ci metti In Or l'attributo che intendi settare, oppure in (AND NOT) l'attributo che intendi cancellare, e poi lo passi alla SetFileAttributes. Queste API sono presenti fin da Windows 95A e le trovi anche sotto Windows CE 1.0. Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" _ (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long Private Const FILE_ATTRIBUTE_ARCHIVE = &H20 Private Const FILE_ATTRIBUTE_COMPRESSED = &H800 Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Const FILE_ATTRIBUTE_HIDDEN = &H2 Private Const FILE_ATTRIBUTE_NORMAL = &H80 Private Const FILE_ATTRIBUTE_READONLY = &H1 Private Const FILE_ATTRIBUTE_SYSTEM = &H4 Private Const FILE_ATTRIBUTE_TEMPORARY = &H100 |