]>
code.delx.au - gnu-emacs/blob - nt/addpm.c
1 /* Add entries to the GNU Emacs Program Manager folder.
2 Copyright (C) 1995 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any later
11 GNU Emacs is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 You should have received a copy of the GNU General Public License along
17 with GNU Emacs; see the file COPYING. If not, write to the Free Software
18 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
21 /****************************************************************************
23 * Program: addpm (adds emacs to the Windows program manager)
26 * argv[1] = install path for emacs
27 * argv[2] = full path to icon for emacs (optional)
36 DdeCallback (UINT uType
, UINT uFmt
, HCONV hconv
,
37 HSZ hsz1
, HSZ hsz2
, HDDEDATA hdata
,
38 DWORD dwData1
, DWORD dwData2
)
40 return ((HDDEDATA
) NULL
);
43 #define DdeCommand(str) \
44 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
45 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
47 #define REG_ROOT "SOFTWARE\\GNU\\Emacs\\"
57 {"EMACSLOADPATH", "%emacs_path%\\lisp"},
59 {"EMACSDATA", "%emacs_path%\\etc"},
60 {"EMACSPATH", "%emacs_path%\\bin"},
61 {"EMACSLOCKDIR", "%emacs_path%\\lock"},
62 {"INFOPATH", "%emacs_path%\\info"},
63 {"EMACSDOC", "%emacs_path%\\etc"},
76 /* Check both the current user and the local machine to see if we
77 have any resources. */
79 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE
, REG_ROOT
,
80 0, "", REG_OPTION_NON_VOLATILE
,
81 KEY_WRITE
, NULL
, &hrootkey
, &dwDisp
) != ERROR_SUCCESS
82 && RegCreateKeyEx (HKEY_CURRENT_USER
, REG_ROOT
,
83 0, "", REG_OPTION_NON_VOLATILE
,
84 KEY_WRITE
, NULL
, &hrootkey
, &dwDisp
) != ERROR_SUCCESS
)
89 for (i
= 0; i
< (sizeof (env_vars
) / sizeof (env_vars
[0])); i
++)
91 char * value
= env_vars
[i
].value
? env_vars
[i
].value
: path
;
93 if (RegSetValueEx (hrootkey
, env_vars
[i
].name
,
95 value
, lstrlen (value
) + 1) != ERROR_SUCCESS
)
99 RegCloseKey (hrootkey
);
112 char additem
[MAX_PATH
*2 + 100];
115 if (argc
< 2 || argc
> 3)
117 fprintf (stderr
, "usage: addpm emacs_path [icon_path]\n");
121 lpext
= add_registry (argv
[1]) ? "exe" : "bat";
123 DdeInitialize (&idDde
, (PFNCALLBACK
)DdeCallback
, APPCMD_CLIENTONLY
, 0);
125 ProgMan
= DdeCreateStringHandle (idDde
, "PROGMAN", CP_WINANSI
);
127 if (HConversation
= DdeConnect (idDde
, ProgMan
, ProgMan
, NULL
))
129 DdeCommand ("[CreateGroup (Gnu Emacs)]");
130 DdeCommand ("[ReplaceItem (Emacs)]");
131 sprintf (additem
, "[AddItem (%s\\bin\\emacs.%s, Emacs%c%s)]",
132 argv
[1], lpext
, (argc
>2 ? ',' : ' '),
133 (argc
>2 ? argv
[2] : ""));
134 DdeCommand (additem
);
136 DdeDisconnect (HConversation
);
139 DdeFreeStringHandle (idDde
, ProgMan
);
141 DdeUninitialize (idDde
);