VFP 愛用者社區

[Ruey]

尚缺 程式集捷徑,希望各未提供



**********************************
* 用途: 建立捷徑
* 參數:
* 傳值:
* 範例:
**********************************
FUNCTION CreateShortcut
PARAMETERS tcLNK,tcProgram
LOCAL loShell,lcDesktopFolder,loShortCut

loShell = CREATEOBJECT("Wscript.shell")
lcDesktopFolder = loShell.SpecialFolders("Desktop")
loShortCut = loShell.CreateShortcut(lcDesktopFolder + "\"+tcLNK)
loShortCut.WindowStyle = 4 &&Maximized 7=Minimized 4=Normal
loShortCut.IconLocation =mgSys_Path+ "\" + tcProgram
loShortCut.TargetPath =mgSys_Path+ "\" +tcProgram
loShortCut.HOTKEY = "ALT+CTRL+F"
loShortCut.WorkingDirectory = mgSys_Path
loShortCut.SAVE

ENDFUNC

**********************************
* 用途: 開機時啟動程式
* 參數:
* 傳值:
* 範例:
**********************************
FUNCTION CreateRunShortcut
PARAMETERS tcProgram
LOCAL newValue,i,nResult

DECLARE INTEGER RegSetValue IN Win32API INTEGER nHkey,STRING cSubKey, INTEGER dwType,STRING@ lpDatainteger,INTEGER@ COUNT

&&newValue即為編譯成功后的EXE文件，再次編譯時，必須保証項目所生成的.exe文件名為newValue的值
&&#DEFINE HKEY_LOCAL_MACHINE -2147483646 &&開機自動啟動

newValue=mgSys_Path+ "\" + tcProgram
i=LEN(newValue)
nResult=RegSetValue(-2147483646,"Software\Microsoft\windows\CurrentVersion\run",1,@newValue,@i)

IF nResult#0

WAIT WIND "修改注冊表失敗！"

ENDIF

ENDFUNC

[Ruey]

尚缺程式集捷徑

[garfield]

clear

loShell = CreateObject('wScript.Shell') &&建立物件

* Windows Special folders
* Folder Windows version
* AllUsersDesktop Windows 2000
* AllUsersStartMenu Windows 2000
* AllUsersPrograms Windows 2000
* AllUsersStartup Windows 2000
* Desktop Windows 95/98, Windows 2000
* Favorites Windows 95/98, Windows 2000
* Fonts Windows 95/98, Windows 2000
* My Documents Windows 95/98, Windows 2000
* NetHood Windows 95/98, Windows 2000
* PrintHood Windows 95/98, Windows 2000
* Programs Windows 95/98, Windows 2000
* Recent Windows 95/98, Windows 2000
* SendTo Windows 95/98, Windows 2000
* Start Menu Windows 95/98, Windows 2000
* Startup Windows 2000
* Templates Windows 2000

lcLinkFileName = loShell.SpecialFolders('Desktop') + '\\測試Test.lnk'
loShortCut = loShell.CreateShortcut(m.lcLinkFileName) &&建立捷徑

with loShortCut
.TargetPath = Application.ServerName &&Run-Time執行檔
.WorkingDirectory= JustPath(Application.ServerName) &&執行檔位置
.IconLocation='C:\Jack\icon\Jack5.ico' &&Icon
.IconLocation = "notepad.exe, 0"
.WindowStyle = 7 && 最小化
.WindowStyle = 3 && 最大化
.WindowStyle = 1 && 標準
.Hotkey = "CTRL+SHIFT+F"
.Description = "大師:Jack許 指導,2001,02,03"
.Save() &&儲存捷徑
endwith

lcLinkFileName = loShell.SpecialFolders('Startup') + '\\測試Test.lnk'
loShortCut = loShell.CreateShortcut(m.lcLinkFileName) &&建立捷徑
with loShortCut
.TargetPath = Application.ServerName &&Run-Time執行檔
.WorkingDirectory= JustPath(Application.ServerName) &&執行檔位置
.IconLocation='C:\Jack\icon\Jack5.ico' &&Icon
.IconLocation = "notepad.exe, 0"
.WindowStyle = 7 && 最小化
.WindowStyle = 3 && 最大化
.WindowStyle = 1 && 標準
.Hotkey = "CTRL+SHIFT+F"
.Description = "大師:Jack許 指導,2002,07,09"
.Save() &&儲存捷徑
endwith

RELEASE loShell

[Ruey]

我利用以下程式,可以建立 開始-->程式集-->我的程式捷徑
卻不能建立 開始-->程式集-->我的公司-->我的程式捷徑
不知道該改哪裡

**********************************
* 用途: 建立捷徑
* 參數:
* 傳值:
* 範例:
**********************************
FUNCTION CreateShortcut
PARAMETERS tcLNK,tcProgram
LOCAL loShell,lcDesktopFolder,loShortCut

loShell = CREATEOBJECT("Wscript.shell")
lcDesktopFolder = loShell.SpecialFolders("AllUsersPrograms")
loShortCut = loShell.CreateShortcut(lcDesktopFolder + "\"+tcLNK)
loShortCut.WindowStyle = 4 &&Maximized 7=Minimized 4=Normal
loShortCut.IconLocation =mgSys_Path+ "\" + tcProgram
loShortCut.TargetPath =mgSys_Path+ "\" +tcProgram
loShortCut.HOTKEY = "ALT+CTRL+F"
loShortCut.WorkingDirectory = mgSys_Path

loShortCut.SAVE

ENDFUNC

[garfield]

試看看:
loShortCut = loShell.CreateShortcut(lcDesktopFolder +"\我的公司"+ "\"+tcLNK)

[Ruey]

但是我按照你的方式
卻出現錯誤訊息

[garfield]

我想可能是因為你在安裝時是給所有使用者皆可使用的捷徑, 所以它是放在allusers底下, 照字面上的意思看起來是對的, lcDesktopFolder = loShell.SpecialFolders("AllUsersPrograms") , 但看你傳回的畫面卻像是建在在使用者user的專用programs, 可能是要改寫loShell.SpecialFolders("AllUsersPrograms") 的參數吧!

[Ruey]

不管是AllUsersPrograms或是Programs
其錯誤訊息都是相同的

我猜可能是無法建立資料夾---我的公司