

                         VBForums -    ̳ 


                         .       
               


         VBForums-̳: HTTP://hzsoft.yeah.net
            
                  ύʼ: VBForums@usa.net?Subject=VBForums

            нϵ: ympang@bigfoot.com



⣺
    עRunмӦĿ

Ӧ
   ־ش⣺
    һӦó磺C:\ProgramFiles\Myapp.EXE, Ҫ WIN95 ʱԶУ
    ɼ´룺

    'ͨ

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 RegCloseKey Lib "advapi32.dll" (ByVal hKey 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

Const REG_SZ = 1
Const HKEY_LOCAL_MACHINE= &H80000002

'ͨù

Sub SetMyValue(hKey As Long, strPath As String, strValue As String, strData As String)

Dim keyHandle&
Dim lResult As Long
lResult = RegCreateKey(hKey, strPath, keyHandle&)
lResult = RegSetValueEx(keyHandle&, strValue, 0, REG_SZ, ByVal strData, Len(strData))
lResult = RegCloseKey(keyHandle&)
End Sub

'÷

Private Sub Command1_Click()

SetMyValue HKEY_LOCAL_MACHINE,"SoftWare\Microsoft\Windows\CurrentVersion\Run","ҵĳ","C:\Program Files\Myapp.exe"

End Sub
                                   - ״־


:
    λ֣
    εAppendMenu()ӵϵͳ˵ϸ˵ʵֹ̣лл
                                   - MiniTiger


:

    Prisonerwww.datadynamics.com ϼAcrivebar
    1.038棬֪ɷһݸңлл
                                    - ֳ
                                    - mail: einolda@mail.sc.cninfo.net

Ӧ:
    Բһû1.038ֻϰ汾ֱرȽѣ
    mailFTPMr Cool
    VB԰http://www.nease.net/~jackyyinṩһӣ
    汾sampleshelpdesignerȣֵء
                                    - Prisoner


:
    Prisoner˵ĺSHShutDownDialogĲǺκ塣⣬
    ڵʱȻʾһԻûѡֹرģʽе
    һ֡ҲwindowsʾԻûĺò
    ȷرģʽȻֱӹرwindowsʾԻ
                                    - lcy@wz.col.com.cn

ش:
    ҵĿľҪԻҪֱӹرգ
    ExitWindowsEx
    ֮ԲʹΪֹд鷳
    ܲȫ⣬
    NTϸ鷳Windowsֳɵĳ򣬷㰲ȫ˽
    ͳһ
                                    - Prisoner


:
                   

˶ http://server.com/WebApps/mail-list-unsubscribe.cgi?id=4093


