Dim hReg As Long
'■スタートアップに登録されていないか調べる
RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Run",0,KEY_ALL_ACCESS,hReg)
If RegQueryValueEx(hReg,"SSS",0,REG_NONE,0,0)=ERROR_SUCCESS Then
MessageBox(0,"登録されています","",MB_OK)
Else
MessageBox(0,"登録されていません","",MB_OK)
End If
RegCloseKey(hReg)
Dim hReg As HKEY 'Long を HKEY に変更しないとコンパイルが通らない
'■スタートアップに登録されていないか調べる
'KEY_ALL_ACCESS を KEY_QUERY_VALUE へ変更
RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Run",0,KEY_QUERY_VALUE,hReg)
If RegQueryValueEx(hReg,"SSS",0,REG_NONE,0,0)=ERROR_SUCCESS Then
MessageBox(0,"登録されています","",MB_OK)
Else
MessageBox(0,"登録されていません","",MB_OK)
End If
RegCloseKey(hReg)
Const KEY_ALL_ACCESS = (STANDARD_RIGHTS_ALL Or _
KEY_QUERY_VALUE Or _
KEY_SET_VALUE Or _
KEY_CREATE_SUB_KEY Or _
KEY_ENUMERATE_SUB_KEYS Or _
KEY_NOTIFY Or KEY_CREATE_LINK) _
And (Not SYNCHRONIZE)