delphi6.0 添加动态链接库dll

Question

如题，delphi6.0 怎么添加vc编译的动态链接库啊。

Answer 1

1. 静态加载
  例如: function GetFileType(hFile: THandle): DWORD; stdcall; external 'kernel32.dll' name 'GetFileType';
2. 动态加载
  用LoadLibrary加载Dll,然后用GetProcAddress来获取其执行函数的地址如:
  var
    hLib: DWORD;
    TestProc: function(size: Integer): pointer; stdcall;  hLib := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'Test.dll'));
  hLib <> 0表示加载Test.dll成功
  TestProc := GetProcAddress(hLib, 'TestProc');