创建桌面快捷
-------------------------------------------------wjkqx=SYS(5)+CURDIR()+"数字3-彩票软件.exe"
m.cFile = '&wjkqx' && 2000 改为 c:/winnt/notepad.exe
*!* -------------------------------------------------
CreateShortcut( m.cFile, '数字3-彩票软件' )
*!* -------------------------------------------------
*!* 利用 shell 对象创建（原创）
*!* -------------------------------------------------
FUNCTION CreateShortcut( tcExeFile, tcLinkName)
LOCAL oShell, oFolder, oFile
m.oShell = CREATEOBJECT( 'Shell.Application')
m.oFolder = m.oShell.NameSpace( 0 )
STRTOFILE( '', m.oFolder.Self.Path + '/' + m.tcLinkName + '.lnk' )
m.oFile = m.oFolder.ParseName( m.tcLinkName + '.lnk' )
IF ISNULL( m.oFile )
RETURN .F.
ELSE
WITH m.oFile.GetLink()
.SetIconLocation( m.tcExeFile, 0)
.Path = m.tcExeFile
.WorkingDirectory = JUSTPATH( m.tcExeFile)
.Save()
ENDWITH
ENDIF
ENDFUNC
发上这些代码是创建桌面快捷的 但我想如果桌面已经有了 不再创建了 怎么修改代码呀
快捷已经创建了 第二次运行程序不创建了 要去判断呀 怎样修改呀
如果要试试代码 可以把文件名 修改自己电脑中有的文件名
谢谢指点
[此贴子已经被作者于2017-5-28 14:48编辑过]
