c++这种类型的定义 如何转化成delphi方式？

[soddyzjx118]

c++这种类型的定义 如何转化成delphi方式？
--------------------------------------------
#define SCARD_CTL_CODE(code) CTL_CODE(FILE_DEVICE_SMARTCARD, \
(code), \
METHOD_BUFFERED, \
FILE_ANY_ACCESS)

#define IOCTL_SMARTCARD_POWER SCARD_CTL_CODE( 1)
#define IOCTL_SMARTCARD_GET_ATTRIBUTE SCARD_CTL_CODE( 2)
#define IOCTL_SMARTCARD_SET_ATTRIBUTE SCARD_CTL_CODE( 3)
#define IOCTL_SMARTCARD_CONFISCATE SCARD_CTL_CODE( 4)
#define IOCTL_SMARTCARD_TRANSMIT SCARD_CTL_CODE( 5)
#define IOCTL_SMARTCARD_EJECT SCARD_CTL_CODE( 6)
#define IOCTL_SMARTCARD_SWALLOW SCARD_CTL_CODE( 7)

[gbf08711]

#define SCARD_CTL_CODE(code) CTL_CODE(FILE_DEVICE_SMARTCARD, \
(code), \
METHOD_BUFFERED, \
FILE_ANY_ACCESS)
这是宏定义,delphi中没有,可用函数代替
if CTL_CODE 是个函数则可定义成
procedrue SCRAD_CTL_CODE(code:integer);
begin
CTL_CODE(FILE_DEVICE_SMARTCARD,(code), METHOD_BUFFERED,FILE_ANY_ACCESS)
end;
#define IOCTL_SMARTCARD_POWER SCARD_CTL_CODE( 1)
procedure IOCTL_SMARTCARD_POWER
begin
SCARD_CTL_CODE(1);
end;