browse.red

Red []

#system [
	#import [
		"shell32.dll" stdcall [
			ShellExecute: "ShellExecuteW" [
				hwnd         [integer!]
				lpOperation  [c-string!]
				lpFile       [c-string!]
				lpParameters [integer!]
				lpDirectory  [integer!]
				nShowCmd     [integer!]
				return:      [integer!]
			]
		]
	]
]

browse: routine [url [url!]][
	probe ShellExecute 0 #u16 "open" unicode/to-utf16 as red-string! url 0 0 1
]

browse http://github.com/red/red