RealDriveType

[Ulrich Czekalla]

        ChangeLog:
                Ulrich Czekalla <ulrich at codeweavers.com>
                Implement RealDriveType
-------------- next part --------------
Index: dlls/shell32/shell32.spec
===================================================================
RCS file: /home/wine/wine/dlls/shell32/shell32.spec,v
retrieving revision 1.83
diff -u -r1.83 shell32.spec
--- dlls/shell32/shell32.spec	29 Apr 2004 20:01:39 -0000	1.83
+++ dlls/shell32/shell32.spec	9 Jun 2004 14:29:34 -0000
@@ -282,7 +282,7 @@
  521 stdcall SHLockShared (long long)
  522 stdcall SHUnlockShared (long)
  523 stdcall SHFreeShared (long long)
- 524 stub RealDriveType
+ 524 stdcall RealDriveType (long long)
  525 stub RealDriveTypeFlags
 
  640 stdcall NTSHChangeNotifyRegister (long long long long long long)
Index: dlls/shell32/shlfileop.c
===================================================================
RCS file: /home/wine/wine/dlls/shell32/shlfileop.c,v
retrieving revision 1.38
diff -u -r1.38 shlfileop.c
--- dlls/shell32/shlfileop.c	20 Apr 2004 01:12:17 -0000	1.38
+++ dlls/shell32/shlfileop.c	9 Jun 2004 14:29:34 -0000
@@ -1310,3 +1310,14 @@
 	root[0] += (char)drive;
 	return (GetDriveTypeA(root) == DRIVE_REMOTE);
 }
+
+
+/*************************************************************************
+ * RealDriveType                [SHELL32.524]
+ */
+INT WINAPI RealDriveType(INT drive, BOOL bQueryNet)
+{
+    char root[] = "A:\\";
+    root[0] += (char)drive;
+    return GetDriveTypeA(root);
+}