[SHELL/EXPERIMENTS]

* Create a branch for some evul shell experiments.

svn path=/branches/shell-experiments/; revision=61927

lib/sdk/crt/process/dll.c

@@ -0,0 +1,39 @@
+/*
+ * COPYRIGHT:   See COPYING in the top level directory
+ * PROJECT:     ReactOS system libraries
+ * FILE:        lib/msvcrt/process/dll.c
+ * PURPOSE:     Dll support routines
+ * PROGRAMER:   Ariadne
+ * UPDATE HISTORY:
+ *              04/03/99: Created
+ */
+
+#include <precomp.h>
+
+/*
+ * @implemented
+ */
+intptr_t _loaddll(char* name)
+{
+	return (intptr_t) LoadLibraryA(name);
+}
+
+/*
+ * @implemented
+ */
+int _unloaddll(intptr_t handle)
+{
+	return FreeLibrary((HMODULE) handle);
+}
+
+/*
+ * @implemented
+ */
+FARPROC _getdllprocaddr(intptr_t hModule, char* lpProcName, intptr_t iOrdinal)
+{
+	if (lpProcName != NULL)
+		return GetProcAddress((HMODULE) hModule, lpProcName);
+	else
+		return GetProcAddress((HMODULE) hModule, (LPSTR)iOrdinal);
+   	return (NULL);
+}