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

function getmessage(0, WM_COMMAND)
{
if(message.lparam == Object_Listbox1 && hiword(message.wparam) == 2)
{
sendmessage(LB_GETTEXT, sendmessage(LB_GETCURSEL, 0, 0, formatiw(Object_Listbox1)), address(#text[0]), formatiw(Object_Listbox1));
regexreplace(1, #Text1, format(#text[0]), "^[\[\]\d:\s\-]+", "");
regexreplace(1, #Text2, Text1, "\s*в координат.*", "");

for (int z=0; z<=3; z++)
{
if (Text1 == "Не удается найти Image_"+format(z)+".bmp" || Text2 == "Обнаружена Image_"+format(z)+".bmp")
{
start(temp_fold+"Image_"+format(z)+".bmp");
}
}
}
}
//Фрагмент кода...

#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define WS_BORDER 8388608
#define LB_ADDSTRING 384
#define LBS_NOTIFY 1
#define LBN_DBLCLK 2
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

int list, dbl_click=0;
char c[999];

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


loop()
{
textout(0, 300, 120, "Двойных кликов по списку: "+format(dbl_click), 1);
sleep(10);
}

function getmessage(0, WM_CREATE)
{
list=CreateWindow(0, "LISTBOX", "", LBS_NOTIFY | WS_BORDER | WS_CHILD | WS_VISIBLE, 10, 10, 150, 150, gethwnd(0), 0, 0, 0);

// добавить строки в список
strcpy(#c[0], "Строка1");
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));
strcpy(#c[0], "Строка2");
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));
strcpy(#c[0], "Строка3");
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));
}


function getmessage(0, WM_COMMAND)
{
if(message.lparam==list) // если был клик по списку
{
if(hiword(message.wparam)==LBN_DBLCLK) // если двойной клик
{
dbl_click++;
}
return;
}
}