вопрос по external и др - 4

#define WS_EX_CONTEXTHELP 1024
#define WS_MINIMIZEBOX 131072
#define GWL_EXSTYLE -20
#define GWL_STYLE -16

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "SetWindowLong", "SetWindowLongA", "User32.dll" );
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll" );

createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 0);

loop()sleep(100);

function getmessage (0, WM_CREATE)
{
SetWindowLong(gethwnd(0), GWL_STYLE, GetWindowLong(gethwnd(0), GWL_STYLE) + WS_MINIMIZEBOX);
SetWindowLong(gethwnd(0), GWL_EXSTYLE, GetWindowLong(gethwnd(0), GWL_EXSTYLE) + WS_EX_CONTEXTHELP);
}

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608
#define WS_EX_CONTEXTHELP 1024
#define WS_CAPTION 12582912
#define WS_SYSMENU 524288
#define GWL_EXSTYLE -20
#define GWL_STYLE -16
#define BS_MULTILINE 8192
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "SetWindowLong", "SetWindowLongA", "User32.dll" );
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll" );

int b0;

createdialog(0);
showdialog(0, "Диалог",150, 200, 400, 300, 1, 0);

loop()sleep(100);

function getmessage (0, WM_CREATE)
{
SetWindowLong(gethwnd(0), GWL_STYLE, WS_SYSMENU + WS_CAPTION);
SetWindowLong(gethwnd(0), GWL_EXSTYLE, GetWindowLong(gethwnd(0), GWL_EXSTYLE) + WS_EX_CONTEXTHELP);
b0=CreateWindow(0, "BUTTON", "Нажать на знак вопроса в заголовке, потом на эту кнопку", BS_MULTILINE | WS_BORDER | WS_CHILD | WS_VISIBLE, 20, 10, 120, 90, gethwnd(0), 0, 0, 0);
}


function getmessage (0, WM_HELP)
{
textbkcolor(16000000, 65280);
textout(0, 300, 270, "Стуктура HELPINFO", 1);

textbkcolor(255, 65280);
textout(1, 300, 300, "cbSize "+format(addressi(message.lparam)), 1);
textout(2, 300, 320, "iContextType "+format(addressi(message.lparam+4)), 1);
textout(3, 300, 340, "iCtrlId "+format(addressi(message.lparam+8)), 1);
textout(4, 300, 360, "hItemHandle "+format(addressi(message.lparam+12)), 1);
textout(5, 300, 380, "dwContextId "+format(addressi(message.lparam+16)), 1);
textout(6, 300, 400, "MousePosX "+format(addressi(message.lparam+20)), 1);
textout(7, 300, 420, "MousePosY "+format(addressi(message.lparam+24)), 1);

loop()sleep(100);
}

function getmessage(1, WM_SYSCOMMAND)
{
if (message.wparam == SC_CONTEXTHELP)
{
messagebox(1);
}
//==============
if (message.wparam == SC_CLOSE)
{
DestroyWindow(gethwnd(1));//при вызове SC_CLOSE уничтожаю окно
}
}

function getmessage(1, WM_DESTROY)//при закрытии всё работает, при открытии заного -вылетает
{
MainWindow = formatiw(gethwnd(0));

Save_Settings();

Load_Settings();

Flash = 0;

EnableWindow(formatwi(MainWindow), 1);

ShowWindow(gethwnd(1), SW_HIDE);
}

function getmessage(1, WM_SYSCOMMAND)
{
if (message.wparam == SC_CONTEXTHELP)
{
messagebox(1);
}
//==============
if (message.wparam == SC_CLOSE)//то окно будет закрываться(диалог) с задержкой, что не красиво.
{
//DestroyWindow(gethwnd(1));//убрать
MainWindow = formatiw(gethwnd(0));

Save_Settings();

Load_Settings();

Flash = 0;

EnableWindow(formatwi(MainWindow), 1);

ShowWindow(gethwnd(1), SW_HIDE);

}
}