我們可以從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;