 |
|
 |
Excellent article. Looking allover for it.
|
|
|
|
 |
|
|
 |
|
 |
Private Sub ServiceInstaller1_AfterInstall(ByVal sender As System.Object, ByVal e As System.Configuration.Install.InstallEventArgs) Handles ServiceInstaller1.AfterInstall Dim ServiceKey As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\" & ServiceInstaller1.ServiceName, True) If Not IsNothing(ServiceKey) Then
If Not IsNothing(ServiceKey.GetValue("Type")) Then ServiceKey.SetValue("Type", (CType(ServiceKey.GetValue("Type"), Integer) Or 256)) End If
End Sub
|
|
|
|
 |
|
 |
Hi , I do not want read meny posts below. What can I said the code above was tested under Xp an 64bit 2003 Server and it works.
[RunInstaller(true)] public partial class ProjectInstaller : Installer {
protected override void OnAfterInstall(IDictionary savedState) { base.OnAfterInstall(savedState);
RegistryKey ckey = Registry.LocalMachine.OpenSubKey( @"SYSTEM\CurrentControlSet\Services\" + this.serviceInstaller1.ServiceName, true); if (ckey != null) { if (ckey.GetValue("Type") != null) { ckey.SetValue("Type", ((int)ckey.GetValue("Type") | 256)); } } } .....
|
|
|
|
 |
|
 |
In order to make the sample code work I had to move the modification of the Registry key to the overriden OnCommitted method.
protected override void OnCommitted(IDictionary savedState) { base.OnCommitted(savedState);
using (RegistryKey ckey = Registry.LocalMachine.OpenSubKey(@"SYSTEM\CurrentControlSet\Services\My Service", true)) { if (ckey != null) { if (ckey.GetValue("Type") != null) { ckey.SetValue("Type", (((int)ckey.GetValue("Type")) | 256)); } } } } modified on Thursday, February 18, 2010 12:26 PM
|
|
|
|
 |
|
 |
This is the key information for me.
|
|
|
|
 |
|
 |
Thanks for sharing this, I am about to hit a deadline and I won't have to stay up all night now!
|
|
|
|
 |
|
 |
You are here: tested->working->love it!!!
void izmoto(char* szKwazi);
|
|
|
|
 |
|
 |
I am getting error saying "From1 does not contain a definition for Installers" what should i do for it?
|
|
|
|
 |
|
 |
you solve my problem! thanks a lot
--
http://jjwang0430.blogspot.com
|
|
|
|
 |
|
 |
hi, thanks for giving such a wonderful code on internet. the code works fine. Now I need to handle exceptions in windows service.Which is best way to inform user to inform about exception in windows service?
Thanks in advance
Regards Pradeep Sattikar
|
|
|
|
 |
|
 |
hi, thanks for giving such a wonderful code on internet. the code works fine. Now I need to handle exceptions in windows service.Which is best way to inform user to inform about exception in windows service?
Thanks in advance
Regards Pradeep Sattikar
|
|
|
|
 |
|
 |
Hi, I have created one interactive service using a porperty "Allow service to intract with desktop" And then while servie is running; in OnStart method one form is displayed. My problem is that this form is loaded but not compeletly. Service doesn't stops but i think it is in pause state at that moment. I waited for some time but it dosent work out. Plz help. ASAP
Amit
|
|
|
|
 |
|
 |
That's little better:
RegistryKey ckey = Registry.LocalMachine.OpenSubKey( string.Format(@"SYSTEM\CurrentControlSet\Services\{0}", si.ServiceName), true);
|
|
|
|
 |
|
 |
I've used this code, the check box is successfully set to true but has no effect ? I still have to go manually change is state, apply and then change is state again, and finally restart the service to make it work. Can you explain that behavior, anyone had this problem ? I have included most of the installer code, in case you can point out the error somewhere. I have no clue, is there a Commit action missing or anything ? Thanks folks.
using System; ....
namespace ProbeService { [RunInstaller(true)] partial class ProjectInstaller : Installer { #region variables private System.ServiceProcess.ServiceProcessInstaller serviceProcessInstaller1; private System.ServiceProcess.ServiceInstaller serviceInstaller1; #endregion
private System.ComponentModel.IContainer components = null;
protected override void Dispose(bool disposing) { if (disposing && (components != null)) { components.Dispose(); } base.Dispose(disposing); }
#region Component Designer generated code
private void InitializeComponent() { this.serviceProcessInstaller1 = new System.ServiceProcess.ServiceProcessInstaller(); this.serviceInstaller1 = new System.ServiceProcess.ServiceInstaller(); this.serviceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem; this.serviceProcessInstaller1.Password = null; this.serviceProcessInstaller1.Username = null; this.serviceProcessInstaller1.AfterInstall += new System.Configuration.Install.InstallEventHandler(this.serviceProcessInstaller1_AfterInstall); this.serviceInstaller1.ServiceName = "DSD PROBE"; this.serviceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic; this.serviceInstaller1.AfterInstall += new System.Configuration.Install.InstallEventHandler(this.serviceInstaller1_AfterInstall); this.Installers.AddRange(new System.Configuration.Install.Installer[] { this.serviceProcessInstaller1, this.serviceInstaller1});
}
#endregion
#region override methods public override void Install(IDictionary mySavedState) { base.Install(mySavedState);
try
{ string SocketNumber = Context.Parameters["SocketNumber"]; string assemblypath = Context.Parameters["assemblypath"]; string appConfigPath = assemblypath + ".config"; XmlDocument doc = new XmlDocument(); doc.Load(appConfigPath); XmlNode configuration = null; foreach (XmlNode node in doc.ChildNodes) if (node.Name == "configuration") configuration = node; if (configuration != null) { XmlNode settingNode = null; foreach (XmlNode node in configuration.ChildNodes) if (node.Name == "appSettings") settingNode = node;
if (settingNode != null) { XmlNode NumNode = null; foreach (XmlNode node in settingNode.ChildNodes) { if (node.Attributes["key"] != null) if (node.Attributes["key"].Value == "SocketNumber") NumNode = node; }
if (NumNode != null) { XmlAttribute att = NumNode.Attributes["value"]; att.Value = SocketNumber; doc.Save(appConfigPath); } } } } catch (FormatException e) { string s = e.Message; } try
{ CreateEventLog(); } catch (Exception) { } }
protected override void OnAfterInstall(IDictionary mySavedState) { base.OnAfterInstall(mySavedState);
try
{ RegistryKey ckey = Registry.LocalMachine.OpenSubKey(@"SYSTEM\CurrentControlSet\Services\DSD PROBE", true); :wtf: if (ckey != null) { if (ckey.GetValue("Type") != null) { ckey.SetValue("Type", ((int)ckey.GetValue("Type") | 256)); } } Process proc = new Process(); ProcessStartInfo pi = new ProcessStartInfo(); pi.FileName = "cmd"; pi.UseShellExecute = false; pi.RedirectStandardInput = true; pi.RedirectStandardOutput = true; proc.StartInfo = pi; proc.Start(); proc.StandardInput.WriteLine("net start \"DSD PROBE\""); proc.StandardInput.Close();
} catch (Exception) { } }
protected override void OnBeforeUninstall(IDictionary mySavedState) { base.OnBeforeUninstall(mySavedState);
try :^) { Process proc = new Process(); ProcessStartInfo pi = new ProcessStartInfo(); pi.FileName = "cmd"; pi.UseShellExecute = false; pi.RedirectStandardInput = true; pi.RedirectStandardOutput = true; proc.StartInfo = pi; proc.Start(); proc.StandardInput.WriteLine("net stop \"DSD PROBE\""); proc.StandardInput.Close(); } catch (Exception) { } }
public override void Rollback(IDictionary mySavedState) { ..... }
public override void Uninstall(IDictionary savedState) { .......... } #endregion
} }
"We can't solve problems by using the same kind of thinking we used when we created them." - Albert Einstein
-- modified at 10:59 Tuesday 31st July, 2007
|
|
|
|
 |
|
 |
The service controller is out of sync with the registry. If you reboot, it will resync and work properly, but it sucks as a good solution.
As someone suggested below the 'right way is'
ConnectionOptions coOptions = new ConnectionOptions();
coOptions.Impersonation = ImpersonationLevel.Impersonate;
ManagementScope mgmtScope = new System.Management.ManagementScope(@"root\CIMV2", coOptions);
mgmtScope.Connect();
ManagementObject wmiService;
wmiService = new ManagementObject("Win32_Service.Name='" + ServiceMonitorInstaller.ServiceName + "'");
ManagementBaseObject InParam = wmiService.GetMethodParameters("Change");
InParam["DesktopInteract"] = true;
ManagementBaseObject OutParam = wmiService.InvokeMethod("Change", InParam, null);
|
|
|
|
 |
|
 |
Hi all,
I'm trying to use this code, and i'm having a problem, i can't make it to work... i have read all posts.
I'm using this code on (ProjectInstaller.VB).
#Region " Component Designer generated code "
Public Sub New() MyBase.New()
'This call is required by the Component Designer. InitializeComponent()
'Add any initialization after the InitializeComponent() call
'Add initialization code after the call to InitializeComponent Dim si As New ServiceProcess.ServiceInstaller si.ServiceName = "Myapp" si.DisplayName = "Myapp" si.StartType = ServiceProcess.ServiceStartMode.Manual
Me.Installers.Add(si) Dim spi As New ServiceProcess.ServiceProcessInstaller spi.Account = System.ServiceProcess.ServiceAccount.LocalSystem spi.Password = Nothing spi.Username = Nothing Me.Installers.Add(spi)
Dim ckey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\Myapp", True)
If ckey.GetValue("Type") <> Nothing Then ckey.SetValue("Type", (ckey.GetValue("Type") Or 256)) End If
End Sub
But wend i try to install my service i get this error.
"Unable to create an instance of the "Myapp".ProjectInstaller installer type. --> Exception has been throw by the target of an invocation. --> Object reference not set to an instance of an object."
After this error my installation will rollback.
Cold some one gives a help....
Reagards,
mpires
|
|
|
|
 |
|
 |
Tks, i have found the solution....
I have set on after install:
Dim ckey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\Myapp", True)
If ckey.GetValue("Type") <> Nothing Then ckey.SetValue("Type", (ckey.GetValue("Type") Or 256)) End If
And it works....
Nice....
|
|
|
|
 |
|
 |
This is a really good article for how to do this in C#.
If, however, you're not using C#, and are using the Platform SDK, you can simply specify the DesktopInteract mode in the CreateService() API call e.g.:
SC_HANDLE schService = CreateService(schSCManager, "MyService", "MyServiceDisplayName", SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS | SERVICE_INTERACTIVE_PROCESS, SERVICE_AUTO_START, SERVICE_ERROR_NORMAL, "\"MyQuotedFullPathToExe\"", NULL, NULL, NULL, NULL, NULL);
Note that in order for the interact mode to function, the service must use the LocalSystem account (second to last parameter = NULL). Also note that if you set the 'Type' registry value directly to 0x00000110 or similar, this will not work on Windows 2003 server, so the programmatic way is definitely the better bet.
Hope this helps!
|
|
|
|
 |
|
 |
hello All:
Can anyone please can convert the code to vb.net ?
Thanks in advance Albert
|
|
|
|
 |
|
 |
Public Sub New() InitializeComponent Dim si As ServiceInstaller = New ServiceInstaller si.ServiceName = "WindowsService1" si.DisplayName = "WindowsService1" si.StartType = ServiceStartMode.Manual Me.Installers.Add(si) Dim spi As ServiceProcessInstaller = New ServiceProcessInstaller spi.Account = System.ServiceProcess.ServiceAccount.LocalSystem spi.Password = Nothing spi.Username = Nothing Me.Installers.Add(spi) Dim ckey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\WindowsService1", True) If Not (ckey Is Nothing) Then If Not (ckey.GetValue("Type") Is Nothing) Then ckey.SetValue("Type", (CType(ckey.GetValue("Type"), Integer) Or 256)) End If End If End Sub
|
|
|
|
 |
|
 |
http://united-arab-emirates-airline.tangoing.info/ http://united-arab-emirates-airline.tangoing.info/
|
|
|
|
 |
|
 |
this.Installers.Clear(); //add by kali, it work well ServiceInstaller si = new ServiceInstaller(); si.ServiceName = "MonAgent"; si.DisplayName = "MonAgent"; si.StartType = ServiceStartMode.Automatic ; this.Installers.Add(si); ServiceProcessInstaller spi = new ServiceProcessInstaller(); spi.Account = System.ServiceProcess.ServiceAccount.LocalSystem; spi.Password = null; spi.Username = null; this.Installers.Add(spi); // Here is where we set the bit on the value in the registry. // Grab the subkey to our service RegistryKey ckey = Registry.LocalMachine.OpenSubKey( @"SYSTEM\CurrentControlSet\Services\MonAgent", true); // Good to always do error checking! if(ckey != null) { // Ok now lets make sure the "Type" value is there, //and then do our bitwise operation on it. if(ckey.GetValue("Type") != null) { ckey.SetValue("Type", ((int)ckey.GetValue("Type") | 256)); } }
|
|
|
|
 |
|
 |
See the thread "The right way to do it".
This worked for me. The method in the original post (registry edit) didn't work on my Windows Server 2003 system. Looking at the service properties in the SCM, everything looked fine (the "Allow service to interact with desktop" flag was set), and there were no exceptions thrown in the GUI code, it just wouldn't show anything on the desktop (forms, notify icon, etc.)
Using this method, all worked great.
Regards (and thanks),
Robb
|
|
|
|
 |
|
 |
hi, i tried changing the Registry Key...but my service is not able to run a GUI Application...what is the mistake??.....it is LocalSystem Account and n the properties box , the Desktop Interaction is enabled... i tried this code, /***********************code starts here*************************/ Process proc= new Process(); proc.StartInfo.FileName="E:\\MyStarter.exe"; proc.Start(); /***********************code starts here*************************/
what is wrong in my code???
with regards, C.C.Chakkaradeep
|
|
|
|
 |