接口定义vc++ —>Delphi(100分)

C

cosher

Unregistered / Unconfirmed
GUEST, unregistred user!
数据类型对应表。
 
IDirectDraw2 = interface(IUnknown)
['{B3A6F3E0-2B43-11CF-A2DE-00AA00B93356}']
// IDirectDraw methods
function Compact: HResult
stdcall;
function CreateClipper(dwFlags: DWORD
out lplpDDClipper: IDirectDrawClipper;
pUnkOuter: IUnknown): HResult
stdcall;
function CreatePalette(dwFlags: DWORD
lpColorTable: PPaletteEntry;
out lplpDDPalette: IDirectDrawPalette
pUnkOuter: IUnknown): HResult
stdcall;
function CreateSurface(const lpDDSurfaceDesc: TDDSurfaceDesc;
out lplpDDSurface: IDirectDrawSurface
pUnkOuter: IUnknown): HResult
stdcall;
function DuplicateSurface(lpDDSurface: IDirectDrawSurface;
out lplpDupDDSurface: IDirectDrawSurface): HResult
stdcall;
function EnumDisplayModes(dwFlags: DWORD;
const lpDDSurfaceDesc: TDDSurfaceDesc
lpContext: Pointer;
lpEnumModesCallback: TDDEnumModesCallback): HResult
stdcall;
function EnumSurfaces(dwFlags: DWORD
const lpDDSD: TDDSurfaceDesc;
lpContext: Pointer
lpEnumCallback: TDDEnumSurfacesCallback): HResult
stdcall;
function FlipToGDISurface: HResult
stdcall;
function GetCaps(var lpDDDriverCaps: TDDCaps
var lpDDHELCaps: TDDCaps): HResult
stdcall;
function GetDisplayMode(var lpDDSurfaceDesc: TDDSurfaceDesc): HResult
stdcall;
function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult
stdcall;
function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface): HResult
stdcall;
function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult
stdcall;
function GetScanLine(var lpdwScanLine: DWORD): HResult
stdcall;
function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult
stdcall;
function Initialize(lpGUID: PGUID): HResult
stdcall;
function RestoreDisplayMode: HResult
stdcall;
function SetCooperativeLevel(hWnd: HWND
dwFlags: DWORD): HResult
stdcall;
function SetDisplayMode(dwWidth, dwHeight, dwBPP, dwRefreshRate: DWORD;
dwFlags: DWORD): HResult
stdcall;
function WaitForVerticalBlank(dwFlags: DWORD
hEvent: THandle): HResult
stdcall;
// IDirectDraw2 methods
function GetAvailableVidMem(var lpDDSCaps: TDDSCaps;
var lpdwTotal, lpdwFree: DWORD): HResult
stdcall;
end;
 
顶部