Develop start menu shortcuts
Option Explicit Private Sub Command1_Click () CreateProgManGroup Me, , Sub CreateProgManGroup (X As Type,
Microsoft Office 2010 Professional Plus, GroupName $,
Windows 7 64 Bit, GroupPath $) Dim i As Integer X.Label1.LinkTopic = Rem air circulation to ensure that DDE has time to execute For i = 1 To ten DoEvents Next X.Label1.LinkTimeout = a hundred Rem LinkExecute DDE channel is transmitted on this way command '─ ─ set up a plan group referred to as GroupName $. X.Label1.LinkExecute . Label1.LinkMode = 0 Finish Sub Sub CreateProgManItem (X As Kind, CmdLine $, IconTitle $) Dim i As Integer X.Label1.LinkTopic = ProgMan | Progman [AddItem (Label1.LinkMode = 0 Display.MousePointer = 0 Finish Sub
develop the plan right into a Progman | Progman
Text1.LinkExecute When the plan is C: System Files MyProg Prog.exe,
Windows 7 Serial, need to have to add parameters / Para crucial to a brand new venture,
Windows 7 Key, add a command button and label every 1, add the subsequent code to a run, you the desire fulfilled!
Choice Explicit Personal Sub Command1_Click () CreateGroup MyProg Prog.exe / Para , ByVal intDDE As Integer,
Office 2007 Serial, ByVal fLog As Boolean) Const strCOMMA $ = Const strENDCMD $ = = On Error Resume Subsequent Form1.Label1.LinkTopic = Form1.Label1.LinkMode = two 'to manually create a connection For i% = one To ten DoEvents Subsequent Form1.Label1.LinkTimeout = 100' set to wait for DDE response message. If Err = 0 Then Choose Situation intDDE Situation 1 'create a system merchandise Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _ strTitle & String $ (3, strCOMMA) & strENDCMD Case 2 'set up the plan group Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
Form1.Label1.LinkExecute strSHOWGRP & strGroup & strRESTORE