Implemented RealDriveType.

dlls/shell32/shell32.spec

@@ -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)

dlls/shell32/shlfileop.c

@@ -1310,3 +1310,14 @@ BOOL WINAPI IsNetDrive(DWORD drive)
 	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);
+}