GVKun编程网logo

Delphi汇编调用（delphi 汇编）

14

最近很多小伙伴都在问Delphi汇编调用和delphi汇编这两个问题，那么本篇文章就来给大家详细解答一下，同时本文还将给你拓展.Delphi7升级到Delphi2010、DelphiXE、Delphi

最近很多小伙伴都在问Delphi汇编调用和delphi 汇编这两个问题，那么本篇文章就来给大家详细解答一下，同时本文还将给你拓展.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结、delphi string 汇编、delphi – 调用汇编语言函数会导致“浮点堆栈检查”异常、Delphi 与 DirectX 之 DelphiX (2): DelphiX 各单元概览等相关知识，下面开始了哦！

本文目录一览：

Delphi汇编调用（delphi 汇编）

Delphi汇编调用（delphi 汇编）

我一直在玩IDA中的一些Delphi程序集.

我注意到很多我不理解的系统调用,并且无法找到有关它们的任何文档.
例如：我注意到很多对未知函数LStrClr(void *)的调用.

我能找到的最好的是这个网站http://www.delphibasics.co.uk/ByLetter.asp?Letter=A
但它缺少很多函数调用,包括LStrClr.

非常感谢您的回复,
迈克尔恩格斯特勒.

解决方法

LStrClr表示长字符串清除.它习惯于清除长字符串变量.换句话说,当你写： 

s := '';

然后编译器将生成对运行时支持函数_LStrClr的调用.在Unicode Delphi中,它将是_UStrClr,其中U表示UnicodeString而不是AnsiString.

这里没有官方文档,因为它是所有私有实现细节.但是,有Delphi RTL的源代码.如果你提到这一点,这样的电话很容易理解.

.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结

.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结

总结

以上是小编为你收集整理的.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

delphi string 汇编

delphi string 汇编

总结

以上是小编为你收集整理的delphi string 汇编全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

delphi – 调用汇编语言函数会导致“浮点堆栈检查”异常

delphi – 调用汇编语言函数会导致“浮点堆栈检查”异常

执行以下代码： 
function ABCD32(Value: Cardinal): Single; register;
asm
  BSWAP  EAX
end;

function HexToFloat(hexValue: string; fmt: THexFloatFormat): Single;
var
  c: Cardinal;
  Err: Integer;
begin
  Result := NaN;
  c := HexToCardinal(hexValue,Err); //DCBA format
  if Err <> 0 then Exit();
  case fmt of
    hfABCD: Result := ABCD32(c); //Here,after return from ABCD32
    hfBADC: Result := BADC32(c);
    hfCDAB: Result := CDAB32(c);
    hfDCBA: Result := DCBA32(c);
  end;
end;

导致运行时错误：

Project HexFloat.exe raised exception class $C0000092 with message ‘floating point stack check at 0x004e9903’.

这是什么以及如何处理它？

更新

这是cpu窗口输出：

HexFloat.dpr.162: hfABCD: Result := ABCD32(c);
004E98F8 8B45F0           mov eax,[ebp-$10]
004E98FB E894FFFFFF       call ABCD32
004E9900 D95DF4           fstp dword ptr [ebp-$0c] //WTF?
004E9903 9B               wait //Exception happens here
004E9904 EB28             jmp $004e992e

解决方法

您的功能不尊重ABI.浮点值应在x87单元的ST(0)中返回. 
function ABCD32(Value: Cardinal): Single; register;
asm
  BSWAP  EAX
  PUSH   EAX
  FLD    [ESP]
  ADD    ESP,4
end;

Delphi 与 DirectX 之 DelphiX (2): DelphiX 各单元概览

Delphi 与 DirectX 之 DelphiX (2): DelphiX 各单元概览


DXClass | DXDraws | DIB | DXSounds | DXWave | DXPlay | DXSprite | DXInput

DXClass 单元 
TControlSubClass
TControlSubClassProc
TCustomDXTimer
TDirectX
TDirectXDriver
TDirectXDrivers
TDXForm
TDXPictureClip
TDXTimer
TDXTimerEvent
THashCollection
THashCollectionItem

TDblPoint

