S
sdenf
Unregistered / Unconfirmed
GUEST, unregistred user!
在我用以下程序在开始菜单里建立程序组时,奇怪的是当程序在C:/Program Files下,建立程序组
时就会出错,也能建立,但是当打开该程序时,找不到执行程序,如果是其他目录则不会出现这种情况
各位是什么原因呢
if not DdeClientConv1.OpenLink then
begin
ShowMessage('无法建立 DDE 连结');
Exit;
end;
// 建立组群
sGroupDesc := '程序组';
sGroupName := '程序组';
// 组成宏指令
sMacro := '[CreateGroup(' + sGroupDesc + ',' + sGroupName + ')]';
StrPCopy(szMacro, sMacro); // 转成 Null-Term. 字串
DdeClientConv1.ExecuteMacro(szMacro, False); // 执行宏指令
// 建立 Icon 图像
sProgIcon:=trim(Form4.edit1.text)+'/zgdz.exe';
sProgDesc := '条屏播放软件';
sMacro := '[AddItem(' + sProgIcon + ',' + sProgDesc + ')]';
StrPCopy(szMacro, sMacro); // 转成 Null-Term. 字串
DdeClientConv1.ExecuteMacro(szMacro, False);
// 关闭 DDE 对话
DdeClientConv1.CloseLink;
时就会出错,也能建立,但是当打开该程序时,找不到执行程序,如果是其他目录则不会出现这种情况
各位是什么原因呢
if not DdeClientConv1.OpenLink then
begin
ShowMessage('无法建立 DDE 连结');
Exit;
end;
// 建立组群
sGroupDesc := '程序组';
sGroupName := '程序组';
// 组成宏指令
sMacro := '[CreateGroup(' + sGroupDesc + ',' + sGroupName + ')]';
StrPCopy(szMacro, sMacro); // 转成 Null-Term. 字串
DdeClientConv1.ExecuteMacro(szMacro, False); // 执行宏指令
// 建立 Icon 图像
sProgIcon:=trim(Form4.edit1.text)+'/zgdz.exe';
sProgDesc := '条屏播放软件';
sMacro := '[AddItem(' + sProgIcon + ',' + sProgDesc + ')]';
StrPCopy(szMacro, sMacro); // 转成 Null-Term. 字串
DdeClientConv1.ExecuteMacro(szMacro, False);
// 关闭 DDE 对话
DdeClientConv1.CloseLink;