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

external(INT, "GetModuleFileNameEx", "GetModuleFileNameExA","Psapi.dll");
external (INT, "GetPrivateProfileString", "GetPrivateProfileStringA", "Kernel32.dll");
external (INT, "IsWow64Process2", "IsWow64Process2", "Kernel32.dll");

win mozilla=window (-1, "MozillaWindowClass", -1); // окно мозилы

char path[255], version[255], bit[4];
string path_to_ini;

if(mozilla)
{
int prc=openprocess(mozilla);
if(GetModuleFileNameEx(prc, 0, address (#path[0]), sizearray(path))) // путь к мозиле
{
messagebox(format(#path[0]));
if(regexsearch(1, #path_to_ini, format(#path[0]), ".*(?=firefox)", IGNORECASE)) // путь без имени
{
//messagebox(path_to_ini);
// версия мозилы из ini файла
if(GetPrivateProfileString ("App", "Version", 0, address (#version[0]), sizearray(version), path_to_ini+"application.ini"))messagebox(format(#version[0]));
}

if(IsWow64Process2(prc, address(#bit[0]), address(#bit[2]))) // разрядность
{
if(codhexi(#bit[0], 2)==0)messagebox("x64");
else messagebox("x86");
}
}
}
else messagebox("Окно не найдено");

#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define WS_BORDER 8388608
#define WS_HSCROLL 1048576
#define WS_VSCROLL 2097152
#define LB_ADDSTRING 384
#define LB_GETCOUNT 395
#define LB_GETTEXT 393
#define LB_SETHORIZONTALEXTENT 404
#define LBS_DISABLENOSCROLL 4096
#define LBS_NOTIFY 1
#define LB_GETCURSEL 392
#define LB_GETTEXT 393

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetTextExtentPoint32", "GetTextExtentPoint32A", "Gdi32.dll" );
external(INT, "GetDC", "GetDC", "User32.dll" );

int list, hdc, max_length=0;
char text[9999];

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

// добавить строки в список
add_list("текст1");
add_list("текст5");
add_list("text4");
add_list("text2");
add_list("text1");
add_list("text124");


loop()sleep(10);

function getmessage(0, WM_COMMAND)
{
if(message.lparam==list && hiword(message.wparam)==2) // если сделан двойной клик по тексту в списке
{
sendmessage(LB_GETTEXT, sendmessage(LB_GETCURSEL, 0, 0, formatiw(list)), address(#text[0]), formatiw(list));
messagebox(format(#text[0]));
}
}

function getmessage(0, WM_CREATE)
{
list=CreateWindow(0, "LISTBOX", "", LBS_NOTIFY | LBS_DISABLENOSCROLL | WS_VSCROLL | WS_HSCROLL | WS_BORDER | WS_CHILD | WS_VISIBLE, 10, 10, 100, 150, gethwnd(0), 0, 0, 0);
hdc=GetDC(list);
}

function add_list(string s)
{
int SIZE[2];
new char c[size(s)+1];
strcpy(#c[0], s);
GetTextExtentPoint32(hdc, address(#c[0]), sizearray(c), address(#SIZE[0])); // узнать длину текста в пикселях
if(max_length<SIZE[0])
{
max_length=SIZE[0]; // запомнить максимальную длину строки
sendmessage(LB_SETHORIZONTALEXTENT, SIZE[0], 0, formatiw(list)); // установить ширину прокрутки
}
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));
delete c;
}

BOOL IsWow64Process(
HANDLE hProcess,
PBOOL Wow64Process
);

BOOL IsWow64Process2(
HANDLE hProcess,
USHORT *pProcessMachine,
USHORT *pNativeMachine
);