麻烦把这段代码翻译成DELPHI的

来源：百度知道 编辑：UC知道 时间：2024/05/15 15:40:16
g_dwGameMod = (DWORD)PtrToUlong(GetModuleHandle(L"game.dll"));

给你个例子:
procedure TForm1.Button1Click(Sender: TObject);
var
g_dwGameMod: HWND;//这里改成DWORD也行。
fName: array[0..255] of Char;//保存文件路径名
begin
g_dwGameMod := GetModuleHandle('game.dll');
GetModuleFileName(g_dwGameMod, fName, 255);
Memo1.Lines.Add(fName);
end;
//以上的例子是获取game.dll模块的实例句柄。然后由句柄取得这个game.dll所在的完全路径。

参考资料：http://hi.baidu.com/zhyacinth