[VB6.0] 레지스트리 등록/삭제

VB6.0 에서 레지스트리 등록 및 삭제시 아래의 예제코드를 이용하여 활용

 

<Code>

Dim Result As Integer

    

If InStr(RegGetSectionValueName("SOFTWARE\Microsoft\Windows\CurrentVersion\Run"), "junche4") = 0 then

        Result = IIf(SHRegWriteString("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "junche4", App.Path & "\" & App.EXEName & ".exe"), 1, 0)

End If

    

If Result = 0 Then

        MsgBox "시작 프로그램 등록에 실패하였습니다", vbCritical, "오류"

End If

    

If InStr(RegGetSectionValueName("SOFTWARE\Microsoft\Windows\CurrentVersion\Run"), "junche4") Then

        Result = IIf(SHRegDelValue("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "junche4"), 1, 0)

End If

    

If Result = 0 Then

        MsgBox "시작 프로그램 등록에 등록된 기록을 삭제하는데 실패하였습니다", vbCritical, "오류"

End If