

//// б

AkelPad.GetMainWnd
AkelPad.GetAkelDir
AkelPad.GetInstanceDll
AkelPad.IsOldWindows
AkelPad.IsOldRichEdit
AkelPad.IsOldComctl32
AkelPad.IsAkelEdit
AkelPad.IsMDI
AkelPad.GetEditWnd
AkelPad.GetEditFile
AkelPad.GetEditCodePage
AkelPad.GetEditBOM
AkelPad.GetEditNewLine
AkelPad.GetEditModified
AkelPad.GetEditReadOnly
AkelPad.SendMessage
AkelPad.MessageBox
AkelPad.InputBox
AkelPad.GetSelStart
AkelPad.GetSelEnd
AkelPad.SetSel
AkelPad.GetSelText
AkelPad.ReplaceSel
AkelPad.TextFind
AkelPad.TextReplace
AkelPad.GetClipboardText
AkelPad.SetClipboardText
AkelPad.Call
AkelPad.IsPluginRunning
AkelPad.OpenFile
AkelPad.ReadFile
AkelPad.SaveFile
AkelPad.SystemFunction
AkelPad.SystemFunction.AddParameter
AkelPad.SystemFunction.Call
AkelPad.SystemFunction.GetLastError
AkelPad.MemAlloc
AkelPad.MemCopy
AkelPad.MemRead
AkelPad.MemFree
AkelPad.WindowRegisterClass
AkelPad.WindowUnregisterClass
AkelPad.WindowGetMessage


//// ʹ˵

AkelPad.GetMainWnd
__________________

ȡھ

  GetMainWnd();

ֵ
  ֵھ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();


AkelPad.GetAkelDir
__________________

ȡ AkelPad Ŀ¼

  GetAkelDir();

ֵ
  ִAkelPad Ŀ¼

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var pAkelDir=AkelPad.GetAkelDir();


AkelPad.GetInstanceDll
______________________

ȡ DLL ʵinstance 

  GetInstanceDll();

ֵ
  ֵDLL instance 

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hInstance=AkelPad.GetInstanceDll();


AkelPad.IsOldWindows
____________________

-Unicode Windows

  IsOldWindows();

ֵ
  true   -Unicode (Windows 95/98/Me)
  false  Unicode (Windows NT/2000/XP)

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bOldWindows=AkelPad.IsOldWindows();


AkelPad.IsOldRichEdit
_____________________

riched20.dll İ汾ŵ 5.30 (v3.0)

  IsOldRichEdit();

ֵ
  true   riched20.dll İ汾ŵ 5.30 (v2.0)
  false  riched20.dll İ汾Ų 5.30 (v3.0, v4.0)

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bOldRichEdit=AkelPad.IsOldRichEdit();


AkelPad.IsOldComctl32
_____________________

comctl32.dll 汾ŵ 4.71

  IsOldComctl32();

ֵ
  true   comctl32.dll 汾ŵ 4.71
  false  comctl32.dll 汾ŵ 4.71

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bOldComctl32=AkelPad.IsOldComctl32();


AkelPad.IsAkelEdit
__________________

ʹ AkelEdit ؼ

  IsAkelEdit();

ֵ
  true   ʹ AkelEdit ؼ(AkelPad v4.x.x ߰汾)
  false  ʹ RichEdit ؼ(AkelPad v3.x.x)

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bAkelEdit=AkelPad.IsAkelEdit();


AkelPad.IsMDI
_____________

AkelPad  MDI ģʽ

  IsMDI();

ֵ
  true   ʹ MDI ģʽ
  false  ʹ SDI ģʽ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bMDI=AkelPad.IsMDI();


AkelPad.GetEditWnd
__________________

ȡǰ༭ڵľ

  GetEditWnd();

ֵ
  ֵǰ༭ڵľ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hEditWnd=AkelPad.GetEditWnd();


AkelPad.GetEditFile
___________________

ȡļơ

  GetEditFile(hHandle);


  hHandle
    ༭ڵľΪ  ʹõǰ༭ڵľ

ֵ
  ִļơ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var pEditFile=AkelPad.GetEditFile(0);


