From ace09a720b1d2e155a8b42220bfe94d5e4de73f1 Mon Sep 17 00:00:00 2001
From: Ian Schmidt <ischmidt@cfl.rr.com>
Date: Mon, 25 Oct 1999 15:36:39 +0000
Subject: [PATCH] Partial implementation of the Shell32 call Win32DeleteFile(),
 required by IE5's Explorer.

---
 dlls/shell32/shell32.spec |  2 +-
 dlls/shell32/shellord.c   | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/dlls/shell32/shell32.spec b/dlls/shell32/shell32.spec
index c41852f3d37..67ba433caa2 100644
--- a/dlls/shell32/shell32.spec
+++ b/dlls/shell32/shell32.spec
@@ -169,7 +169,7 @@ init	Shell32LibMain
  161 stdcall SHRunControlPanel (long long) SHRunControlPanel
  162 stdcall SHSimpleIDListFromPath (ptr) SHSimpleIDListFromPathAW
  163 stdcall StrToOleStr (wstr str) StrToOleStrAW
- 164 stub Win32DeleteFile
+ 164 stdcall Win32DeleteFile(str) Win32DeleteFile
  165 stdcall SHCreateDirectory(long long) SHCreateDirectory
  166 stub CallCPLEntry16
  167 stub SHAddFromPropSheetExtArray
diff --git a/dlls/shell32/shellord.c b/dlls/shell32/shellord.c
index 451ec00fd6f..cc78daebbd0 100644
--- a/dlls/shell32/shellord.c
+++ b/dlls/shell32/shellord.c
@@ -1433,3 +1433,24 @@ BOOL WINAPI shell32_243(DWORD a, DWORD b)
 { 
   return FALSE; 
 }
+
+/************************************************************************
+ *      Win32DeleteFile                         [SHELL32.164]  
+ *
+ * Deletes a file.  Also triggers a change notify if one exists, but
+ * that mechanism doesn't yet exist in Wine's SHELL32.
+ *
+ * FIXME:
+ * Verified on Win98 / IE 5 (SHELL32 4.72, March 1999 build) to be
+ * ANSI.  Is this Unicode on NT?
+ *
+ */ 
+
+BOOL WINAPI Win32DeleteFile(LPSTR fName)
+{
+  FIXME("%p(%s): partial stub\n", fName, fName);
+
+  DeleteFileA(fName);
+
+  return TRUE;
+}