Posted: Wed Jun 18, 2014 3:25 pm
AKDN_FRAME_ACTIVATE
Support forum
http://akelpad.sourceforge.net/forum/
Code: Select all
var hMainWnd=AkelPad.GetMainWnd();
var hMem;
var szName;
var szMem;
var dwMemSize=1000;
if (szName=AkelPad.MemAlloc(16))
{
AkelPad.MemCopy(szName, "Global\\AkelPad", 0 /*DT_ANSI*/);
//Create named memory object.
if (hMem=AkelPad.SendMessage(hMainWnd, 1305 /*AKD_MEMCREATE*/, szName, dwMemSize))
{
if (szMem=AkelPad.SendMessage(hMainWnd, 1306 /*AKD_MEMMAP*/, hMem, dwMemSize))
{
AkelPad.MemCopy(szMem, "Test", 0 /*DT_ANSI*/);
AkelPad.SendMessage(hMainWnd, 1307 /*AKD_MEMUNMAP*/, szMem, 0);
}
//Call external application. This application should call:
//hMem=OpenFileMappingA(FILE_MAP_ALL_ACCESS, FALSE, "Global\\AkelPad");
//szMem=MapViewOfFile(hMem, FILE_MAP_ALL_ACCESS, 0, 0, 1000);
//Read szMem.
//UnmapViewOfFile(szMem);
AkelPad.SendMessage(hMainWnd, 1308 /*AKD_MEMCLOSE*/, hMem, 0);
}
AkelPad.MemFree(szName);
}
Code: Select all
var hMainWnd=AkelPad.GetMainWnd();
var hMem;
var szName;
var szMem;
var pMem="";
var dwMemSize=1000;
if (szName=AkelPad.MemAlloc(16))
{
AkelPad.MemCopy(szName, "Global\\AkelPad", 0 /*DT_ANSI*/);
//Create named memory object.
if (hMem=AkelPad.SendMessage(hMainWnd, 1305 /*AKD_MEMCREATE*/, szName, dwMemSize))
{
if (szMem=AkelPad.SendMessage(hMainWnd, 1306 /*AKD_MEMMAP*/, hMem, dwMemSize))
{
AkelPad.MemCopy(szMem, "Test", 0 /*DT_ANSI*/);
AkelPad.SendMessage(hMainWnd, 1307 /*AKD_MEMUNMAP*/, szMem, 0);
}
//Call external application. This application should call:
//hMem=OpenFileMappingA(FILE_MAP_ALL_ACCESS, FALSE, "Global\\AkelPad");
//szMem=MapViewOfFile(hMem, FILE_MAP_ALL_ACCESS, 0, 0, 1000);
//Read szMem.
//UnmapViewOfFile(szMem);
if (szMem=AkelPad.SendMessage(hMainWnd, 1306 /*AKD_MEMMAP*/, hMem, dwMemSize))
{
pMem=AkelPad.MemRead(szMem, 0 /*DT_ANSI*/);
AkelPad.SendMessage(hMainWnd, 1307 /*AKD_MEMUNMAP*/, szMem, 0);
}
WScript.Echo(pMem);
AkelPad.SendMessage(hMainWnd, 1308 /*AKD_MEMCLOSE*/, hMem, 0);
}
AkelPad.MemFree(szName);
}
Great postr0n wrote:Thank you!!!