通過DDE創建程序組和快捷方式

若要在應用程序執行過程中動態創建程序組和快捷方式，可以通過向程序管理器發送DDE命令來完成。實現過程如下：

在Form上放一個 TDDEClientConv控件，命名為：DdeClientConv1，將其DdeService屬性設置為ProgMan，DdeTopic設置為Progman，ConnectMode設置為ddeManual。添加一個“創建”按鈕，並編寫如下代碼：

DdeClientConv1.OpenLink {打開DDE會話}

sMacro:=′[CreateGroup(′＋′新建程序組′＋′,′ ＋′Test′＋′)]′;{宏}

StrPCopy(szMacro, sMacro);{將宏復制到字符緩沖區}

DdeClientConv1.ExecuteMacro(szMacro, False);{執行宏}

sProgIcon:=′C:WindowsNotepad.Exe′;{快捷方式命令行}

sProgDesc:=′記事本′;{快捷方式描述}

sMacro:= [AddItem(′ ＋ sProgIcon ＋ ′,′ ＋ sProgDesc ＋ ′)]′;

StrPCopy(szMacro, sMacro);

DdeClientConv1.ExecuteMacro(szMacro, False);

DdeClientConv1.CloseLink; {關閉DDE會話}

sMacro:=′[DeleteGroup(″附件″)]′;{刪除“附件”組}

sMacro:=′[ShowGroup(″啟動″)]′;{顯示″啟動″組}