AkelPad.GetEditCodePage
_______________________

ȡļĴҳ

  GetEditCodePage(hHandle);


  hHandle
    ༭ڵľΪ  ʹõǰ༭ڵľ

ֵ
  ֵҳ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var nCodePage=AkelPad.GetEditCodePage(0);


AkelPad.GetEditBOM
__________________

ȡļ BOM

  GetEditBOM(hHandle);


  hHandle
    ༭ڵľΪ  ʹõǰ༭ڵľ

ֵ
  true   ļ BOM
  false  ļû BOM

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bBOM=AkelPad.GetEditBOM(0);


AkelPad.GetEditNewLine
______________________

ȡļзʽ

  GetEditNewLine(hHandle);


  hHandle
    ༭ڵľΪ  ʹõǰ༭ڵľ

ֵ
  1  DOS/Windows (0Dh, 0Ah)
  2  Unix (0Ah)
  3  Mac (0Dh)

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var nNewLine=AkelPad.GetEditNewLine(0);


AkelPad.GetEditModified
_______________________

ȡļ޸ıǡ

  GetEditModified(hHandle);


  hHandle
    ༭ڵľΪ  ʹõǰ༭ڵľ

ֵ
  true   ༭ؼѾ޸
  false  ༭ؼݻδ޸

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bModified=AkelPad.GetEditModified(0);


AkelPad.GetEditReadOnly
_______________________

ȡ༭ؼֻģʽ

  GetEditReadOnly(hHandle);


  hHandle
    ༭ڵľΪ  ʹõǰ༭ڵľ

ֵ
  true   ֻģʽ
  false  ༭ģʽ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bReadOnly=AkelPad.GetEditReadOnly(0);


AkelPad.SendMessage
___________________

Ϣ

  SendMessage(hHandle, nMessage, wParam, lParam);


  hHandle
    ϢĴڹ̵Ĵڵľ
  nMessage
    ָҪ͵Ϣ
  wParam
    ָӵϢָϢ
  lParam
    ָӵϢָϢ

ֵ
  ֵϢĴڱ͵Ϣ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  AkelPad.SendMessage(hMainWnd, 273 /*WM_COMMAND*/, 4101 /*IDM_FILE_NEW*/, 0);


AkelPad.MessageBox
__________________

ʾϢ

  MessageBox(hHandle, pText, pCaption, nType);


  hHandle
    Ϣڵľ˲Ϊ 㣬Ϣڡ
  pText
    ҪʾϢ
  pCaption
    Իı⡣
  nType
    ָԻݺΪ MSDN

ֵ
  ֵֵΪ㰴ť ID MSDN

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  AkelPad.MessageBox(hMainWnd, "MyText", "MyCaption", 64 /*MB_ICONINFORMATION*/);


AkelPad.InputBox
________________

Ի.

  InputBox(hHandle, pCaption, pLabel, pEdit);


  hHandle
    Ϣڵľ
  pCaption
    Իı⡣
  pLabel
    ༭ǩ
  pEdit
    ༭ı

ֵ
  ִ༭ı

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  var pText=AkelPad.InputBox(hMainWnd, "MyCaption", "MyLabel", "MyText");


AkelPad.GetSelStart
___________________

ȡѡΧһַ

  GetSelStart();

ֵ
  ֵѡΧһַ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var nSelStart=AkelPad.GetSelStart();


AkelPad.GetSelEnd
_________________

ȡѡΧַ

  GetSelEnd();

ֵ
  ֵѡΧַ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var nSelEnd=AkelPad.GetSelEnd();


AkelPad.SetSel
______________

ѡΧ

  SetSel(nSelStart, nSelEnd);


  nSelStart
    ѡΧ׸ַ
  nSelEnd
    ѡΧַ

ֵ
  㡣

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  AkelPad.SetSel(0, 10);


AkelPad.GetSelText
__________________

ȡѡı

  GetSelText([nNewLine]);


  nNewLine ( AkelPad 4.x.x)
    1    //"\r"  (Ĭֵ)
    2    //"\n" С
    3    //"\r\n" С

