{"id":317,"date":"2009-05-04T22:49:22","date_gmt":"2009-05-05T01:49:22","guid":{"rendered":"http:\/\/leandroascierto.com\/blog\/?p=317"},"modified":"2011-08-27T08:30:12","modified_gmt":"2011-08-27T11:30:12","slug":"inicio-de-aplicacion-con-windows","status":"publish","type":"post","link":"https:\/\/leandroascierto.com\/blog\/inicio-de-aplicacion-con-windows\/","title":{"rendered":"Inicio de Aplicaci\u00f3n con Windows"},"content":{"rendered":"

Este es un m\u00f3dulo bas que sirve para que nuestra aplicaci\u00f3n se inicie junto con Windows, no es nada novedoso, modifica las claves del registro mediante Apis.
\nCuenta con dos funciones:
\n– SetAutoRun<\/em>: Con un par\u00e1metro Boolean, si \u00e9ste es verdadero ancla nuestra aplicaci\u00f3n al inicio, de lo contrario la quita, la funci\u00f3n deber\u00eda retornarnos un valor verdadero si es que todo sali\u00f3 bien.
\n– IsAutoRun<\/em>: Devuelve \u00abtrue\u00bb si nuestra aplicaci\u00f3n ya est\u00e1 en el inicio<\/p>\n

\n

\r\nOption Explicit\r\n\r\nPrivate Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long\r\nPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long\r\nPrivate Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long\r\nPrivate Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)\r\nPrivate Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long\r\nPrivate Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long\r\nPrivate Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)\r\n\r\nPrivate Const RAMA_RUN_WINDOWS As String = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run"\r\nPrivate Const HKEY_CLASSES_ROOT = &H80000000\r\nPrivate Const HKEY_CURRENT_USER = &H80000001\r\nPrivate Const HKEY_LOCAL_MACHINE = &H80000002\r\nPrivate Const HKEY_USERS = &H80000003\r\nPrivate Const REG_SZ As Long = 1\r\nPrivate Const KEY_ALL_ACCESS = &H3F\r\n\r\nPublic Function SetAutoRun(Value As Boolean) As Boolean\u00a0\r\n    Dim Path          As String\r\n    Dim Handle        As Long\u00a0\r\n    Path = Chr(34) & App.Path & "\\" & App.EXEName & ".exe" & Chr(34)\u00a0\r\n    RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle\r\n    If Value Then\r\n        SetAutoRun = RegSetValueExString(Handle, App.Title, 0&, REG_SZ, Path, Len(Path)) = 0\r\n    Else\r\n        SetAutoRun = RegDeleteValue(Handle, App.Title) = 0\r\n    End If\r\n    RegCloseKey Handle\u00a0\r\nEnd Function\r\n\r\nPublic Function IsAutoRun() As Boolean\u00a0\r\n    Dim Path          As String\r\n    Dim Handle        As Long\r\n    Dim Data          As String\r\n    Dim cch           As Long\u00a0\r\n    Path = Chr(34) & App.Path & "\\" & App.EXEName & ".exe" & Chr(34)\u00a0\r\n    RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle\r\n    RegQueryValueExNULL Handle, App.Title, 0&, 0&, 0&, cch\r\n\r\n    If cch > 0 Then\r\n        Data = String(cch - 1, 0)\r\n        RegQueryValueExString Handle, App.Title, 0&, 0&, Data, cch\r\n        IsAutoRun = Path = Data\r\n    End If\u00a0\r\n    RegCloseKey Handle\u00a0\r\n\r\nEnd Function\r\n<\/pre>\n
\n
\n","protected":false},"excerpt":{"rendered":"
Este es un m\u00f3dulo bas que sirve para que nuestra aplicaci\u00f3n se inicie junto con Windows, no es nada novedoso, modifica las claves del registro mediante Apis. Cuenta con dos funciones: – SetAutoRun: Con un par\u00e1metro Boolean, si \u00e9ste es verdadero ancla nuestra aplicaci\u00f3n al inicio, de lo contrario la quita, la funci\u00f3n deber\u00eda retornarnos […]<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[29],"tags":[83,82],"class_list":["post-317","post","type-post","status-publish","format-standard","hentry","category-modulos","tag-registro","tag-registry","category-29-id","post-seq-1","post-parity-odd","meta-position-corners","fix"],"_links":{"self":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/317","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/comments?post=317"}],"version-history":[{"count":2,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/317\/revisions"}],"predecessor-version":[{"id":531,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/317\/revisions\/531"}],"wp:attachment":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/media?parent=317"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/categories?post=317"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/tags?post=317"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}