发信人: meichaol()
整理人: leitiger(2002-06-05 23:51:50), 站内信件
|
【 在 r.maple (红枫) 的大作中提到: 】
: 我在应用中想加一个按钮，如：给我来信 ，点击后打开默认的发信软件如outlo
: ok或foxmail
: 并将我的mail放在地址本中，如何实现？
:
: ......
reference the code like this:
Environment lEnv
string lsNull
long llReturn
String ls_URL
ls_URL = "http://www.kt.com.cn"
SetPointer( HourGlass! )
SetNull( lsNull )
IF GetEnvironment( lEnv ) = 1 THEN
IF lEnv.Win16 THEN
llReturn = ShellExecute16( Handle(Parent), 'open', ls_URL, lsNull, l
sNull, 0 )
ELSE
llReturn = ShellExecute32( Handle(Parent), 'open', ls_URL, lsNull, l
sNull, 0 )
END IF
END IF
RETURN 0
windows API Function define as follow:
// 16-bit declaration
function long ShellExecute16( long hWindow, string lpOperation, string
lpFile, string lpParameters, string lpDirectory, long nShowCmd ) Libr
ary "shell16" Alias For "ShellExecuteA"
// 32-bit declaration
function long ShellExecute32( long hWindow, string lpOperation, string
lpFile, string lpParameters, string lpDirectory, long nShowCmd ) Libr
ary "shell32" Alias For "ShellExecuteA"
good luck to u :)
--
※ 修改:．meichaol 于 Jan 25 12:01:19 修改本文．[FROM: 202.98.5.249]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.5.249]
|
|