ֵ
  ִѡı

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var pSelText=AkelPad.GetSelText();


AkelPad.ReplaceSel
__________________

滻ѡΧ

  ReplaceSel(pText);


  pText
    滻Ϊı

ֵ
  㡣

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  AkelPad.ReplaceSel("MyText");


AkelPad.TextFind
________________

ı

  TextFind(hHandle, pFindIt, nFlags);


  hHandle
    ༭ڵľ
  pFindIt
    Ҫҵı
  nFlags
    0x00000001  //FR_DOWN       ²
    0x00000004  //FR_MATCHCASE  ִСд
    0x00100000  //FR_UP         ϲ
    0x00200000  //FR_BEGINNING  ͷ (÷: FR_DOWN|FR_BEGINNING)
    0x00400000  //FR_SELECTION  ѡΧ (÷: FR_DOWN|FR_SELECTION)
    0x00800000  //FR_ESCAPESEQ  ʹת
    0x01000000  //FR_ALLFILES   д򿪵 MDI ĵ (δʵ)

ֵ
  ֵһƥַλáûƥ䣬ֵΪ ?

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hEditWnd=AkelPad.GetEditWnd();
  AkelPad.TextFind(hEditWnd, "MySearchString", 0x00000001|0x00200000);


AkelPad.TextReplace
___________________

Һ滻ı

  TextReplace(hHandle, pFindIt, pReplaceWith, nFlags, bAll);


  hHandle
    ༭ڵľ
  pFindIt
    Ҫҵı
  pReplaceWith
    滻Ϊı
  nFlags
    0x00000001  //FR_DOWN       ²
    0x00000004  //FR_MATCHCASE  ִСд
    0x00100000  //FR_UP         ϲ
    0x00200000  //FR_BEGINNING  ͷ (÷: FR_DOWN|FR_BEGINNING)
    0x00400000  //FR_SELECTION  ѡΧ (÷: FR_DOWN|FR_SELECTION)
    0x00800000  //FR_ESCAPESEQ  ʹת
    0x01000000  //FR_ALLFILES   д򿪵 MDI ĵ (δʵ)
  bAll
    true   ȫ滻
    false  滻

ֵ
  ֵһƥַλáûƥ䣬ֵΪ ?

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hEditWnd=AkelPad.GetEditWnd();
  AkelPad.TextReplace(hEditWnd, "MySearchString", "MyReplaceText", 0x00000001|0x00200000, true);


AkelPad.GetClipboardText
________________________

ȡı

  GetClipboardText([bAnsi]);


  bAnsi
    true   ޶Ϊ ansi ı
    false  ޶Ϊ unicode ı (Ĭֵ)

ֵ
  ִı

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var pClipboardText=AkelPad.GetClipboardText();


AkelPad.SetClipboardText
________________________

üı

  SetClipboardText(pText);


  pText
    Ҫʹõı

ֵ
  㡣

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  AkelPad.SetClipboardText("MyText");


AkelPad.Call
____________

 AkelPad 

  Call(pFunction[, ...]);


  pFunction
    Ҫõĺ
  ...
    Ĳ

ֵ
   -1  //UD_FAILED               ʧ             
    0  //UD_UNLOAD               ж           
  0x1  //UD_NONUNLOAD_ACTIVE     ڴһ   
  0x2  //UD_NONUNLOAD_NONACTIVE  ڴеǻ 
  0x4  //UD_NONUNLOAD_UNCHANGE   ڴ         
  0x8  //UD_HOTKEY_DODEFAULT     ִȼĬϴ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var nResult=AkelPad.Call("Scripts::Main", 1, "InsertDate.js", "");


AkelPad.IsPluginRunning
_______________________

AkelPad С

  IsPluginRunning(pFunction);


  pFunction
    Ҫĺ

ֵ
  true   С
  false  δС

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bRunning=AkelPad.IsPluginRunning("HighLight::Main");


AkelPad.OpenFile
________________

