simplememtest.pas

Delphi7从入门到精通及附书源码 Delphi7从入门到精通及附书源码

unit SimpleMemTest;

interface

implementation

uses
  Windows;

var
  msg: string;

initialization

finalization

  if AllocMemCount > 0 then
  begin
    Str (AllocMemCount, msg);
    msg := msg + ' heap blocks left';
    MessageBox (0, PChar(msg), 'Memory Leak', MB_OK);
  end;

end.