我在Stack Overflow问题 Custom icon for ClickOnce application in 'Add or Remove Programs' 和 Is there a way to change the icon of a ClickOnce application in 'Add or Remove Programs'? 中尝试了解决方案。
所以，这是我的实现。它们都编译，并且在运行代码时不会抛出任何异常。我将ClickOnce安装文件发布到Web服务器，然后在从计算机卸载后安装它。当我转到控制面板添加或删除程序时，我仍然会看到我的程序的通用图标。在其他任何地方我都没有问题，我的图标显示得很好。
/* METHOD ONE */
private static void SetAddRemoveProgramsIcon()
{
//Only run if deployed
if (System.Deployment.Application.ApplicationDeployment.IsNetworkDeployed && ApplicationDeployment.CurrentDeployment.IsFirstRun)
{
try
{
Assembly code = Assembly.GetExecutingAssembly();
AssemblyDescriptionAttribute asdescription =
(AssemblyDescriptionAttribute)Attribute.GetCustomAttribute(code, typeof(AssemblyDescriptionAttribute));
string assemblyDescription = asdescription.Description;
//The icon is included in this program
string iconSourcePath = Path.Combine(System.Windows.Forms.Application.StartupPath, "forico4.ico");
if (!File.Exists(iconSourcePath))
return;
RegistryKey myUninstallKey = Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Windows\CurrentVersion\Uninstall");
string[] mySubKeyNames = myUninstallKey.GetSubKeyNames();
for (int i = 0; i < mySubKeyNames.Length; i++)
{
RegistryKey myKey = myUninstallKey.OpenSubKey(mySubKeyNames[i], true);
object myValue = myKey.GetValue("DisplayName");
if (myValue != null && myValue.ToString() == "admin")
{
myKey.SetValue("DisplayIcon", iconSourcePath);
break;
}
}
}
catch (Exception ex)
{
System.Windows.Forms.MessageBox.Show(ex.Message.ToString());
}
}
}
*/
/* METHOD TWO */
private static void SetAddRemoveProgramsIcon()
{
//only run if deployed
if (System.Deployment.Application.ApplicationDeployment.IsNetworkDeployed
&& ApplicationDeployment.CurrentDeployment.IsFirstRun)
{
try
{
string iconSourcePath = Path.Combine(System.Windows.Forms.Application.StartupPath, "forico4.ico");
if (!File.Exists(iconSourcePath))
return;
RegistryKey myUninstallKey = Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Windows\CurrentVersion\Uninstall");
string[] mySubKeyNames = myUninstallKey.GetSubKeyNames();
for (int i = 0; i < mySubKeyNames.Length; i++)
{
RegistryKey myKey = myUninstallKey.OpenSubKey(mySubKeyNames[i], true);
object myValue = myKey.GetValue("DisplayName");
if (myValue != null && myValue.ToString() == "GoldMailAkamai")
{
myKey.SetValue("DisplayIcon", iconSourcePath);
break;
}
}
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
}
*/
答案 0 :(得分：5)
在查看注册表并复制其他应用程序的设置后，我终于弄明白了。奇怪的是，您无法在ClickOnce部署的应用程序中引用EXE文件。至少我无法让它发挥作用。所以，我还是改为引用.ico。请务必阅读评论！
using System.Deployment.Application;
using Microsoft.Win32;
//Call this method as soon as possible
private static void SetAddRemoveProgramsIcon()
{
//Only execute on a first run after first install or after update
if (ApplicationDeployment.CurrentDeployment.IsFirstRun)
{
try
{
// Set the name of the application EXE file - make sure to include `,0` at the end.
// Does not work for ClickOnce applications as far as I could figure out... Note, this will probably work
// when run from Visual Studio, but not when deployed.
//string iconSourcePath = Path.Combine(System.Windows.Forms.Application.StartupPath, "example.exe,0");
// Reverted to using this instead (note this will probably not work when run from Visual Studio, but will work on deploy.
string iconSourcePath = Path.Combine(System.Windows.Forms.Application.StartupPath, "example.ico");
if (!File.Exists(iconSourcePath))
{
MessageBox.Show("We could not find the application icon. Please notify your software vendor of this error.");
return;
}
RegistryKey myUninstallKey = Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Windows\CurrentVersion\Uninstall");
string[] mySubKeyNames = myUninstallKey.GetSubKeyNames();
for (int i = 0; i < mySubKeyNames.Length; i++)
{
RegistryKey myKey = myUninstallKey.OpenSubKey(mySubKeyNames[i], true);
object myValue = myKey.GetValue("DisplayName");
Console.WriteLine(myValue.ToString());
// Set this to the display name of the application. If you are not sure, browse to the registry directory and check.
if (myValue != null && myValue.ToString() == "Example Application")
{
myKey.SetValue("DisplayIcon", iconSourcePath);
break;
}
}
}
catch(Exception mye)
{
MessageBox.Show("We could not properly setup the application icons. Please notify your software vendor of this error.\r\n" + mye.ToString());
}
}
}
答案 1 :(得分：1)
我使用VB和VS2013E遵循相同的技术。步骤进行：
这些步骤确保Logo.ico文件在部署中打包。代码块如下：
Imports System.Deployment.Application.ApplicationDeployment
Imports System.Reflection
Imports System.IO
Imports Microsoft.Win32
Module ControlPanelIcon
' Call this method as soon as possible
' Writes entry to registry
Public Function SetAddRemoveProgramsIcon() As Boolean
Dim iName As String = "iconFile.ico" ' <---- set this (1)
Dim aName As String = "appName" ' <---- set this (2)
Try
Dim iconSourcePath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, iName)
If Not IsNetworkDeployed Then Return False ' ClickOnce check
If Not CurrentDeployment.IsFirstRun Then Return False
If Not File.Exists(iconSourcePath) Then Return False
Dim myUninstallKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Uninstall")
Dim mySubKeyNames As String() = myUninstallKey.GetSubKeyNames()
For i As Integer = 0 To mySubKeyNames.Length Step 1
Dim myKey As RegistryKey = myUninstallKey.OpenSubKey(mySubKeyNames(i), True)
Dim myValue As Object = myKey.GetValue("DisplayName")
If (myValue IsNot Nothing And myValue.ToString() = aName) Then
myKey.SetValue("DisplayIcon", iconSourcePath)
Return True
End If
Next i
Catch ex As Exception
Return False
End Try
Return False
End Function
End Module
如果执行了预期的操作，则函数调用返回true。否则就错了。在主窗体中，函数调用如下：
Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
' Modify registry to show icon in Control Panel - Add/Remove Programs
ControlPanelIcon.SetAddRemoveProgramsIcon()
End Sub
感谢此帖子的撰稿人，特别感谢Custom icon for ClickOnce application in 'Add or Remove Programs'。
答案 2 :(得分：0)
您可以通过以下代码完成此操作。
string Install_Reg_Loc = @"Software\Microsoft\Windows\CurrentVersion\Uninstall";
string displayIcon = @"C:\MorganTech\setup-icon.ico";
RegistryKey hKey = (Registry.LocalMachine).OpenSubKey(Install_Reg_Loc, true);
RegistryKey appKey = hKey.OpenSubKey(productName);
appKey.SetValue("DisplayIcon", (object)displayicon, RegistryValueKind.String)
答案 3 :(得分：0)
如果要为Office程序（如Outlook）寻找VSTO外接程序的添加/删除图标，请使用以下所选答案的修改版本。部署后即可使用。
private static void SetAddRemoveProgramsIcon()
{
//Only execute on a first run after first install or after update
if (ApplicationDeployment.CurrentDeployment.IsFirstRun)
{
try
{
//Getting path to the installation directory
System.Reflection.Assembly assemblyInfo = System.Reflection.Assembly.GetExecutingAssembly();
string assemblyLocation = assemblyInfo.Location;
Uri uriCodeBase = new Uri(assemblyInfo.CodeBase);
string ClickOnceLocation = Path.GetDirectoryName(uriCodeBase.LocalPath.ToString());
string iconSourcePath = Path.Combine(ClickOnceLocation, "youricon.ico");
if (!File.Exists(iconSourcePath))
{
MessageBox.Show("We could not find the application icon. Please notify your software vendor of this error.");
return;
}
RegistryKey myUninstallKey = Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Windows\CurrentVersion\Uninstall");
string[] mySubKeyNames = myUninstallKey.GetSubKeyNames();
for (int i = 0; i < mySubKeyNames.Length; i++)
{
RegistryKey myKey = myUninstallKey.OpenSubKey(mySubKeyNames[i], true);
object myValue = myKey.GetValue("DisplayName");
// Set this to the display name of the application. If you are not sure, browse to the registry directory and check.
if (myValue != null && myValue.ToString() == "SafeShare Outlook Add-in")
{
myKey.SetValue("DisplayIcon", iconSourcePath);
break;
}
}
}
catch (System.Exception mye)
{
MessageBox.Show("We could not properly setup the application icons. Please notify your software vendor of this error.\r\n" + mye.ToString());
}
}
}