ļ

  OpenFile(pFile[, nFlags][, nCodePage][, bBOM]);


  pFile
    Ҫ򿪵ļ
  nFlags
    0x1  //OD_ADT_BINARY_ERROR     ļǷǶļ
    0x2  //OD_ADT_REG_CODEPAGE     עҵ򿪵Ĵҳô OD_ADT_DETECT_BOM
         //                        ǵرʹãδҵôһǽʹ
         //                        OD_ADT_DETECT_CODEPAGE|OD_ADT_DETECT_BOM
    0x4  //OD_ADT_DETECT_CODEPAGE  ҳ
    0x8  //OD_ADT_DETECT_BOM        BOM ־
         //Ĭֵ 0xD            (OD_ADT_BINARY_ERROR|OD_ADT_DETECT_CODEPAGE|OD_ADT_DETECT_BOM)
  nCodePage
    ļҳ (nFlags & OD_ADT_DETECT_CODEPAGE) ʱ
  bBOM
    ļ BOM (nFlags & OD_ADT_DETECT_BOM) ʱ

ֵ
   0  //EOD_SUCCESS         ɹ
  -1  //EOD_ADT_OPEN        Զҳ޷ļ
  -2  //EOD_ADT_ALLOC       Զҳ޷仺
  -3  //EOD_ADT_READ        Զҳȡļ
  -4  //EOD_ADT_BINARY      ԶҳļǶ
  -5  //EOD_OPEN            ޷ļ
  -6  //EOD_CANCEL          ûȡ
  -7  //EOD_WINDOW_EXIST    ļѾ
  -8  //EOD_CODEPAGE_ERROR  ޷ʹָҳ
  -9  //EOD_STOP             AKDN_OPENDOCUMENT_START λֹͣ
 -10  //EOD_STREAMIN         EM_STREAMIN г

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var bResult=AkelPad.OpenFile("C:\\MyFile.txt");


AkelPad.ReadFile
________________

ȡļݡ

  ReadFile(pFile[, nFlags][, nCodePage][, bBOM]);


  pFile
    Ҫȡļ
  nFlags
    0x1  //OD_ADT_BINARY_ERROR     ļǷǶļ
    0x2  //OD_ADT_REG_CODEPAGE     עҵ򿪵Ĵҳô OD_ADT_DETECT_BOM
         //                        ǵرʹãδҵôһǽʹ
         //                        OD_ADT_DETECT_CODEPAGE|OD_ADT_DETECT_BOM
    0x4  //OD_ADT_DETECT_CODEPAGE  ҳ
    0x8  //OD_ADT_DETECT_BOM        BOM ־
         //Ĭֵ 0xD            (OD_ADT_BINARY_ERROR|OD_ADT_DETECT_CODEPAGE|OD_ADT_DETECT_BOM)
  nCodePage
    ļҳ (nFlags & OD_ADT_DETECT_CODEPAGE) ʱ
  bBOM
    ļ BOM (nFlags & OD_ADT_DETECT_BOM) ʱ

ֵ
  ִļݡ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var pText=AkelPad.ReadFile("C:\\MyFile.txt");


AkelPad.SaveFile
________________

ĵ

  SaveFile(hHandle, pFile, nCodePage, bBOM[, nFlags]);


  hHandle
    ༭ڵľ
  pFile
    Ҫ浽ļ
  nCodePage
    ļҳ
  bBOM
    ļ BOM
  nFlags
    0x1  //SD_UPDATE       ļϢ
    0x2  //SD_SELECTION    ѡΧ
         //Ĭֵ 0x1  (SD_UPDATE)

ֵ
   0  //ESD_SUCCESS         ɹ
  -1  //ESD_OPEN            ޷ļ
  -2  //ESD_WRITE           ޷дļ
  -3  //ESD_READONLY        ļֻ
  -4  //ESD_CODEPAGE_ERROR  ޷ʹָҳ
  -5  //ESD_STOP             AKDN_SAVEDOCUMENT_START λֹͣ
  -6  //ESD_STREAMOUT        EM_STREAMOUT г

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hEditWnd=AkelPad.GetEditWnd();
  var nCodePage=AkelPad.GetEditCodePage(hEditWnd);
  var bBOM=AkelPad.GetEditBOM(hEditWnd);
  var nResult=AkelPad.SaveFile(hEditWnd, "C:\\MyFile.txt", nCodePage, bBOM);


