А я тестировал у меня на x86 работает
Переделай исходник, посмотри какие ошибки возвращает каждая функция, посмотри запущен ли драйвер
Например
Код:
if not DeviceIoControl(DriverDevice, CTL_CODE($F100, $0901, 0, 0), @InitInfo, Sizeof(TInitInfo), nil, 0, dwBytesReturned, 0) then
Form1.Caption:= 'ERROR DeviceIoControl 901: ' + SysErrorMessage(GetLastError());
Код:
DriverDevice := CreateFileW('\\.\' + 'SSDTHOOK', GENERIC_READ or GENERIC_WRITE, 0, PSECURITY_DESCRIPTOR(nil), OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if (DriverDevice = 0) or (DriverDevice = INVALID_HANDLE_VALUE) then
Form1.Caption:= 'ERROR CreateFileW SSDTHOOK: ' + SysErrorMessage(GetLastError());
Сделай обработку ошибок для каждой функции и процедуры
Как то так
И если тебе нужен 100% готовый вирус/зловред ты точно не суда пришел