때로는 프로그램에 바로가기를 추가하고 싶을 때가 있습니다. 물론 프로그램이 설치된 후 프로그램의 실행 파일을 클릭하고 마우스 오른쪽 버튼을 클릭한 후 바탕화면 바로가기 추가를 선택하면 됩니다. 그러나 때로는 자동으로 추가하고 싶을 때도 있습니다. 프로그래밍을 통해 구현하려면 어떻게 해야 할까요? 이를 달성하기 위해 API 함수를 호출할 수 있습니다. 소스 코드는 다음과 같습니다.
개인 선언 함수 fCreateShellLink Lib vb5stkit.DLL(ByVal _
lpstrFolderName을 문자열로, ByVal lpstrLinkName을 문자열로, ByVal _
lpstrLinkPath를 문자열로, ByVal lpstrLinkArgs를 문자열로)
비공개 하위 MakeShortCuts()
희미한 l반환 시간
MyPath를 문자열로 희미하게 표시
MyName을 문자열로 희미하게 표시
MyPath = 앱.경로
MyName = App.EXEName
'바탕화면에 추가
lReturn = fCreateShellLink(../../Desktop, _
Net Timer, MyPath &/& MyName 바로가기)
'스타트업 그룹에 추가
lReturn = fCreateShellLink(/start, 넷 타이머 바로가기, _
MyPath & / & MyName, )
서브 끝
아주 간단하죠?