From: Jan Slezák <jan.slezak@centrum.cz>
Date: Mon, 9 Nov 2009 09:23:15 +0000 (+0100)
Subject: Patch to solve bug 20630 - Services written in Delphi 6: impossible to start by ... 
X-Git-Tag: 1.3.18-alt1.2~1
X-Git-Url: http://git.etersoft.ru/projects/?a=commitdiff_plain;h=fca472b2a9a5f620f30a0cdc202127ff2249d998;p=wine%2Feterwine.git

Patch to solve bug 20630 - Services written in Delphi 6: impossible to start by "net start" command
---

diff --git a/programs/services/rpc.c b/programs/services/rpc.c
index 4cd5b37a18..67b65c9a32 100644
--- a/programs/services/rpc.c
+++ b/programs/services/rpc.c
@@ -935,6 +935,7 @@ DWORD svcctl_StartServiceW(
     DWORD dwNumServiceArgs,
     LPCWSTR *lpServiceArgVectors)
 {
+    const WCHAR *argv[2];
     struct sc_service_handle *service;
     DWORD err;
 
@@ -943,6 +944,14 @@ DWORD svcctl_StartServiceW(
     if ((err = validate_service_handle(hService, SERVICE_START, &service)) != 0)
         return err;
 
+    if (!dwNumServiceArgs && !lpServiceArgVectors && service->service_entry->name)
+    {
+        argv[0] = service->service_entry->name;
+        argv[1] = NULL;
+        lpServiceArgVectors = argv;
+        dwNumServiceArgs = 1;
+    }
+
     err = service_start(service->service_entry, dwNumServiceArgs, lpServiceArgVectors);
 
     return err;