用ＤＥＬＰＨＩ如何建立程序组？ (2000年7月28日).txt

自己对DELPHI学习的一点体会

用ＤＥＬＰＨＩ如何建立程序组？ (2000年7月28日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:651  
(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. 保存后, 执行看看吧!
 
 


--------------------------------------------------------------------------------