[Wine-patches] eterbug #5225

[Alexander Morozov]

----------- следующая часть -----------
From db570a4856a783e26aa7c03d4341fe01940cba59 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Slez=C3=A1k?= <jan.slezak на centrum.cz>
Date: Mon, 9 Nov 2009 10:23:15 +0100
Subject: [PATCH] Patch to solve bug 20630 - Services written in Delphi 6:
 impossible to start by "net start" command

---
 programs/services/rpc.c |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/programs/services/rpc.c b/programs/services/rpc.c
index 2ce39fb..8be4af6 100644
--- a/programs/services/rpc.c
+++ b/programs/services/rpc.c
@@ -838,6 +838,7 @@ DWORD svcctl_StartServiceW(
     DWORD dwNumServiceArgs,
     LPCWSTR *lpServiceArgVectors)
 {
+    const WCHAR *argv[2];
     struct sc_service_handle *service;
     DWORD err;
 
@@ -846,6 +847,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;
-- 
1.7.5.4