double SelfHeiOn; 
//动态库中的函数
typedef double __stdcall TideHigh(double, double, short, short, short, short, short); 
HINSTANCE h_GetLib;
TideHigh *THigh;
/////
CString t_filename = _T(""); 
TCHAR chPath[MAX_PATH]; 
::GetModuleFileName(NULL, chPath, MAX_PATH); 
t_filename =  chPath; 
t_filename  = t_filename.Left(t_filename.ReverseFind('\\')); 
// t_filename +=  _T("Tide.exe"); 
_chdir(t_filename);
/////这个调用要是失败了怎么判断?/
h_GetLib = ::LoadLibrary("CalTide.dll");
THigh =(TideHigh*)::GetProcAddress(h_GetLib,"TideHigh");
SelfHeiOn = (*THigh)(Lon, Lat, Year, Month, Date, Hour, Minute);
我现在已经很穷了,只能给这么一点分了!