資訊好好玩

0愛的鼓勵 0訂閱站台

來源:不詳，cww重新整理

這是使用DDE的方式來做，另一個方法是在Registry中得知程式集所在的目錄，而後
在該目錄上新增一個目錄(使用MkDir)，但如何在該在該目錄內Create Shell Link呢？唉，
只好再使用以下的方式：(假設 開始 程式集 中有一CWW)

Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _
    (ByVal Forder As String, ByVal ShortCutName As String, _
     ByVal ExePath As String, ByVal Params As String) As Long


Private Sub Command1_Click()
 Dim ret As Long
 '放在程式集功能表中CWW目錄下
 ret = fCreateShellLink(".\CWW", "MyName", "c:\tools\spe3\pe2.exe", "")
End Sub

'Created by DDE '以下程式需一個Text1, List1, Command1當Form Load時會將待Create的Shell Link '放在ListBox中，這請自行修改；而Text1.Text是我們想在程式集中Create的Folder '名稱(Group名稱) Private Sub Command1_Click() Dim x As Long On Error Resume Next MousePointer = 11 Text1.LinkTopic = "Progman|progman" Text1.LinkMode = 2 Text1.LinkExecute "[CreateGroup(" + Text1.Text + ")]" For x = 0 To List1.ListCount - 1 Text1.LinkExecute "[AddItem(" + List1.List(x) + ")]" Next x Text1.LinkExecute "[ShowGroup(" + Text1.Text + ", 7)]" Text1.LinkMode = 0 MousePointer = 0 End Sub Private Sub Form_Load() List1.AddItem "c:\command.com" List1.AddItem "c:\tools\axclear.exe" End Sub