API函数的用法(在delphi的MSHelp/WIN32SDK.HLP 有这个API函数请问要如何才能用？) ( 积分: 50 )

EnableEudc<br>编译时提示有错 根本不认识它

EnableEudc<br>编译时提示有错 根本不认识它

&nbsp;function EnableEudc(AEnableEUDC: Boolean): Integer; stdcall;<br> &nbsp;function EnableEudc; external gdi32 name 'EnableEudc';<br>编译时说无法定位程序输入点 EnableEudc 于动态链接库 gdi32.dll 上

参考SDK得到<br>LIBRARY GDI32<br>EXPORTS<br>AbortDoc@4<br>AbortPath@4<br>AddFontMemResourceEx@16<br>AddFontResourceA@4<br>AddFontResourceExA@12<br>AddFontResourceExW@12<br>AddFontResourceW@4<br>AngleArc@24<br>AnimatePalette@16<br>Arc@36<br>ArcTo@36<br>BeginPath@4<br>BitBlt@36<br>CancelDC@4<br>CheckColorsInGamut@16<br>ChoosePixelFormat@8<br>Chord@36<br>CloseEnhMetaFile@4<br>CloseFigure@4<br>CloseMetaFile@4<br>ColorCorrectPalette@16<br>ColorMatchToTarget@12<br>CombineRgn@16<br>CombineTransform@12<br>CopyEnhMetaFileA@8<br>CopyEnhMetaFileW@8<br>CopyMetaFileA@8<br>CopyMetaFileW@8<br>CreateBitmap@20<br>CreateBitmapIndirect@4<br>CreateBrushIndirect@4<br>CreateColorSpaceA@4<br>CreateColorSpaceW@4<br>CreateCompatibleBitmap@12<br>CreateCompatibleDC@4<br>CreateDCA@16<br>CreateDCW@16<br>CreateDIBPatternBrush@8<br>CreateDIBPatternBrushPt@8<br>CreateDIBSection@24<br>CreateDIBitmap@24<br>CreateDiscardableBitmap@12<br>CreateEllipticRgn@16<br>CreateEllipticRgnIndirect@4<br>CreateEnhMetaFileA@16<br>CreateEnhMetaFileW@16<br>CreateFontA@56<br>CreateFontIndirectA@4<br>CreateFontIndirectExA@4<br>CreateFontIndirectExW@4<br>CreateFontIndirectW@4<br>CreateFontW@56<br>CreateHalftonePalette@4<br>CreateHatchBrush@8<br>CreateICA@16<br>CreateICW@16<br>CreateMetaFileA@4<br>CreateMetaFileW@4<br>CreatePalette@4<br>CreatePatternBrush@4<br>CreatePen@12<br>CreatePenIndirect@4<br>CreatePolyPolygonRgn@16<br>CreatePolygonRgn@12<br>CreateRectRgn@16<br>CreateRectRgnIndirect@4<br>CreateRoundRectRgn@24<br>CreateScalableFontResourceA@16<br>CreateScalableFontResourceW@16<br>CreateSolidBrush@4<br>DPtoLP@12<br>DeleteColorSpace@4<br>DeleteDC@4<br>DeleteEnhMetaFile@4<br>DeleteMetaFile@4<br>DeleteObject@4<br>DescribePixelFormat@16<br>DeviceCapabilitiesExA@24<br>DeviceCapabilitiesExW@24<br>DrawEscape@16<br>Ellipse@20<br>EnableEUDC@4<br>EndDoc@4<br>EndPage@4<br>EndPath@4<br>EnumEnhMetaFile@20<br>EnumFontFamiliesA@16<br>EnumFontFamiliesExA@20<br>EnumFontFamiliesExW@20<br>EnumFontFamiliesW@16<br>EnumFontsA@16<br>EnumFontsW@16<br>EnumICMProfilesA@12<br>EnumICMProfilesW@12<br><br>这些API 在 windows.pas里大部份都定义了，偏偏EnableEUDC就是没有<br><br>后来一个朋友提供了一段代码，但却不太会用，却给了我启发，不知道可不可以这样写<br> &nbsp;hDll := LoadLibrary(PChar('GDI32.DLL'));<br> &nbsp;FarProc :=GetProcAddress(hDll, 'EnableEUDC');<br> &nbsp;<br>哪位高手帮我写写<br><br>

我搞定了，没有错了<br>function EnableEudc; external gdi32 name 'EnableEudc';<br>后面要大写，我写成小写了，应该是<br>function EnableEudc; external gdi32 name 'EnableEUDC';