我们可以从Delphi调用Native Windows API吗？

Question

是否可以在Delphi应用程序中调用内核Native API？像nt和zw系统调用。

Answer 1

你确实可以从Delphi调用本地API。

Delphi不附带本地API的标题翻译。所以你需要提供你自己的，或使用预先存在的翻译。例如。 NT API的JEDI翻译。

Answer 2

正如David Heffernan所说，从usermode和Delphi使用Native API是完全可能的。您将需要Jedi Apilib的JwaNative设备。

下面是小例子使用原生API来枚举进程： （TProcessList是TObjectList的后裔，但相关的部分是调用NtQuerySystemInformation）

function EnumProcesses: TProcessList; 
var 
    Current: PSystemProcesses; 
    SystemProcesses : PSystemProcesses; 
    dwSize: DWORD; 
    nts: NTSTATUS; 
begin 
    Result := TProcessList.Create; 

    dwSize := 200000; 
    SystemProcesses := AllocMem(dwSize); 

    nts := NtQuerySystemInformation(SystemProcessesAndThreadsInformation, 
     SystemProcesses, dwSize, @dwSize); 

    while nts = STATUS_INFO_LENGTH_MISMATCH do 
    begin 
    ReAllocMem(SystemProcesses, dwSize); 
    nts := NtQuerySystemInformation(SystemProcessesAndThreadsInformation, 
     SystemProcesses, dwSize, @dwSize); 
    end; 

    if nts = STATUS_SUCCESS then 
    begin 
    Current := SystemProcesses; 
    while True do 
    begin 
     Result.Add(TProcess.Create(Current^)); 
     if Current^.NextEntryDelta = 0 then 
     Break; 

     Current := PSYSTEM_PROCESSES(DWORD_PTR(Current) + Current^.NextEntryDelta); 
    end; 
    end; 

    FreeMem(SystemProcesses); 
end;