Min(Val1,Val2: Integer): Integer      
PointInRect(const Poin: TPoint; const Rect: TRect): Boolean
RectInRect(const Rect1,Rect2: TRect): Boolean
OverlapRect(const Rect1,Rect2: TRect): Boolean
WideRect(ALeft,ATop,AWidth,AHeight: Integer): TRect
InitCosinTable
Cos256(i: Integer): Double
Sin256(i: Integer): Double
ReleaseCom(out Com)
DXLoadLibrary(const FileName,FuncName: string): TFarProc
FreeLibList
MakeHashCode(const Str: string): Integer
Get2PointRange(a,b: TDblPoint): Double
GetARadFromB(A,B: TDblPoint): Double
Get256(dX,dY: Double): Double
GetPointFromRangeAndAngle(SP: TDblPoint; Range,Angle: Double): TDblPoint
In2DRowCol: T2DRowCol
Trans2DRowCol(x,y: double): T2DRowCol
Scale2DRowCol(x,y: double): T2DRowCol
Rotate2DRowCol(Theta: double): T2DRowCol
Multipl2DRowCol(A,B: T2DRowCol): T2DRowCol
RotateIntoX2DRowCol(x,y: double): T2DRowCol
ScaleAt2DRowCol(x,y,Sx,Sy: double): T2DRowCol
ReflectAcross2DRowCol(x,y,dx,dy: Double): T2DRowCol
RotateAround2DRowCol(x,y,Theta: Double): T2DRowCol
Apply2DVector(V: T2DVector; M: T2DRowCol): T2DVector
DblPoint(a,b: Double): TDblPoint
TruncDblPoint(DblPos: TDblPoint): TPoint
PointInCircl(PPos,CPos: TPoint; R: integer): Boolean
CircleInCirc(C1Pos,C2Pos: TPoint; R1,R2: Integer): Boolean
SegmentInCircle(SPos,EPos,CPos: TPoint; R: Integer): Boolean
Angle256(Angle: Single): Single
CheckNearAThanB(S,A,B: TDblPoint): Boolean
CircumCenter3Pt(const x1,y1,x2,y2,x3,y3: Single; outPx,Py: Singl): Boolean
Distance(const x1,y1,x2,y2: Double): Double
InCenter(const x1,y1,x2,y2,x3,y3: Double; outPx,Py: Double)
PointInTriangl(const Px,Py,x1,y1,x2,y2,x3,y3: Double): Boolean
Log(const Co,FName: string)

T2DRowCol
T2DVector
TCellRange
TControlSubClassProc
TDXTimerEvent

L_Curve = 0
R_Curve = 1
C_Add = 0
C_Dec = 1
PaletteMask = $02000000

CosinTable: array[0..255] of Double
LibList: TStringList
SetAppExStyleCount: Integer

DXDraws 单元 
TBlit
TBlitMoveEvent
TCustomDXDraw
TCustomDXImageList
TD2D
TD2DTextureFilter
TD2DTextures
TDirect3DTexture
TDirect3DTexture2
TDirectDraw
TDirectDrawClipper
TDirectDrawOverlay
TDirectDrawPalette
TDirectDrawSurface
TDirectDrawSurfaceCanvas
TDXDraw
TDXDrawDisplay
TDXDrawDisplayMode
TDXDrawDriver
TDXDrawDriverBlt
TDXDrawDriverFlip
TDXDrawNotifyEvent
TDXDrawNotifyType
TDXDrawOption
TDXFont
TDXImageList
TDXPowerFont
TDXPowerFontAfterTextOutEvent
TDXPowerFontBeforeTextOutEvent
TDXPowerFontEffectsParameters
TDXPowerFontTextOutEffect
TDXPowerFontTextOutType
TDXTBase
TDXTextureImage
TDXTextureImageFileBlockHeaderWriter
TDXTextureImageFileCompressType
TDXTextureImageLoadFunc
TDXTextureImageProgressEvent
TDXTextureImageType
TDXTImageChannel
TInitializeDirect3DOption
TOnRender
TOnUpdateTextures
TPictureCollection
TPictureCollectionComponent
TPictureCollectionItem
TPictureCollectionItemPattern
TRenderMirrorFlip
TRenderType
TTextureRec
TTrace
TTracePointsType
TTraces
TWaveType

