glbmem.dpr

来自「Delphi basic program. Basic programing」· DPR 代码 · 共 28 行

library glbmem;

uses
  Windows,
  ShareMem,
  SysUtils,
  Classes,
  Dialogs;

var
    hMem:THandle;
    num:Integer;

function GetGlobalMem:THandle;export;
  begin
    Result := hMem;
  end;

exports
  GetGlobalMem Index 1 name 'MyGetGlobalMem' resident;

begin
    num := 320;
  	hMem := GlobalAlloc(gmem_MOVEABLE and gmem_DDEShare,num);
		if hMem = 0 then
			MessageDlg('Could not allocate memory',mtWarning,[mbOK],0);
end.