| 投稿日 | ： 2007/06/12(Tue) 11:07 |
| 投稿者 | ： MOONEY |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Windows Vistaのスタートアップへの登録・削除 |
> 追加/削除は、どのように行っているのでしょうか?
このような感じです。
'=================================
'***** OSバージョンを取得
'=================================
If IsWindows95 Then
wkStartUp = "StartUp"
Else
wkStartUp = "AllUsersStartUp"
End If
Set objWS = CreateObject("WScript.Shell")
strStartUp = objWS.specialfolders((wkStartUp))
wkLnkPath = strStartUp & "\" & cLnk
wkExePath = App.Path & "\" & cExe
'***** スタートアップ登録
If idx = 0 Then
'***** スタートアップに常駐プログラムのショートカットを登録
Set objSC = objWS.CreateShortcut(wkLnkPath)
objSC.TargetPath = wkExePath
objSC.IconLocation = wkExePath + ",0" 'ショートカットアイコン指定
objSC.Save
'***** メモリ解放
Set objSC = Nothing
Set objWS = Nothing
'***** キャプション名を与えてハンドルを取得
If Len(cstrCapName) Then
hwnd = FindWindow(vbNullString, cstrCapName)
If hwnd <> 0 Then Exit Sub
End If
'***** 常駐プログラムの起動
If Dir$(wkExePath) <> "" Then '存在チェック
Shell cExe, vbNormalFocus
End If
'***** スタートアップ削除
Else
If Dir$(wkLnkPath) <> "" Then
'***** スタートアップに常駐プログラムのショートカットを削除
Kill strStartUp & "\" & cLnk
End If
'***** 常駐プログラムのプロセスをKill
Call hwndAcquire
End If
Exit Sub