Gracias por el comentario, una cosita, seria bueno que miren el charset declarado en el code y lo ajusten a sus necesidades porque hay caracteres que en algunos sistemas son invalidos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
'---------------------------------------------------------------------------------------
' Module : mShellElevated
' DateTime : 15/07/2008 07:32
' Author : Cobein
' Mail : cobein27@hotmail.com
' WebPage : http://cobein27.googlepages.com/vb6
' Purpose : Execute an app requesting admin rights
' Usage : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
' applications, but you may not reproduce
' or publish this code on any web site,
' online service, or distribute as source
' on any media without express permission.
'
' History : 15/07/2008 First Cut....................................................
'---------------------------------------------------------------------------------------
Option Explicit
Private Type SHELLEXECUTEINFO
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
Public Function ShellElevated( _
ByVal sPath As String, _
Optional ByVal sParameters As String, _
Optional ByVal sDirectory As String, _
Optional ByVal eWindowstyle As VbAppWinStyle = vbNormalFocus) As Long
Dim tSHELLEXECUTEINFO As SHELLEXECUTEINFO
With tSHELLEXECUTEINFO
.cbSize = Len(tSHELLEXECUTEINFO)
.lpVerb = "runas"
.lpFile = sPath
.lpParameters = sParameters
.lpDirectory = sDirectory
.nShow = eWindowstyle
.hInstApp = App.hInstance
End With
ShellElevated = ShellExecuteEx(tSHELLEXECUTEINFO)
End Function