memory.pas

《Delphi深度历险》附书源码 Delphi学习书本

unit memory;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  CtlPanel;

type
  TMemoryModule = class(TAppletModule)
    procedure MemoryModuleNewInquire(Sender: TObject; var lData: Integer;
      var hIcon: hIcon; var AppletName, AppletInfo: string);
    procedure MemoryModuleActivate(Sender: TObject; Data: Integer);
  private
    { private declarations }
  protected
    { protected declarations }
  public
    { public declarations }
  end;
  
var
  MemoryModule: TMemoryModule;

implementation

{$R *.DFM}

procedure TMemoryModule.MemoryModuleNewInquire(Sender: TObject;
    var lData: Integer; var hIcon: hIcon; var AppletName,
    AppletInfo: string);
var
  MemStat: TMEMORYSTATUS;
begin
  //