|
Aprire una cartella di
windows
Per aprire gestione risorse alla directory
c:\windows:
Shell ("C:\WINDOWS\EXPLORER.EXE /n,/e,C:\windows") , 1
Per aprire solo una finestra:
Shell ("C:\WINDOWS\EXPLORER.EXE /n,C:\windows") , 1 |
Come ritrovare il path della directory
system
Nella sezione Dichiarazioni:
Public Const MAX_PATH = 260
Declare Function GetSystemDirectory Lib "kernel32" Alias
_"GetSystemDirectoryA"
(ByVal lpBuffer As String, ByVal _nSize As Long) As Long
Codice
Public Function GetSystemPath()
Dim strFolder As String
Dim lngResult As Long
strFolder = String(MAX_PATH, 0)
lngResult = GetSystemDirectory(strFolder, MAX_PATH)
If lngResult <> 0 Then
GetSystemPath = Left(strFolder, InStr(strFolder, _Chr(0))-1)
Else
GetSystemPath = ""
End If
End Function
Usa la funzione come nell'esempio:
Call MsgBox("La directory di sistema é" & _GetSystemPath, vbInformation) |
Come uscire da windows dalla propria
applicazione
Dichiarazione per ExitWindowsEx:
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Declare Function ExitWindowsEx Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _As Long) As Long
Per ottenere il reboot:
VarRit = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0) |
| Modificare da codice la bitmap di sfondo di
windows Nota-- Questo codice è per vb4
Dichiarazioni
Declare Function SystemparametersInfo Lib "user32" Alias
"SystemParametersInfoA"(ByVal uAction As Long ,ByVal uParam As Long , lpvParam
As Any , ByVal fuWinIni As Long) As Long
Private Sub Command1_Click()
Dim vret As Long
Dim Wallpaper As String
Wallpaper = InputBox("path completo")
If Wallpaper = "" Then Exit Sub
t = SystemparametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1)
If vret = 0 Then
MousePointer = 0
MsgBox "Errore !"
End If
End Sub |
|
|
|
|