我们可以从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单位。

以下是使用Native 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;