TBlitRec
TBlurImageProp
TDXTextureImageChannel
TDXTextureImageFileBlockHeader
TDXTextureImageFileBlockHeader_StartGroup
TDXTextureImageFileBlockHeaderWriter_BlockInfo
TDXTextureImageFileHeader
TDXTextureImageHeader_Image_Format
TDXTextureImageHeader_Image_Format_Index
TDXTextureImageHeader_Image_Format_RGB
TDXTextureImageHeader_Image_GroupInfo
TDXTextureImageHeader_Image_PixelData
TDXTextureImageHeader_Image_TransparentColor
TDXTImageChannelInfo
TDXTImageFormat
TPath
TRGB

dxtMakeChannel(Mask: DWORD; indexed: Boolean): TDXTextureImageChannel  
dxtEncodeChannel(const Channel: TDXTextureImageChannel; c: DWORD): DWORD
dxtDecodeChannel(const Channel: TDXTextureImageChannel; c: DWORD): DWORD
dib2dxt(DIBImage: TDIB; out DXTImage: TDXTextureImage)
DXDraw_Draw(...); 
DXDraw_Paint(...); 
DXDraw_Render(...); 
DXDirectDrawEnumerate(lpCallback: TDDEnumCallbackA;  lpContext: Pointer): HRESULT
EnumDirectDrawDrivers:TDirectXDrivers
ClipRect(var DestRect: TRect; const DestRect2: TRect): Boolean
ClipRect2(var DestRect, SrcRect: TRect; const DestRect2, SrcRect2: TRect): Boolean
Conv24to16(Color: Integer): Word
Conv16to24(Color: Word): Integer
GetRGB(Color: cardinal; var R, G, B: Byte)
RGBToBGR(Color: cardinal): cardinal
BPPToDDBD(BPP: DWORD): DWORD
FreeZBufferSurface(Surface: TDirectDrawSurface; var ZBuffer: TDirectDrawSurface)
Direct3DInitializing(...); 
Direct3DInitializing_DXDraw(Options: TInitializeDirect3DOptions;  DXDraw: TCustomDXDraw)
InitializeDirect3D(...); 
InitializeDirect3D7(...); 
TDXDrawRGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads;  AllowPalette256: Boolean): TPaletteEntries
GetWidthBytes(Width, BitCount: Integer): Integer
DXTextureImage_LoadDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImage_LoadBitmapFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImageLoadFuncList:TList
DXTextureImage_SaveDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImage_LoadDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImage_SaveDXTextureImageFunc(Stream: TStream; Image: TDXTextureImage)
DXTextureImage_LoadBitmapFunc(Stream: TStream; Image: TDXTextureImage)
GetBitCount(b: Integer): Integer
IsNotZero(Z: TRect): Boolean
Mod2f(i: Double; i2: Integer): Double

PByte3
PDXDrawNotifyEvent
PDXTextureImageFileBlockHeaderWriter_BlockInfo
PPathArr
PRGB
PTextureArr
PTextureRec
TBlitMoveEvent
TBlurImageArr
TByte3
TD2D4Vertex
TD2DTextureFilter
TDirectDrawDisplay
TDirectDrawDisplayMode
TDXDrawNotifyEvent
TDXDrawNotifyType
TDXDrawOption
TDXDrawOptions
TDXPowerFontAfterTextOutEvent
TDXPowerFontBeforeTextOutEvent
TDXPowerFontTextOutEffect
TDXPowerFontTextOutType
TDXTextureImageFileCompressType
TDXTextureImageLoadFunc
TDXTextureImageProgressEvent
TDXTextureImageType
TDXTextureImage_PaletteEntries
TDXTImageChannel
TDXTImageChannels
TInitializeDire3DOption
TInitializeDire3DOptions
TOnRender
TOnUpdateTextures
TPathArr
TRenderMirrorFlip
TRenderMirrorFlipSet
TRenderType
TTextureArr
TTracePointsType
TWaveType

