请问用程序怎样添加菜单项到 开始->程序菜单下???(50分)

  • 主题发起人 主题发起人 flyapple
  • 开始时间 开始时间
1.首先的会建立文件与文件夹,快捷方式
2.c:/windows/Start Menu/Programs/
3.建一个文件夹就是程序组了
4.建一个文件的快捷方式或干脆把可执行文件扔到这了
5.然后看windows的Progams项
NT上有个人权限,方法类似.目录不是这个
D***e****n???
 
通过读取windows的注册表
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion
/Explorer/ShellFolders中Startup的值,你就可以知道应该把程序放到
哪里了.
 
通常[开始].[程序]是在这个位置:
WinNT - C:/Winnt/Profiles/[LogonUser]/Start Menu/Programs/
Win9X - C:/Windows/Start Menu/Programs/
另外,方栩说的注册表主键 HKEY_CURRENT_USER/Software/Microsoft/
Windows/CurrentVersion/Explorer/ShellFolders 有些不太好,微软
的官方建议是使用主键 HKEY_CURRENT_USER/Software/Microsoft/Windows/
CurrentVersion/Explorer/<b>User Shell Folders</b>。
而想用程序怎样添加菜单项到[开始].[程序]菜单下,只要在上面讲到的地方添
加快捷方式就好了。
 
简单的用installshield安装即可.
 
看看这个问题:
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=152629
 
第一种方法,修改注册表
第二种方法,修改文件目录
上面都提到了
第三种方法,程序
要产生程序组, 常用的方法是与ProgMan进行 DDE 对话,执行ProgMan事先预备好
的宏集, 关於这些, 以下有一个例子您可以参考看看:
步骤:
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. 保存后, 执行看看吧!
 
时间太久,强制结束。 wjiachun
 
后退
顶部