如何取得系统的空闭资源的百分率 不用win31的QT_Thrunk函数

Question

//有没有这个文件'RSRC32.DLL'procedure TForm1.Button1Click(Sender: TObject);
var
  _MyGetFreeSystemResources32: function(Mode: Integer): Integer stdcall;
  RSRC32DLL: THandle;
  res :integer;
begin
  Res := 100;
  RSRC32DLL := LoadLibrary('RSRC32.DLL');
  if (RSRC32DLL <> 0) then
    begin
      @_MyGetFreeSystemResources32 := GetProcAddress(RSRC32DLL, '_MyGetFreeSystemResources32@4');
      Res := _MyGetFreeSystemResources32(0);//0，1，2 分别表示FreeSysRes，FreeGDIRes，FreeUserRes
      showmessage(Inttostr(Res));
      FreeLibrary(RSRC32DLL);
    end;
end;

Answer 1

上面方法应该支持NT，如果文件'RSRC32.DLL'存在的话。

Answer 2

Thanks superljj() 晚上回去试 明天给分 另外NT4 nt2000下 如何用 没有RSRC32.DLL文件

Answer 3

如果没有RSRC32.DLL文件，我也没有方法了。