maxTexBlock = 2048  
maxVideoBlockSize = 2048
DXTextureImageGroupType_Normal = 0
DXTextureImageGroupType_Mipmap = 1
Alphabet =  ???
PowerAlphabet = ???
ccDefaultSpecular = $FFFFFFFF
ZeroRect:TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0)
DDPF_PALETTEINDEXED = ...; 
Mask1:array[0..7] of DWORD = (1, 2, 4, 8, 16, 32, 64, 128)
Mask2:array[0..3] of DWORD = (3, 12, 48, 192)
Mask4:array[0..1] of DWORD = ($0F, $F0)
Shift1:array[0..7] of DWORD = (0, 1, 2, 3, 4, 5, 6, 7)
Shift2:array[0..3] of DWORD = (0, 2, 4, 6)
Shift4:array[0..1] of DWORD = (0, 4)
DXTextureImageFile_Type = ''dxt:''
DXTextureImageFile_Version = $100
DXTextureImageCompress_None = 0
DXTextureImageCompress_ZLIB = 1
DXTextureImageFileCategoryType_Image = $100
DXTextureImageFileBlockID_EndFile = 0
DXTextureImageFileBlockID_EndGroup = 1
DXTextureImageFileBlockID_StartGroup = 2
DXTextureImageFileBlockID_Image_Format = DXTextureImageFileCategoryType_Image + 1
DXTextureImageFileBlockID_Image_PixelData = DXTextureImageFileCategoryType_Image + 2
DXTextureImageFileBlockID_Image_GroupInfo = DXTextureImageFileCategoryType_Image + 3
DXTextureImageFileBlockID_Image_Name = DXTextureImageFileCategoryType_Image + 4
DXTextureImageFileBlockID_Image_TransparentColor = DXTextureImageFileCategoryType_Image + 5
SurfaceDivWidth = maxVideoBlockSize
SurfaceDivHeight = maxVideoBlockSize

DirectDrawDrivers: TDirectXDrivers 
D2D: TD2D = nil  
RenderError: boolean = false
_DXTextureImageLoadFuncList: TList

DIB 单元 
TColorLinePixelGeometry
TColorLineStyle
TCustomDXDIB
TCustomDXPaintBox
TDIB
TDIBitmap
TDIBSharedImage
TDistortType
TDXDIB
TDXPaintBox
TFilterMode
TFilterTypeResample
TGlobalMemoryStream
TPaletteItem
TPaletteManager

TBGR
TDIBPixelFormat
TLightSource
TLocalDIBPixelFormat

MakeDIBPixelFormat(RBitCount, GBitCount, BBitCount: Integer): TDIBPixelFormat
MakeDIBPixelFormatMask(RBitMask, GBitMask, BBitMask: Integer): TDIBPixelFormat
pfRGB(const PixelFormat: TDIBPixelFormat; R, G, B: Byte): DWORD
pfGetRGB(const PixelFormat: TDIBPixelFormat; Color: DWORD; var R, G, B: Byte)
pfGetRValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): Byte
pfGetGValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): Byte
pfGetBValue(const PixelFormat: TDIBPixelFormat; Color: DWORD): Byte
GreyscaleColorTable:TRGBQuads
RGBQuad(R, G, B: Byte): TRGBQuad
PaletteEntryToRGBQuad(const Entry: TPaletteEntry): TRGBQuad
PaletteEntriesToRGBQuads(const Entries: TPaletteEntries): TRGBQuads
RGBQuadToPaletteEntry(const RGBQuad: TRGBQuad): TPaletteEntry
RGBQuadsToPaletteEntries(const RGBQuads: TRGBQuads): TPaletteEntries
PosValue(Value: Integer): Integer
DSin(const C: TOC): Single
DCos(const C: TOC): Single
GetScale(SourceWidth, SourceHeight, TargetWidth, TargetHeight: Integer): Single
MakeDib(out DIB: TDIB; const iWidth, iHeight, iBitCount: Integer; iFillColor: TColor{$IFDEF VER4UP} = clBlack{$ENDIF})
MakeDIB2(out DIB: TDIB; iBitmap: TBitmap)
PaletteManager:TPaletteManager
EmptyDIBImage:TDIBSharedImage
IntToByte(i: Integer): Byte
TrimInt(i, Min, Max: Integer): Integer

PArrayBGR
PArrayByte
PArrayDWord
PArrayWord
PBGR
PBytes
PLines
PLocalDIBPixelFormat
PPBytes
PRGBA
PRGBQuads
TArrayBGR
TArrayByte
TArrayDWord
TArrayWord
TBytes
TColorLinePixelGeometry
TColorLineStyle
TDistortType
TFilter
TFilterMode
TFilterTypeResample
TLightArray
TLines
TMatrixSetting
TOC
TPaletteEntries
TPBytes
TRGBA
TRGBQuads

