Das Problem ist das WDT_TYPE Integer und nicht Cardinal ist. Indem man es in eine Hex-Konstante umwandelt wird der Typ der Konstante implizit Cardinal statt Integer. Das sollte die Fehlermeldung erlegen.
Delphi-Quellcode:
const
WDT_TYPE = $88B9;
WDT_DEVICE = '
\\.\WDT_DEVICE';
WDT_DEVICE_NAME = '
\Device\WDT_DEVICE';
WDT_DOS_DEVICE_NAME = '
\DosDevices\WDT_DEVICE';
IOCTL_SYS_DIO_WRITE = (WDT_TYPE
shl 16)
or (2
shl 14)
or ($805
shl 2)
or 0;
IOCTL_SYS_WDT_STOP = (WDT_TYPE
shl 16)
or (2
shl 14)
or ($802
shl 2)
or 0;
var
Form1: TForm1;
DriveHandle: THandle;
n: DWORD;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
DriveHandle := CreateFile(WDT_DEVICE, GENERIC_READ orGENERIC_WRITE, FILE_SHARE_READ
or
FILE_SHARE_WRITE,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL
or
FILE_FLAG_NO_BUFFERING, 0);
if DriveHandle <> INVALID_HANLDE_VALUE
then
begin
DeviceIoControl(DriveHandle, IOCTL_SYS_DIO_WRITE,
nil, sizeof('
0xf'),
nil, 0, n,
nil);
CloseHandle(DriveHandle);
end
else
MessageDlg('
Fehler, kein (gültiges) Handle!', mtWarning, [mbOK], 0);
end;
Der DeviceIoControl-Aufruf macht ueberhaupt keinen Sinn. Es wird ein Puffer mit Laenge fuer die Eingabedaten und ein Puffer mit Laenge fuer die Ausgabedaten uebergeben. Je nach Aufruf kannn einer oder beide der Puffer nil sein. Das haengt davon ab welchen Befehl (hier IOCTL_SYS_DIO_WRITE) man angibt. Wo keine Daten rein- oder rausgehen da braucht man auch keinen Puffer. Die Angabe dafuer ist aber nil fuer den Pufferzeiger und 0 fuer die Pufferlaenge.
"nil, sizeof('0xf')" ist aber eine unsinnige Angabe. Es soll etwas geschrieben werden (der Namensbestandteil _WRITE signalisiert das ueberdeutlich), aber es wird kein Puffer angegeben. "sizeof('0xf')" ist ein ebenso unsinniger Ausdruck. Soll das die Laenge des Strings '0xf' sein oder die Groesse eines Pointers? Gib doch mal den originalen C-Aufruf an.