816
社区成员
- 主页
- API 调用
- 基础类
- 控件与界面
- 数据库相关
- DataWindow
- 项目管理
- Web 应用
- 脚本语言
...全文
请发表友善的回复…
发表回复
xiongxiao 2003-12-12
先声明：
FUNCTION ulong ShellExecutea(ulong hwnd,ref string lpOperation,ref string lpFile,ref string lpParameters,ref string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA"
string httppath = "http://www.csdn.net/"
string ls_null
ulong ll_null
string op = "open"
string http = "http://www.sina.com.cn/"
constant ulong SW_SHOW = 1
setnull(ls_null)
setnull(ll_null)
ShellExecuteA(ll_null,op,httppath,ls_null,ls_null,SW_SHOW)
FUNCTION ulong ShellExecutea(ulong hwnd,ref string lpOperation,ref string lpFile,ref string lpParameters,ref string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA"
string httppath = "http://www.csdn.net/"
string ls_null
ulong ll_null
string op = "open"
string http = "http://www.sina.com.cn/"
constant ulong SW_SHOW = 1
setnull(ls_null)
setnull(ll_null)
ShellExecuteA(ll_null,op,httppath,ls_null,ls_null,SW_SHOW)
lmby 2003-12-12
string ls_ie, ls_link, ls_url
registryget( 'HKEY_CLASSES_ROOT\Applications\iexplore.exe\shell\open\command', '', regstring!, ls_ie )
ls_ie = left( ls_ie, len( ls_ie ) - 2 )
ls_url = 'www.sina.com.cn'
run( ls_ie + ls_url )
registryget( 'HKEY_CLASSES_ROOT\Applications\iexplore.exe\shell\open\command', '', regstring!, ls_ie )
ls_ie = left( ls_ie, len( ls_ie ) - 2 )
ls_url = 'www.sina.com.cn'
run( ls_ie + ls_url )
jlwei888 2003-12-12
可直接用statichyperlink 、picturehyperlink 控件，
也可以用run函数
也可以用run函数