AkelPad.SystemFunction
______________________

ϵͳ

  SystemFunction();

ֵ
  ϵͳ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var oSys=AkelPad.SystemFunction();


AkelPad.SystemFunction.AddParameter
___________________________________

Ӻ

  AddParameter(vParameter);


  vParameter
    

ֵ
  㡣

:
  ľɵ AkelPad.SystemFunction.Call ﷨ʾ


AkelPad.SystemFunction.Call
___________________________

ϵͳ

  Call(pDllFunction[, ...]);


  pDllFunction
    Ƶĸʽ "Dll::Function"
  ...
    ָ롣

ֵ
  ֵý

 (﷨):
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  var oSys=AkelPad.SystemFunction();
  oSys.Call("user32::ShowWindow", hMainWnd, 6 /*SW_MINIMIZE*/);

 (﷨):
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  var oSys=AkelPad.SystemFunction();
  oSys.AddParameter(hMainWnd);
  oSys.AddParameter(6 /*SW_MINIMIZE*/);
  oSys.Call("user32::ShowWindow");


AkelPad.SystemFunction.GetLastError
___________________________________

ȡúĴ

  GetLastError();

ֵ
  ֵúĴ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  var oSys=AkelPad.SystemFunction();
  var nError;
  oSys.Call("user32::ShowWindow", hMainWnd, 6 /*SW_MINIMIZE*/);
  nError=oSys.GetLastError();


AkelPad.MemAlloc
________________

ڴ档

  MemAlloc(nSize[, bExeMemory]);


  nSize
    ҪĴСλ: ֽڡ
  bExeMemory
    true  //Exe ڴ
    false //Dll ڴ (Ĭֵ)

ֵ
  ֵָ򻺳ָ롣

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  var oSys=AkelPad.SystemFunction();
  var pMessage="MyMessage";
  var pCaption="MyCaption";
  var lpMessageBuffer;
  var lpCaptionBuffer;

  if (lpMessageBuffer=AkelPad.MemAlloc(256))
  {
    AkelPad.MemCopy(lpMessageBuffer, pMessage.substr(0, 255), 0 /*DT_ANSI*/);

    if (lpCaptionBuffer=AkelPad.MemAlloc(256))
    {
      AkelPad.MemCopy(lpCaptionBuffer, pCaption.substr(0, 255), 0 /*DT_ANSI*/);

      oSys.Call("user32::MessageBoxA", hMainWnd, lpMessageBuffer, lpCaptionBuffer, 64 /*MB_ICONINFORMATION*/);

      AkelPad.MemFree(lpCaptionBuffer);
    }
    AkelPad.MemFree(lpMessageBuffer);
  }


AkelPad.MemCopy
_______________

ڴ档

  MemCopy(nPointer, vData, nType[, bExeMemory]);


  nPointer
    ָ򻺳ָ롣
  vData
    ҪƵݡ
  nType
    vData ͵Ĳ:
    0  //DT_ANSI         Ansi ִڴ
    1  //DT_UNICODE      Unicode ִڴ
    2  //DT_WORD         WORD ֵڴ
    3  //DT_DWORD        DWORD ֵڴ
  bExeMemory
    true  //Exe ڴ
    false //Dll ڴ (Ĭֵ)

ֵ
  ֵѸƵֽ

:
   MemAlloc ʾ


AkelPad.MemRead
_______________

ȡڴ档

  MemRead(nPointer, nType[, bExeMemory]);


  nPointer
    ָ򻺳ָ롣
  nType
    0  //DT_ANSI        ڴȡ Ansi ִ
    1  //DT_UNICODE     ڴȡ Unicode ִ
    2  //DT_WORD        ڴȡ WORD 
    3  //DT_DWORD       ڴȡ DWORD 
  bExeMemory
    true  //Exe ڴ
    false //Dll ڴ (Ĭֵ)

