delphi 编程技巧

				用ＤＥＬＰＨＩ如何建立程序组？ (2000年11月30日) 
				
				本站更新  分类:   作者:srw  推荐:   阅读次数:593  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				要产生程序组, 常用的方法是与程序管理员进行 DDE 对话,呼叫程式管理员事先预备好
				的宏集, 关於这些, 以下有一个例子您可以参考看看:
				步骤：
				
				1. File | New Project
				2. 在 Form 中安置一个 TDDEClientConv 控件
				3. 对於 DdeClientConv1, 在 Object Inspector 中点一下 DdeService 这个属性,
				然后点一下在其右方'...'的按钮, 然后在 DdeService 这栏填入 ProgMan，在
				DdeTopic 这栏填入 Progman 。
				4. 对于 DdeClientConv1 将 ConnectMode 设为 ddeManual
				5. 在 Form1 中安排一个 TButton
				6. 在 Button1 的 OnClick 事件:
				procedure TForm1.Button1Click(Sender: TObject);
				var
				sMacro: String;
				szMacro: Array[0..254] of Char;
				sGroupDesc, sGroupName: String;
				sProgDesc: String;
				sProgIcon: String;
				begin
				// 打开对话通路 
				if not DdeClientConv1.OpenLink then begin
				ShowMessage('无法建立 DDE 连结');
				Exit;
				end;
				// 建立组群 
				sGroupDesc := '纯测试的 Group';
				sGroupName := 'Test';
				// 组成宏指令 
				sMacro := '[CreateGroup(' + sGroupDesc + ',' + sGroupName + ')]';
				StrPCopy(szMacro, sMacro); // 转成 Null-Term. 字串 
				DdeClientConv1.ExecuteMacro(szMacro, False); // 执行宏指令 
				// 建立 Icon 图像 
				sProgIcon := 'c:\windows\notepad.exe';
				sProgDesc := '记事本';
				sMacro := '[AddItem(' + sProgIcon + ',' + sProgDesc + ')]';
				StrPCopy(szMacro, sMacro); // 转成 Null-Term. 字串 
				DdeClientConv1.ExecuteMacro(szMacro, False);
				// 关闭 DDE 对话 
				DdeClientConv1.CloseLink;
				end;
				7. 保存后, 执行看看吧!