DefaultFilterRadius: array[TFilterTypeResample] of Single = (0.5, 1, 1, 1.5, 2, 3, 2)
EdgeFilter: TFilter = ((-1, -1, -1), (-1, 8, -1), (-1, -1, -1))
StrongOutlineFilter: TFilter = ((-100, 0, 0), (0, 0, 0), (0, 0, 100))
Enhance3DFilter: TFilter = ((-100, 5, 5), (5, 5, 5), (5, 5, 100))
LinearFilter: TFilter = ((-40, -40, -40), (-40, 255, -40), (-40, -40, -40))
GranularFilter: TFilter = ((-20, 5, 20), (5, -10, 5), (100, 5, -100))
SharpFilter: TFilter = ((-2, -2, -2), (-2, 20, -2), (-2, -2, -2))
msEmboss: TMatrixSetting = (-1, -1, 0, -1, 6, 1, 0, 1, 1, 6)
msHardEmboss: TMatrixSetting = (-4, -2, -1, -2, 10, 2, -1, 2, 4, 8)
msBlur: TMatrixSetting = (1, 2, 1, 2, 4, 2, 1, 2, 1, 16)
msSharpen: TMatrixSetting = (-1, -1, -1, -1, 15, -1, -1, -1, -1, 7)
msEdgeDetect: TMatrixSetting = (-1, -1, -1, -1, 8, -1, -1, -1, -1, 1)
Mask1: array[0..7] of DWORD = ($80, $40, $20, $10, $08, $04, $02, $01)
Mask  1 n: array  [ 0.. 7 ]  of DWORD = ...
Mask4: array[0..1] of DWORD = ($F0, $0F)
Mask4n: array[0..1] of DWORD = ($FFFFFF0F, $FFFFFFF0)
Shift1: array[0..7] of DWORD = (7, 6, 5, 4, 3, 2, 1, 0)
Shift4: array[0..1] of DWORD = (4, 0)
BitmapFileType = Ord(''B'') + Ord(''M'') * $100

FPaletteManager: TPaletteManager
FEmptyDIBImage: TDIBSharedImage

DXSounds 单元 
TAudioFileStream
TAudioStream
TAudioStreamNotify
TCustomDXSound
TCustomDXWaveList
TDirectSound
TDirectSoundBuffer
TDXMusic
TDXSound
TDXSoundDirectSound
TDXSoundNotifyEvent
TDXSoundNotifyType
TDXSoundOption
TDXWaveList
TMidiCollectionComponent
TMusicDataProp
TMusicListCollection
TMusicListCollectionItem
TSoundCaptureFormat
TSoundCaptureFormats
TSoundCaptureStream
TSoundCaptureStreamNotify
TSoundEngine
TWaveCollection
TWaveCollectionComponent
TWaveCollectionItem

TMidiDataHeader

DXDirectSoundCreate(lpGUID: PGUID; out lpDS: IDirectSound; pUnkOuter: IUnknown): HRESULT
DXDirectSoundEnumerate(lpCallback: TDSEnumCallbackA;  lpContext: Pointer): HRESULT
DXDirectSoundCaptureCreate(lpGUID: PGUID; out lplpDSC: IDirectSoundCapture;  pUnkOuter: IUnknown): HRESULT
DXDirectSoundCaptureEnumerate(lpCallback: TDSEnumCallbackA;  lpContext: Pointer): HRESULT
EnumDirectSoundDrivers_DSENUMCALLBACK(...): BOOL
EnumDirectSoundDrivers: TDirectXDrivers
EnumDirectSoundCaptureDrivers: TDirectXDrivers

PDXSoundNotifyEvent
TDXSoundNotifyEvent
TDXSoundNotifyType
TDXSoundOption
TDXSoundOptions

dm_OK = 0
DSBCAPS_CTRLDEFAULT = DSBCAPS_CTRLFREQUENCY or DSBCAPS_CTRLPAN or DSBCAPS_CTRLVOLUME

DirectSoundDrivers: TDirectXDrivers
DirectSoundCaptureDrivers: TDirectXDrivers

DXWave 单元 
TCustomDXWave
TCustomWaveStream
TCustomWaveStream2
TDXWave
TWave
TWaveFileStream
TWaveObjectStream
TWaveStream

TWaveChunkHeader
TWaveFileHeader

MakePCMWaveFormatEx(var Format: TWaveFormatEx; SamplesPerSec, BitsPerSample, Channels: Integer)

