blob: 130b4722e63a80516328f5c4b75bc0eaab073848 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{
Driver Development Kit for Native NT
This file is part of the Free Pascal run time library.
Copyright (c) 2009 by Sven Barth
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit DDK;
interface
uses
NDK;
const
// we distinguish the user- AND kernel-mode imports (NDK.ntdll) from the pure
// kernel mode imports (ntkrnl)
ntkrnl = 'ntoskrnl.exe';
{$include ddktypes.inc}
// these two only return not Nil in main routine of a device driver
function RegistryPath: PNtUnicodeString; inline;
function DriverObject: PDriverObject; inline;
function DbgPrint(aFormat: PChar): LongWord; cdecl; varargs; external ntkrnl name 'DbgPrint';
function PoolTag(aTag: TTagString): LongWord;
{$include ddkex.inc}
implementation
function RegistryPath: PNtUnicodeString; inline;
begin
RegistryPath := SysRegistryPath;
end;
function DriverObject: PDriverObject; inline;
begin
DriverObject := SysDriverObject;
end;
function PoolTag(aTag: TTagString): LongWord;
begin
PoolTag := Ord(aTag[1]) + Ord(aTag[2]) shl 8 +
Ord(aTag[3]) shl 16 + Ord(aTag[4]) shl 24;
end;
end.
|
