Mercurial > emacs
annotate nt/addpm.c @ 110428:6060b86fc551
Merge changes made in Gnus trunk.
nnimap.el (nnimap-finish-retrieve-group-infos): Return data in the nntp buffer so the agent can save it.
nnimap.el (nnimap-open-shell-stream): Bind `process-connection-type' to nil, so that CRLF doesn't get translated to \n; (nnimap-open-connection): Don't make 'shell commands only send \n.
nnimap.el (nnimap-request-group): Don't make `M-g' bug out on group with no marks.
gnus-agent.el (gnus-agent-load-alist): Nix out the alist if the file doesn't exist.
nnimap.el (nnimap-finish-retrieve-group-infos): Protect against groups that have no articles.
nnimap.el (nnimap-request-article): Check that we really got an article when we requested one.
gnus-html.el (gnus-html-schedule-image-fetching): Ignore all errors from url-retrieve, for instance about invalid URLs.
gnus-agent.el: Change default of gnus-agent-auto-agentize-methods to nil.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 19 Sep 2010 10:45:51 +0000 |
parents | c362ff4a1555 |
children | 19b118dd1498 |
rev | line source |
---|---|
12181 | 1 /* Add entries to the GNU Emacs Program Manager folder. |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92206
diff
changeset
|
2 Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
106815 | 3 2008, 2009, 2010 Free Software Foundation, Inc. |
12181 | 4 |
14185
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
5 This file is part of GNU Emacs. |
12181 | 6 |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92206
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
14185
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
8 it under the terms of the GNU General Public License as published by |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92206
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92206
diff
changeset
|
10 (at your option) any later version. |
12181 | 11 |
14185
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
12 GNU Emacs is distributed in the hope that it will be useful, |
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
15 GNU General Public License for more details. |
12181 | 16 |
14185
aba3b91c8b3d
Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents:
13438
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
94795
188974bfdea0
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92206
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
12181 | 19 |
12329 | 20 /**************************************************************************** |
21 * | |
22 * Program: addpm (adds emacs to the Windows program manager) | |
23 * | |
24 * Usage: | |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
25 * argv[1] = install path for emacs |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
26 * |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
27 * argv[2] used to be an optional argument for setting the icon. |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
28 * But now Emacs has a professional looking icon of its own. |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
29 * If users really want to change it, they can go into the settings of |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
30 * the shortcut that is created and do it there. |
12181 | 31 */ |
32 | |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
33 /* Use parts of shell API that were introduced by the merge of IE4 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
34 into the desktop shell. If Windows 95 or NT4 users do not have IE4 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
35 installed, then the DDE fallback for creating icons the Windows 3.1 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
36 progman way will be used instead, but that is prone to lockups |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
37 caused by other applications not servicing their message queues. */ |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
38 #define _WIN32_IE 0x400 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
39 /* Request C Object macros for COM interfaces. */ |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
40 #define COBJMACROS 1 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
41 |
12329 | 42 #include <windows.h> |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
43 #include <shlobj.h> |
12329 | 44 #include <ddeml.h> |
45 #include <stdlib.h> | |
46 #include <stdio.h> | |
92206 | 47 #include <malloc.h> |
12181 | 48 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
49 HDDEDATA CALLBACK |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
50 DdeCallback (UINT uType, UINT uFmt, HCONV hconv, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
51 HSZ hsz1, HSZ hsz2, HDDEDATA hdata, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
52 DWORD dwData1, DWORD dwData2) |
12329 | 53 { |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
54 return ((HDDEDATA) NULL); |
12329 | 55 } |
12181 | 56 |
12329 | 57 #define DdeCommand(str) \ |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
58 DdeClientTransaction (str, strlen (str)+1, conversation, (HSZ)NULL, \ |
12329 | 59 CF_TEXT, XTYP_EXECUTE, 30000, NULL) |
12181 | 60 |
15130
493eee829532
(REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14185
diff
changeset
|
61 #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
62 #define REG_GTK "SOFTWARE\\GTK\\2.0" |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
63 #define REG_APP_PATH \ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
64 "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\emacs.exe" |
109756
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
65 #define REG_RUNEMACS_PATH \ |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
66 "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\runemacs.exe" |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
67 |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
68 static struct entry |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
69 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
70 char *name; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
71 char *value; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
72 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
73 env_vars[] = |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
74 { |
15130
493eee829532
(REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14185
diff
changeset
|
75 {"emacs_dir", NULL}, |
35424
36acbc3cb53e
(env_vars): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents:
31084
diff
changeset
|
76 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"}, |
20011
f9429fb3dd05
addpm.c (env_vars): Fix misplaced % in SHELL entry.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19717
diff
changeset
|
77 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"}, |
15322
eb3d8a25866a
(env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents:
15188
diff
changeset
|
78 {"EMACSDATA", "%emacs_dir%/etc"}, |
eb3d8a25866a
(env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents:
15188
diff
changeset
|
79 {"EMACSPATH", "%emacs_dir%/bin"}, |
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
80 /* We no longer set INFOPATH because Info-default-directory-list |
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
81 is then ignored. */ |
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
82 /* {"INFOPATH", "%emacs_dir%/info"}, */ |
15322
eb3d8a25866a
(env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents:
15188
diff
changeset
|
83 {"EMACSDOC", "%emacs_dir%/etc"}, |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
84 {"TERM", "cmd"} |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
85 }; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
86 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
87 BOOL |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
88 add_registry (char *path) |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
89 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
90 HKEY hrootkey = NULL; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
91 int i; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
92 BOOL ok = TRUE; |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
93 DWORD size; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
94 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
95 /* Record the location of Emacs to the App Paths key if we have |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
96 sufficient permissions to do so. This helps Windows find emacs quickly |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
97 if the user types emacs.exe in the "Run Program" dialog without having |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
98 emacs on their path. Some applications also use the same registry key |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
99 to discover the installation directory for programs they are looking for. |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
100 Multiple installations cannot be handled by this method, but it does not |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
101 affect the general operation of other installations of Emacs, and we |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
102 are blindly overwriting the Start Menu entries already. |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
103 */ |
92206 | 104 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_APP_PATH, 0, "", |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
105 REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
106 &hrootkey, NULL) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
107 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
108 int len; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
109 char *emacs_path; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
110 HKEY gtk_key = NULL; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
111 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
112 len = strlen (path) + 15; /* \bin\emacs.exe + terminator. */ |
92206 | 113 emacs_path = (char *) alloca (len); |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
114 sprintf (emacs_path, "%s\\bin\\emacs.exe", path); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
115 |
109883
c362ff4a1555
nt/addpm.c (add_registry): Create App Paths of type REG_EXPAND_SZ.
Juanma Barranquero <lekktu@gmail.com>
parents:
109756
diff
changeset
|
116 RegSetValueEx (hrootkey, NULL, 0, REG_EXPAND_SZ, emacs_path, len); |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
117 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
118 /* Look for a GTK installation. If found, add it to the library search |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
119 path for Emacs so that the image libraries it provides are available |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
120 to Emacs regardless of whether it is in the path or not. */ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
121 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_GTK, REG_OPTION_NON_VOLATILE, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
122 KEY_READ, >k_key) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
123 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
124 if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
125 NULL, &size) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
126 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
127 char *gtk_path = (char *) alloca (size); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
128 if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
129 gtk_path, &size) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
130 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
131 /* Make sure the emacs bin directory continues to be searched |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
132 first by including it as well. */ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
133 char *dll_paths; |
109756
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
134 HKEY runemacs_key = NULL; |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
135 len = strlen (path) + 5 + size; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
136 dll_paths = (char *) alloca (size + strlen (path) + 1); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
137 sprintf (dll_paths, "%s\\bin;%s", path, gtk_path); |
109883
c362ff4a1555
nt/addpm.c (add_registry): Create App Paths of type REG_EXPAND_SZ.
Juanma Barranquero <lekktu@gmail.com>
parents:
109756
diff
changeset
|
138 RegSetValueEx (hrootkey, "Path", 0, REG_EXPAND_SZ, |
c362ff4a1555
nt/addpm.c (add_registry): Create App Paths of type REG_EXPAND_SZ.
Juanma Barranquero <lekktu@gmail.com>
parents:
109756
diff
changeset
|
139 dll_paths, len); |
109756
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
140 |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
141 /* Set the same path for runemacs.exe, as the Explorer shell |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
142 looks this up, so the above does not take effect when |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
143 emacs.exe is spawned from runemacs.exe. */ |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
144 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_RUNEMACS_PATH, |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
145 0, "", REG_OPTION_NON_VOLATILE, |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
146 KEY_WRITE, NULL, &runemacs_key, NULL) |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
147 == ERROR_SUCCESS) |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
148 { |
109883
c362ff4a1555
nt/addpm.c (add_registry): Create App Paths of type REG_EXPAND_SZ.
Juanma Barranquero <lekktu@gmail.com>
parents:
109756
diff
changeset
|
149 RegSetValueEx (runemacs_key, "Path", 0, REG_EXPAND_SZ, |
109756
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
150 dll_paths, len); |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
151 |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
152 RegCloseKey (runemacs_key); |
23910b0d49d9
(add_registry): Set path for runemacs.exe to use.
Jason Rumney <jasonr@wanchan>
parents:
109480
diff
changeset
|
153 } |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
154 } |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
155 } |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
156 RegCloseKey (gtk_key); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
157 } |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
158 RegCloseKey (hrootkey); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
159 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
160 |
69449
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
161 /* Previous versions relied on registry settings, but we do not need |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
162 them any more. If registry settings are installed from a previous |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
163 version, replace them to ensure they are the current settings. |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
164 Otherwise, do nothing. */ |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
165 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
166 /* Check both the current user and the local machine to see if we |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
167 have any resources. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
168 |
69449
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
169 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
170 REG_OPTION_NON_VOLATILE, |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
171 KEY_WRITE, &hrootkey) != ERROR_SUCCESS |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
172 && RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
173 REG_OPTION_NON_VOLATILE, |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
174 KEY_WRITE, &hrootkey) != ERROR_SUCCESS) |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
175 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
176 return FALSE; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
177 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
178 |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
179 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++) |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
180 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
181 char * value = env_vars[i].value ? env_vars[i].value : path; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
182 |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
183 if (RegSetValueEx (hrootkey, env_vars[i].name, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
184 0, REG_EXPAND_SZ, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
185 value, lstrlen (value) + 1) != ERROR_SUCCESS) |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
186 ok = FALSE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
187 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
188 |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
189 RegCloseKey (hrootkey); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
190 |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
191 return (ok); |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
192 } |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
193 |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
194 int |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
195 main (int argc, char *argv[]) |
12181 | 196 { |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
197 char start_folder[MAX_PATH + 1]; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
198 int shortcuts_created = 0; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
199 int com_available = 1; |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
200 char modname[MAX_PATH]; |
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
201 char *prog_name; |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
202 char *emacs_path; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
203 char *p; |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
204 int quiet = 0; |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
205 HRESULT result; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
206 IShellLinkA *shortcut; |
12181 | 207 |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
208 /* If no args specified, use our location to set emacs_path. */ |
12329 | 209 |
69446
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
210 if (argc > 1 |
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
211 && (argv[1][0] == '/' || argv[1][0] == '-') |
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
212 && argv[1][1] == 'q') |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
213 { |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
214 quiet = 1; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
215 --argc; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
216 ++argv; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
217 } |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
218 |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
219 if (argc > 1) |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
220 emacs_path = argv[1]; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
221 else |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
222 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
223 if (!GetModuleFileName (NULL, modname, MAX_PATH) || |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
224 (p = strrchr (modname, '\\')) == NULL) |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
225 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
226 fprintf (stderr, "fatal error"); |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
227 exit (1); |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
228 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
229 *p = 0; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
230 |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
231 /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */ |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
232 if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0) |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
233 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
234 *p = 0; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
235 emacs_path = modname; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
236 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
237 else |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
238 { |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
239 fprintf (stderr, "usage: addpm emacs_path\n"); |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
240 exit (1); |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
241 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
242 |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
243 /* Tell user what we are going to do. */ |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
244 if (!quiet) |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
245 { |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
246 int result; |
22796
903554be7bfc
(main): Explicitly check result of message box for OK.
Geoff Voelker <voelker@cs.washington.edu>
parents:
20011
diff
changeset
|
247 |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
248 char msg[ MAX_PATH ]; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
249 sprintf (msg, "Install Emacs at %s?\n", emacs_path); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
250 result = MessageBox (NULL, msg, "Install Emacs", |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
251 MB_OKCANCEL | MB_ICONQUESTION); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
252 if (result != IDOK) |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
253 { |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
254 fprintf (stderr, "Install cancelled\n"); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
255 exit (1); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
256 } |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
257 } |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
258 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
259 |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
260 add_registry (emacs_path); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
261 prog_name = "runemacs.exe"; |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
262 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
263 /* Try to install globally. */ |
12329 | 264 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
265 if (!SUCCEEDED (CoInitialize (NULL)) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
266 || !SUCCEEDED (CoCreateInstance (&CLSID_ShellLink, NULL, |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
267 CLSCTX_INPROC_SERVER, &IID_IShellLinkA, |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
268 (void **) &shortcut))) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
269 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
270 com_available = 0; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
271 } |
12329 | 272 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
273 if (com_available |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
274 && SHGetSpecialFolderPath (NULL, start_folder, CSIDL_COMMON_PROGRAMS, 0)) |
12181 | 275 { |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
276 if (strlen (start_folder) < (MAX_PATH - 20)) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
277 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
278 BOOL retval; |
12329 | 279 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
280 strcat (start_folder, "\\Gnu Emacs"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
281 if (CreateDirectory (start_folder, NULL) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
282 || GetLastError () == ERROR_ALREADY_EXISTS) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
283 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
284 char full_emacs_path[MAX_PATH + 1]; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
285 IPersistFile *lnk; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
286 strcat (start_folder, "\\Emacs.lnk"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
287 sprintf (full_emacs_path, "%s\\bin\\%s", emacs_path, prog_name); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
288 IShellLinkA_SetPath (shortcut, full_emacs_path); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
289 IShellLinkA_SetDescription (shortcut, "GNU Emacs"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
290 result = IShellLinkA_QueryInterface (shortcut, &IID_IPersistFile, |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
291 (void **) &lnk); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
292 if (SUCCEEDED (result)) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
293 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
294 wchar_t unicode_path[MAX_PATH]; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
295 MultiByteToWideChar (CP_ACP, 0, start_folder, -1, |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
296 unicode_path, MAX_PATH); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
297 if (SUCCEEDED (IPersistFile_Save (lnk, unicode_path, TRUE))) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
298 shortcuts_created = 1; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
299 IPersistFile_Release (lnk); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
300 } |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
301 } |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
302 } |
12181 | 303 } |
304 | |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
305 if (!shortcuts_created && com_available |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
306 && SHGetSpecialFolderPath (NULL, start_folder, CSIDL_PROGRAMS, 0)) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
307 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
308 /* Ensure there is enough room for "...\GNU Emacs\Emacs.lnk". */ |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
309 if (strlen (start_folder) < (MAX_PATH - 20)) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
310 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
311 BOOL retval; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
312 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
313 strcat (start_folder, "\\Gnu Emacs"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
314 if (CreateDirectory (start_folder, NULL) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
315 || GetLastError () == ERROR_ALREADY_EXISTS) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
316 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
317 char full_emacs_path[MAX_PATH + 1]; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
318 IPersistFile *lnk; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
319 strcat (start_folder, "\\Emacs.lnk"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
320 sprintf (full_emacs_path, "%s\\bin\\%s", emacs_path, prog_name); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
321 IShellLinkA_SetPath (shortcut, full_emacs_path); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
322 IShellLinkA_SetDescription (shortcut, "GNU Emacs"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
323 result = IShellLinkA_QueryInterface (shortcut, &IID_IPersistFile, |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
324 (void **) &lnk); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
325 if (SUCCEEDED (result)) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
326 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
327 wchar_t unicode_path[MAX_PATH]; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
328 MultiByteToWideChar (CP_ACP, 0, start_folder, -1, |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
329 unicode_path, MAX_PATH); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
330 if (SUCCEEDED (IPersistFile_Save (lnk, unicode_path, TRUE))) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
331 shortcuts_created = 1; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
332 IPersistFile_Release (lnk); |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
333 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
334 } |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
335 } |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
336 } |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
337 } |
12181 | 338 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
339 if (com_available) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
340 IShellLinkA_Release (shortcut); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
341 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
342 /* Need to call uninitialize, even if ComInitialize failed. */ |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
343 CoUninitialize (); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
344 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
345 /* Fallback on old DDE method if the above failed. */ |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
346 if (!shortcuts_created) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
347 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
348 DWORD dde = 0; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
349 HCONV conversation; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
350 HSZ progman; |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
351 char add_item[MAX_PATH*2 + 100]; |
12181 | 352 |
101206
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
353 DdeInitialize (&dde, (PFNCALLBACK) DdeCallback, APPCMD_CLIENTONLY, 0); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
354 progman = DdeCreateStringHandle (dde, "PROGMAN", CP_WINANSI); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
355 conversation = DdeConnect (dde, progman, progman, NULL); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
356 if (conversation) |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
357 { |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
358 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
359 DdeCommand ("[ReplaceItem (Emacs)]"); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
360 sprintf (add_item, "[AddItem (\"%s\\bin\\%s\", Emacs)]", |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
361 emacs_path, prog_name); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
362 DdeCommand (add_item); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
363 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
364 DdeDisconnect (conversation); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
365 } |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
366 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
367 DdeFreeStringHandle (dde, progman); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
368 DdeUninitialize (dde); |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
369 } |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
370 |
3f0ac2f6febc
(main): Try using COM to create start menu shortcuts
Jason Rumney <jasonr@gnu.org>
parents:
100954
diff
changeset
|
371 return 0; |
12181 | 372 } |
52401 | 373 |
374 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0 | |
375 (do not change this comment) */ |