?? glbmem.dpr
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -