Several Questions

[Steve_F]

I have two questions, all replies are helpful :

1. What is the code to make a file run on startup? I know the directory in the registry but I dont know how to add it.

2. How do I make a copy of the program? For instance the user downloads to desktop and I promt for them to sace to C:/Program Files.

[Steve_F]

No one?

[peet]

1.

Option Explicit
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData 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 REG_SZ = 1                         ' Unicode nul terminated string
Private Const REG_DWORD = 4                      ' 32-bit number
Private Const ERROR_SUCCESS = 0&
 
 
Public Enum pvpHK
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_PERFORMANCE_DATA = &H80000004
End Enum
 
Private Const pvpRunHKey = "Software\Microsoft\Windows\CurrentVersion\Run"
 
 
Private Sub savestring(ByVal Hkey As Long, strPath As String, strValue As String, strData As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegCreateKey(Hkey, strPath, keyhand)
    r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
    If r = 87 Then
        'Tom streng! -> må slettes
        DeleteValue Hkey, strPath, strValue
    End If
    r = RegCloseKey(keyhand)
End Sub
 
Private Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegOpenKey(Hkey, strPath, keyhand)
    r = RegDeleteValue(keyhand, strValue)
    r = RegCloseKey(keyhand)
End Function
 
Public Function RunAtStartup(sAppTitle As String, strsAppName As String)
         savestring pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle, sAppName
End Function
 
'usage
Private Sub Command1_Click()
    RunAtStartup App.Title, App.Path & "\" & App.EXEName & ".EXE"
End Sub

2.

don't understand your question, can you elaborate a bit ?

[manavo11]

With FileCopy?

[Steve_F]

Say the user downloads the file to "C:/Program.exe" I want it so that when the program loads, it checks if Program.exe exists in "C:/Hello" and if it doesn't there is a copy of "C:/Program.exe" put in "C:/Hello". Hope this helps clarify.

[manavo11]

Originally posted by Steve_F
Say the user downloads the file to "C:/Program.exe" I want it so that when the program loads, it checks if Program.exe exists in "C:/Hello" and if it doesn't there is a copy of "C:/Program.exe" put in "C:/Hello". Hope this helps clarify.

So is the problem detecting if it exists or to copy it? If you want to copy just use FileCopy and specify the 2 paths. If you want to check if it exists look at the codebank... There are several examples for it