Call dll(dev by Delphi) in CBC

[rouser]

Function Description: bool IsInt(String)

Library Name:P_Public.dll
DevLanguage: Delphi


Call it in CBC hereinafter:
//---------------------------------------------------------------------------
typedef BOOL (*IsInt)(LPTSTR);

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
HINSTANCE h;
h=LoadLibrary("p_public");

IsInt func;
func=(IsInt)GetProcAddress(h,"IsInt");


BOOL ret;
ret=(bool)(func)("1");
ShowMessage(BoolToStr(ret));

FreeLibrary(h);
//---------------------------------------------------------------------------
That's wrong!
Please tell me why?
Best regards!

[rouser]

推一下嘍