如何在VC6中调用系统DLL中的函数?

[LJN]

1.我想调用kernel32.dll中的函数,但vc总是报函数未定义,如何搞定它?

2.很容易得到一些对象据柄,但不知怎么使用他们, 如: FARPROC 等等.

[Star]

LoadLibrary+GetProcAddress+FreeLibrary,
FARPROC你可以利用一些typedef的技巧.

[yaly]

tell me

[blaise]

no, for kernel32.dll, you can't use loadlibray.
try to load kernel32.dll always fail.
So ,u can only use GetModuleHandle("Kernel32.dll") then call getprocaddress on that.

[liu_z_j]

tell me too

[softdoctor]

typedef HINSTANCE (*LOADLIB)(LPCTSTR lpszFileName);

{
BOOL bRet = TRUE;
HINSTANCE hInstance = LoadLibraryEx("kernel32.dll",NULL,LOAD_WITH_ALTERED_SEARCH_PATH);
if(hInstance)
{
LOADLIB pFun = (LOADLIB)GetProcAddress(hInstance,"LoadLibrary");
if(pFun)
{
HINSTANCE hCurInstance = (*pFun)(lpszFileName);
}
else
bRet = FALSE;
FreeLibrary(hInstance);
}
else
bRet = FALSE;
return bRet;
}

[jing]

menu
project->Setting->link->object/library modules:

[Star]

Unl&softdoctor，你们的方法不适用于Kernel32引出的未公开函数，你们可以试试！

[Star]

blaise, 我想你是使用9x的吧，NT下是可以使用LoadLibrary的，
这是由于NT和9x对于4个系统dll的载入地址空间不同造成的。

LJN，MS在GetProcAddress中屏蔽了对Kernel32.dll的调用，如果
你确实要使用，应该有办法的，我再想想...

[Un1]

直接使用不就行了？！比如：

::SendMessage(mhWnd, WM_COMMAND, 0, 0);

[LJN]

谢谢各位的掺和：

我已经自己研究出来了。为对次感兴趣的网友公开一下：

typedef int (stdcall * MyFunction) (DWORD lParam,DWORD wParam)


HMODULE hModule;

hModule = ::LoadLibrary("kernel32.dll");

MyFunction = ::GetProcAddress(hModule,"RegisterServiceProcess");

MyFunction(::GetCurrentProcessID(),1);

以上例程可以使程序在CTRL-ALT-DEL中隐藏，在98上通过，NT未试，调用的是
Kernel32.dll.

大家觉得这150分是不是该给我自己？

备注：大家千万别以为有以上代码就可作黑客程序，因为监测内存的软件依然
可以发现它。

[LJN]

发分了! 见者有份!

[open]

查看你需要的函数的头文件(YYYY.h)和相应的库文件(XXX.lib),把 YYYY.h 包含
在你调用此函数的文件中，可用MSDN查看,
然后#pragma comment(lib,"XXX.lib")

#incldue "YYYY.h"
#pragma comment(lib,"XXX.lib")

[open]

查看你需要的函数的头文件(YYYY.h)和相应的库文件(XXX.lib),把 YYYY.h 包含
在你调用此函数的文件中，可用MSDN查看,
然后#pragma comment(lib,"XXX.lib")

#include "YYYY.h"
#pragma comment(lib,"XXX.lib")

[aznarble]

csDllPath = "Kernel32.dll";
HINSTANCE hInstLib = ::LoadLibrary(csDllPath);
if (hInstLib != NULL)
{
//Declaration of function prototype
HRESULT (WINAPI *ProcFunctionName)(PROTOTYPE);
// Get the process address in Dll file
ProcFunctionName= reinterpret_cast<HRESULT (WINAPI *)(PROTOTYPE)>
(::GetProcAddress(hInstLib, "FunctionName"));
if ((ProcFunctionName!= NULL))
{
// Execute the FunctionName
if( SUCCEEDED( (ProcFunctionName)(PROTOTYPE)))
{
}
}
::FreeLibrary(hInstLib); // Free Dll
}
以上这段代码似乎是NT/2000下通用的(PROTOTYPE指函数参数原型)，我已用过N次，都成功的调用了系统DLL中的函数。但要注意以下几点。
1）在声明DLL中的函数原型时如果是系统API函数最好加上强制类型转换（WINAPI *）。
2）一部分函数根据环境会存在Unicode与非Unicode的不同函数名。通常在预编译时加入：

#ifdef UNICODE
#define FunctionName "FunctionNameW"
#else
#define FunctionName "FunctionNameA"
#endif