for XP
function ZwQuerySystemInformation(ASystemInformationClass: dword;
                                      ASystemInformation: Pointer;
                                      ASystemInformationLength: dword;
                                      AReturnLength: pdword): dword; stdcall;
  asm
  pop ebp
  mov eax, $AD
  call @SystemCall
  ret $10
  @SystemCall:
  mov edx, esp
  sysenter
  end;

for 2000
function ZwQuerySystemInformation(ASystemInformationClass: dword;
                                      ASystemInformation: Pointer;
                                      ASystemInformationLength: dword;
                                      AReturnLength: pdword): dword; stdcall;
  asm
  pop ebp
  mov eax, $97
  lea edx, [esp + $04]
  int $2E
  ret $10
  end;

这两个函数 在DELPHI中可以实现该API的效果吗？
能否转换成VC下能用的?

[注意]APP应用上架合规检测服务，协助应用顺利上架！