テキストエディタＱＸ　5

'選択文字列 を googleで検索する
' ブラウザ.exeファイル名を指定する（レジストリに登録されないものはフルパスで）
' なお、ヌル文字列を指定した場合は既定のブラウザが使用される
'const browser$ = """G:\bin\INET\Donut RAPT\Donut.exe"""
'const browser$ = "iexplore.exe"
const browser$ = ""

const URL$ = "http://www.google.co.jp/search?hl=ja&q="

dllname "shell32.dll"
const SW_SHOWNORMAL = 1
cdeclare int ShellExecute(HWND, LPSTR, LPSTR, LPSTR, LPSTR, long*);

dllname "advapi32.dll"
const ERROR_SUCCESS = 0
const HKEY_CLASSES_ROOT = &H80000000
const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_USERS = &H80000003
const HKEY_CURRENT_CONFIG = &H80000005
const HKEY_DYN_DATA = &H80000006
cdeclare long RegOpenKey(long, LPCSTR, long*);
cdeclare long RegCloseKey(long);
cdeclare long RegQueryValueEx(long, LPCSTR, long, long, LPSTR, long*);