ֵ
  ִֵ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var oSys=AkelPad.SystemFunction();
  var lpDirBuffer;
  var pWinDir;

  if (lpDirBuffer=AkelPad.MemAlloc(256))
  {
    oSys.Call("kernel32::GetWindowsDirectoryA", lpDirBuffer, 256);
    pWinDir=AkelPad.MemRead(lpDirBuffer, 0 /*DT_ANSI*/);

    AkelPad.MemFree(lpDirBuffer);
  }


AkelPad.MemFree
_______________

ͷڴ档

  MemFree(nPointer[, bExeMemory]);


  nPointer
    ָ򻺳ָ롣
  bExeMemory
    true  //Exe ڴ
    false //Dll ڴ (Ĭֵ)

ֵ
  㡣

:
   MemAlloc ʾ


AkelPad.WindowRegisterClass
___________________________

עᴰࡣ

  WindowRegisterClass(pClassName);


  pClassName
    Ҫע

ֵ
  ֵΨһѾעԭ

:
  var AkelPad=new ActiveXObject("AkelPad.document");
  var hMainWnd=AkelPad.GetMainWnd();
  var oSys=AkelPad.SystemFunction();
  var hInstanceDLL=AkelPad.GetInstanceDll();
  var hWndDialog;
  var lpBuffer;

  if (hMainWnd)
  {
    if (AkelPad.WindowRegisterClass("NewClass"))
    {
      if (lpBuffer=AkelPad.MemAlloc(256))
      {
        //Create dialog
        AkelPad.MemCopy(lpBuffer, "NewClass", 0 /*DT_ANSI*/);
        hWndDialog=oSys.Call("user32::CreateWindowExA",
                             0,                //dwExStyle
                             lpBuffer,         //lpClassName
                             0,                //lpWindowName
                             0x90CA0000,       //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
                             0,                //x
                             0,                //y
                             351,              //nWidth
                             179,              //nHeight
                             hMainWnd,         //hWndParent
                             0,                //ID
                             hInstanceDLL,     //hInstance
                             DialogCallbackA); //Script function callback. To use it class must be registered by WindowRegisterClass.

        if (hWndDialog)
        {
          //Disable main window, to make dialog modal
          oSys.Call("user32::EnableWindow", hMainWnd, false);

          //Message loop
          AkelPad.WindowGetMessage();
        }
        AkelPad.MemFree(lpBuffer);
      }
      AkelPad.WindowUnregisterClass("NewClass");
    }
  }

  function DialogCallbackA(hWnd, uMsg, wParam, lParam)
  {
    if (uMsg == 1 /*WM_CREATE*/)
    {
    }
    else if (uMsg == 256 /*WM_KEYDOWN*/)
    {
      if (wParam == 27 /*VK_ESCAPE*/)
      {
        //Escape key pushes Cancel button
        oSys.Call("user32::PostMessageA", hWndDialog, 273 /*WM_COMMAND*/, 2 /*IDCANCEL*/, 0);
      }
    }
    else if (uMsg == 273 /*WM_COMMAND*/)
    {
      if ((wParam & 0xffff) == 2 /*IDCANCEL*/)
      {
        oSys.Call("user32::PostMessageA", hWndDialog, 16 /*WM_CLOSE*/, 0, 0);
      }
    }
    else if (uMsg == 16 /*WM_CLOSE*/)
    {
      //Enable main window
      oSys.Call("user32::EnableWindow", hMainWnd, true);

      //Destroy dialog
      oSys.Call("user32::DestroyWindow", hWnd);
    }
    else if (uMsg == 2 /*WM_DESTROY*/)
    {
      //Exit message loop
      oSys.Call("user32::PostQuitMessage", 0);
    }
    return 0;
  }


AkelPad.WindowUnregisterClass
_____________________________

עࡣ

  WindowUnregisterClass(pClassName);


  pClassName
    Ҫע

ֵ
  true   ɹ
  false  ʧ

:
   WindowRegisterClass ʾ


AkelPad.WindowGetMessage
________________________

߳Ϣ (Ϣѭ)

  WindowGetMessage();

ֵ
  㡣

:
   WindowRegisterClass ʾ
