厂商提供的动态调用DLL的例子

http://www.azsdk.com/hardwareid.html 一个获取硬件ID的。可惜没有源码。。
不过这个例子很好的。 已经找到了个破解的DLL文件。下面的代码主要是为自己做个笔记，没办法，记性不好啊。。经常忘记了 释放调用的DLL。
//---------------------------------------------------------------------------
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
char* (__stdcall *GetHardwareID)(BOOL, BOOL, BOOL, BOOL, char*);
char* (__stdcall *GetHardwareIDWithAppID)(char*, BOOL, BOOL, BOOL, BOOL, char*);

HINSTANCE DllInst = NULL;
char* RegCode = "XXXX-XXXX"; //Enter your Keycode
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (DllInst == NULL) DllInst = LoadLibrary("HardwareID.dll");
if (DllInst)
{
GetHardwareID = (char* (__stdcall*)(BOOL, BOOL, BOOL, BOOL, char*))GetProcAddress(DllInst,"GetHardwareID");

//Call GetHardwareID
Edit1->Text = GetHardwareID(cbHDD->Checked, cbNIC->Checked, cbCPU->Checked, cbBIOS->Checked, RegCode);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnGetWithAppClick(TObject *Sender)
{
Char* AppID;
AppID = Edit2->Text.c_str();

if (DllInst == NULL) DllInst = LoadLibrary("HardwareID.dll");
if (DllInst)
{
GetHardwareIDWithAppID = (char* (__stdcall*)(char*, BOOL, BOOL, BOOL, BOOL, char*))GetProcAddress(DllInst,"GetHardwareIDWithAppID");

//Call GetHardwareID with your application ID
Edit3->Text = GetHardwareIDWithAppID(AppID, cbHDD->Checked, cbNIC->Checked, cbCPU->Checked, cbBIOS->Checked, RegCode);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if ( DllInst ) FreeLibrary (DllInst);
}
//---------------------------------------------------------------------------