WavePoolSize = 8096
ID_RIFF = Ord(''R'') + Ord(''I'')*$100 + Ord(''F'')*$10000 + Ord(''F'')*$1000000
ID_WAVE = Ord(''W'') + Ord(''A'')*$100 + Ord(''V'')*$10000 + Ord(''E'')*$1000000
ID_FMT = Ord(''f'') + Ord(''m'')*$100 + Ord(''t'')*$10000 + Ord('' '')*$1000000
ID_FACT = Ord(''f'') + Ord(''a'')*$100 + Ord(''c'')*$10000 + Ord(''t'')*$1000000
ID_DATA = Ord(''d'') + Ord(''a'')*$100 + Ord(''t'')*$10000 + Ord(''a'')*$1000000

DXPlay 单元 
TCustomDXPlay
TDXPlay
TDXPlayEvent
TDXPlayMessageEvent
TDXPlayModemSetting
TDXPlayPlayer
TDXPlayPlayers
TDXPlayRecvThread
TDXPlaySendCompleteEvent
TDXPlaySendCompleteResult
TDXPlayTCPIPSetting

DXPlayMessageType(P: Pointer): DWORD
DXPlayStringToGUID(const S: string): TGUID
DXDirectPlayCreate(...): HRESULT
GUIDToString(const ClassID: TGUID): string
DXDirectPlayEnumerate(lpEnumDPCallback: TDPEnumDPCallbackW; lpContext: Pointer): HRESULT
DXDirectPlayLobbyCreate(...): HRESULT

TDXPlayEvent
TDXPlayMessageEvent
TDXPlaySendCompleteEvent
TDXPlaySendCompleteResult

DXSprite 单元 
TBackgroundSprite
TCollisionEvent
TCustomDXSpriteEngine
TDrawEvent
TDXSpriteEngine
TGetImage
TImageSprite
TImageSpriteEx
TMoveEvent
TSCFinalize
TSCInitialize
TSprite
TSpriteClass
TSpriteCollection
TSpriteCollectionItem
TSpriteEngine
TSpriteType

TMapDataHeader
TMapType

Mod2(i,i2: Integer): Integer
Mod2f(i: Double; i2: Integer): Double

SSpriteNotFound = ''Sprite not found''
SSpriteDuplicateName = ''Item duplicate name "%s" error''

DXInput 单元 
TCustomDXInput
TCustomInput
TDXInput
TDXInputState
TForceFeedbackEffect
TForceFeedbackEffectComponent
TForceFeedbackEffectItem
TForceFeedbackEffectObject
TForceFeedbackEffects
TForceFeedbackEffectType
TJoystick
TKeyboard
TMouse

DefKeyAssign: TKeyAssignList
DefKeyAssign2_1: TKeyAssignList
DefKeyAssign2_2: TKeyAssignList
AssignKey(var KeyAssignList: TKeyAssignList; State: TDXInputState; const Keys: array of Integer)
ConvertTime(i: Integer): DWORD
SetDWORDProperty(pdev: IDirectInputDevice; guidProperty: PGUID; dwObject, dwHow, dwValue: DWORD): HResult
SetRangeProperty(pdev: IDirectInputDevice; guidProperty: PGUID; dwObject, dwHow, Value: DWORD): HResult
TJoystick_EnumJoysticksCallback(const lpddi: TDIDeviceInstanceA; pvRef: Pointer): HRESULT
InitDirectInput(out DI: IDirectInput)
FinDirectInput(var DI: IDirectInput)

PKeyAssign
TDXInputState
TDXInputStates
TForceFeedbackEffectType
TKeyAssign
TKeyAssignList

FDirectInput: IDirectInput
FDirectInputCount: Integer

我们今天的关于Delphi汇编调用和delphi 汇编的分享就到这里，谢谢您的阅读，如果想了解更多关于.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结、delphi string 汇编、delphi – 调用汇编语言函数会导致“浮点堆栈检查”异常、Delphi 与 DirectX 之 DelphiX (2): DelphiX 各单元概览的相关信息，可以在本站进行搜索。

本文标签：

上一篇delphi – 创建区域图,用其他颜色着色溢出值的部分（delphi取颜色值）

下一篇Delphi：你能在DLL中有一个组件类定义,并在运行时加载并创建它吗？

相关文章