>>915
>>915
そこのサンプルはOSの種類を判定する部分にバグがある
直す方法は色々あるけど、とりあえず動かすだけならexeの場所を固定してやればいい
この部分でexeの場所を指定してるから、Ifを無視して必ずProgram Files (x86)になるように書き換える

'-----------------------------------------------------------------------------
' SPC10のEXEファイルをパス付きで指定する
'-----------------------------------------------------------------------------
If IsWow64() Then
　　' OSが64ビット環境
　　strExePathName = "C:\Program Files (x86)\KING JIM\TEPRA SPC10\SPC10.exe"
Else
　　' OSが32ビット環境
　　strExePathName = "C:\Program Files\KING JIM\TEPRA SPC10\SPC10.exe"
End If