VOID ThreadProc (PDEVICE_EXTENSION pdx)
{
    LARGE_INTEGER    delay;
    delay.LowPart = (ULONG) -15000000;
    delay.HighPart = -1;
   
    while(1)
    {
         if  (KeGetCurrentIrql() == PASSIVE_LEVEL)
        {
            KdPrint(("ThreadProc"));
   
            KeDelayExecutionThread(KernelMode, FALSE, &delay );
        }
    }
}

DEVICE_EXTENSION       DevExt;
HANDLE                        hThread;

// Thread Create..   
ntStatus = PsCreateSystemThread(&hThread, THREAD_ALL_ACCESS, NULL, NULL, NULL,
                    (PKSTART_ROUTINE)ThreadProc, &DevExt);

if (!NT_SUCCESS(ntStatus))
    return ntStatus;

ObReferenceObjectByHandle(hThread, THREAD_ALL_ACCESS, NULL,
            KernelMode, (PVOID*) &DevExt.thread, NULL);

ZwClose(hThread);