sMyPath:
Código: Seleccionar todo
Private Declare Function GetModuleFileNameA Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Function sMyPath() As String
'Autor: Slek
'Utilidad: Hallar la ruta del ejecutable
'Fecha: 7/03/10
'Indetectables.net
Dim szBuffer As String * 255
GetModuleFileNameA 0, szBuffer, 255
sMyPath = Replace(szBuffer, vbNullChar, vbNullString)
End FunctionCódigo: Seleccionar todo
MsgBox sMyPath
