StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POError 70: Permission denied running my app at startup
primarykey
Id
13711477
data
AcceptedAnswerId
13714261
AnswerCount
1
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2012-12-04T20:39:54.263
FavoriteCount
0
LastActivityDate
2012-12-05T12:07:28.300
LastEditDate
2012-12-05T12:07:28.300
LastEditorUserId
1709738
OwnerUserId
1709738
ParentId
0
PostTypeId
1
Score
2
ViewCount
989
LastEditorDisplayName
text
Body
I've made an example using this function: <pre><code>Option Explicit Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private 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 Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Private Const HKEY_CURRENT_USER As Long = &H80000001 Private Const KEY_WRITE As Long = &H20006 Private Const REG_SZ As Long = &H1 Public Function PutOnStartUp(ByVal sPath As String) As Boolean Dim hRegkey As Long If RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_WRITE, hRegkey) = 0 Then sPath = sPath & vbNullChar PutOnStartUp = RegSetValueEx(hRegkey, "My App", 0, REG_SZ, ByVal sPath, Len(sPath)) = 0 RegCloseKey hRegkey End If End Function </code></pre> <hr> TEST ONE: <pre><code>Private Sub Form_Load() Dim sPath As String sPath = App.Path & "\" & App.EXEName & ".exe" If PutOnStartUp(sPath) Then Me.BackColor = vbGreen Else Me.BackColor = vbRed End If Me.AutoRedraw = True Me.Print sPath End Sub </code></pre> <ul> <li>I compile it on the desktop.</li> <li>I execute it.</li> <li>I restart the PC and effectively executed successfully from my desktop.</li> </ul> <hr> TEST TWO: <pre><code>Private Sub Form_Load() Dim sPath As String Dim sDest As String sPath = App.Path & "\" & App.EXEName & ".exe" sDest = Environ("tmp") & "\Test.exe" If sDest <> sPath Then FileCopy sPath, sDest If PutOnStartUp(sDest) Then Me.BackColor = vbGreen Else Me.BackColor = vbRed End If End If Me.AutoRedraw = True Me.Print sPath End Sub </code></pre> <ul> <li>I compile it on my desktop.</li> <li>I execute it.</li> <li>I check that it was copied to the temporary folder.</li> <li>I delete the exe of my desktop.</li> <li>I reboot and... ¡CRASH!</li> </ul> <blockquote> Error 70: Permission denied </blockquote> What happens here? Thanks in advance...
Tags
<vb6><registry><startup>
Title
Error 70: Permission denied running my app at startup
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USharrison4
UserOwnerUserId
1. USharrison4
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 POError 70: Permission denied running my app at startup
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
2. VO
 singulars
 PostPostId
 POError 70: Permission denied running my app at startup
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.