James Hawkins : advpack: Implement DelNodeRunDLL32.

[Alexandre Julliard]

Module: wine
Branch: refs/heads/master
Commit: 5fa132c61662db74c325f2d729bc6fa8c6109747
URL:    http://source.winehq.org/git/?p=wine.git;a=commit;h=5fa132c61662db74c325f2d729bc6fa8c6109747

Author: James Hawkins <truiken at gmail.com>
Date:   Sat Jan 21 19:18:40 2006 +0100

advpack: Implement DelNodeRunDLL32.

---

 dlls/advpack/files.c |   49 ++++++++++++++++++++++++++++++++++++++++++++-----
 1 files changed, 44 insertions(+), 5 deletions(-)

diff --git a/dlls/advpack/files.c b/dlls/advpack/files.c
index 99741b9..91c561b 100644
--- a/dlls/advpack/files.c
+++ b/dlls/advpack/files.c
@@ -19,6 +19,7 @@
  */
 
 #include <stdarg.h>
+#include <stdlib.h>
 
 #include "windef.h"
 #include "winbase.h"
@@ -289,6 +290,31 @@ HRESULT WINAPI DelNode( LPCSTR pszFileOr
     return ret;
 }
 
+/* returns the parameter at dwIndex in a list of parameters
+ * separated by the cSeparator character
+ */
+static LPSTR get_parameter(LPSTR szParameters, CHAR cSeparator, DWORD dwIndex)
+{
+    LPSTR szParam = NULL;
+    DWORD i = 0;
+
+    while (*szParameters && i < dwIndex)
+    {
+        if (*szParameters == cSeparator)
+            i++;
+
+        szParameters++;
+    }
+
+    if (!*szParameters)
+        return NULL;
+
+    szParam = HeapAlloc(GetProcessHeap(), 0, lstrlenA(szParameters));
+    lstrcpyA(szParam, szParameters);
+
+    return szParam;
+}
+
 /***********************************************************************
  *             DelNodeRunDLL32    (ADVPACK.@)
  *
@@ -303,14 +329,27 @@ HRESULT WINAPI DelNode( LPCSTR pszFileOr
  * RETURNS
  *   Success: S_OK.
  *   Failure: E_FAIL.
- *
- * BUGS
- *   Unimplemented
  */
 HRESULT WINAPI DelNodeRunDLL32( HWND hWnd, HINSTANCE hInst, LPSTR cmdline, INT show )
 {
-    FIXME("(%s): stub\n", debugstr_a(cmdline));
-    return E_FAIL;
+    LPSTR szFilename, szFlags;
+    DWORD dwFlags;
+    HRESULT res;
+
+    TRACE("(%s)\n", debugstr_a(cmdline));
+
+    /* get the parameters at indexes 0 and 1 respectively */
+    szFilename = get_parameter(cmdline, ',', 0);
+    szFlags = get_parameter(cmdline, ',', 1);
+
+    dwFlags = atol(szFlags);
+
+    res = DelNode(szFilename, dwFlags);
+
+    HeapFree(GetProcessHeap(), 0, szFilename);
+    HeapFree(GetProcessHeap(), 0, szFlags);
+
+    return res;
 }
 
 /* The following defintions were copied from dlls/cabinet/cabinet.h */