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

function Update()
{
//Stop_Script("", 0);

int Open_Internet, Close, Connect_Internet, Open_File, Catalog, Count_Butes;
string FTP_Name = "";
string Login = "";
string Password = "";
string File_Name = "";//имя файла на сервере
string Version_Program = "1.0";//версия собранной
char New_Version_Program[999999];//версия из сервера(новая)

Open_Internet = InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
Connect_Internet = InternetConnect(Open_Internet, FTP_Name, INTERNET_DEFAULT_FTP_PORT, Login, Password, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
if (Connect_Internet == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удается подключиться к серверу. ", "", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
else
{
Catalog = FtpSetCurrentDirectory(Connect_Internet, FTP_Name);
Open_File = FtpOpenFile(Connect_Internet, File_Name, GENERIC_READ, INTERNET_FLAG_TRANSFER_ASCII, INTERNET_FLAG_NO_CACHE_WRITE, 0);

if(Open_File > 0)
{
InternetReadFile(Open_File, address(#New_Version_Program[0]), sizearray(New_Version_Program), address(#Count_Butes));

if(Count_Butes > 0)//если файл версии весит больше 0
{
if(formatsn(format(#New_Version_Program[0], Count_Butes)) > formatsn(Version_Program))//если версия собранной выше той которой на сервере
{
my_message(0, "Найдена новая версия программы "+format(#New_Version_Program[0], Count_Butes), "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}


if(formatsn(format(#New_Version_Program[0], Count_Butes)) == formatsn(Version_Program))//если одинаковая
{
my_message(0, "У вас последняя версия программы.", "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}
}
Close = InternetCloseHandle(Connect_Internet);
}
}
}

external(INT, "ShellMessageBox", "ShellMessageBoxA", "Shlwapi.dll" );

#definefile "C:\Users\Home\Desktop\МОЁ\Kibor\Constants.txt";

#define MNS_NOTIFYBYPOS 134217728
#define MIM_STYLE 16
#define MF_POPUP 16

external(INT, "CreateMenu", "CreateMenu", "User32.dll" );
external(INT, "CreatePopupMenu", "CreatePopupMenu", "User32.dll" );
external(INT, "AppendMenu", "AppendMenuA", "User32.dll" );
external(INT, "SetMenuInfo", "SetMenuInfo", "User32.dll" );
external(INT, "SetMenu", "SetMenu", "User32.dll" );
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );


int MENUINFO[7]={28, MIM_STYLE, 0, 0, 0, 0, 0};
int HMENU;

HMENU=CreateMenu();

AppendMenu(HMENU, MF_POPUP, 1, "Настройки" );

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

loop()sleep(1);

function getmessage(0, WM_CREATE)
{
SetMenuInfo(HMENU, address(#MENUINFO[0]));
SetMenu(gethwnd(0), HMENU);
ShellMessageBoxA(0, gethwnd(0), "Текст", "Заголовок", MB_OK | MB_ICONERROR | MB_TOPMOST);//Error
}