Nja, aus der
WinAPI kennt man auch makros, welche eigentlich mehr funktionen sind, außer daß sie quasi im Compiler
ausgeführt aufgelöst werden.
Bei ErrorCodes oder z.B. bei dem Wert für IOCTL_IDE_PASS_THROUGH.
In Delphi ist sowas einfach nicht möglich.
Code:
#define CTL_CODE(DeviceType, Function, Method,
Access) (
((DeviceType) << 16) | ((
Access) << 14) | ((Function) << 2) | (Method)
)
# define IOCTL_ATA_PASS_THROUGH CTL_CODE(IOCTL_SCSI_BASE, 0x040B, METHOD_BUFFERED, FILE_READ_ACCESS | FILE_WRITE_ACCESS)
Als Funktion kann man es nicht für Konstanten verwenden:
Delphi-Quellcode:
function CTL_CODE(DeviceType, _Function, Method,
Access: Cardinal): Cardinal;
begin
Result := (DeviceType
shl 16)
or (
Access Shl 14)
or (_Function
shl 2)
or (Method);
end;
Flag:=CTL_CODE(IOCTL_SCSI_BASE, $040B , METHOD_BUFFERED, (FILE_READ_ACCESS
or FILE_WRITE_ACCESS));
Oder man macht es so, bzw. rechnet den Wert gleich aus.
Delphi-Quellcode:
const
IOCTL_ATA_PASS_THROUGH= (IOCTL_SCSI_BASE shl 16) or ((FILE_READ_ACCESS or FILE_WRITE_ACCESS) shl 14) or ($040B shl 2) or (METHOD_BUFFERED);
Nahezu alle Header lassen sich nach C und Co. übersetzen ... nur Andersrum geht es meistens nicht.