annotate nt/addpm.c @ 111439:8426207480fa

* src/xfns.c (set_machine_and_pid_properties): Let X set WM_CLIENT_MACHINE.
author Jan D <jan.h.d@swipnet.se>
date Sun, 07 Nov 2010 12:25:55 +0100
parents 19b118dd1498
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 101206
diff changeset
3 2008, 2009, 2010 Free Software Foundation, Inc.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
19
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
20 /****************************************************************************
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
21 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
22 * Program: addpm (adds emacs to the Windows program manager)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
23 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
31 */
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
44 #include <ddeml.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
45 #include <stdlib.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
46 #include <stdio.h>
92206
7bd66631686c Include malloc.h.
Juanma Barranquero <lekktu@gmail.com>
parents: 80106
diff changeset
47 #include <malloc.h>
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
53 {
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
54 return ((HDDEDATA) NULL);
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
55 }
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
56
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
59 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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 {
110628
19b118dd1498 nt/*.c: Use const char*; remove unused code.
Juanma Barranquero <lekktu@gmail.com>
parents: 109883
diff changeset
70 const char *name;
19b118dd1498 nt/*.c: Use const char*; remove unused code.
Juanma Barranquero <lekktu@gmail.com>
parents: 109883
diff changeset
71 const 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
110628
19b118dd1498 nt/*.c: Use const char*; remove unused code.
Juanma Barranquero <lekktu@gmail.com>
parents: 109883
diff changeset
88 add_registry (const 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
7bd66631686c Include malloc.h.
Juanma Barranquero <lekktu@gmail.com>
parents: 80106
diff changeset
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
7bd66631686c Include malloc.h.
Juanma Barranquero <lekktu@gmail.com>
parents: 80106
diff changeset
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, &gtk_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 {
110628
19b118dd1498 nt/*.c: Use const char*; remove unused code.
Juanma Barranquero <lekktu@gmail.com>
parents: 109883
diff changeset
181 const 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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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];
110628
19b118dd1498 nt/*.c: Use const char*; remove unused code.
Juanma Barranquero <lekktu@gmail.com>
parents: 109883
diff changeset
201 const char *prog_name;
19b118dd1498 nt/*.c: Use const char*; remove unused code.
Juanma Barranquero <lekktu@gmail.com>
parents: 109883
diff changeset
202 const char *emacs_path;
19396
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
303 }
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
372 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
373
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
374 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
375 (do not change this comment) */