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

//Stop_Script("", 0);

int Open_Internet, Close, Connect_FTP, Get_File, Catalog;
string FTP_Name = "ftp my name";
string Login = "login";
string Password = "pass";
string Version_Program = "1.0";
string New_Version_Program;
char Text_Version[255];

temp_fold = tempfolder();

Open_Internet = InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);

Connect_FTP = InternetConnect(Open_Internet, FTP_Name, 21, Login, Password, 1, 134217728, 0);

if (Connect_FTP == 0)
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удается подключиться к серверу. ", "prog", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
else
{
Catalog = FtpSetCurrentDirectory(Connect_FTP, FTP_Name);

if (Catalog == 1)
{
InternetReadFile(Open_Internet, address(#Text_Version[0]), sizearray(Text_Version)
//фрагмент из кода: переменных не ждите)
}
else
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Ошибка установки текущего каталога.", "prog", MB_OK | MB_ICONERROR | MB_TOPMOST);
}


Close = InternetCloseHandle(Connect_FTP);
}

#define GENERIC_READ -2147483648
#define INTERNET_FLAG_TRANSFER_ASCII 1
#define INTERNET_FLAG_NO_CACHE_WRITE 67108864
#define INTERNET_DEFAULT_FTP_PORT 21
#define INTERNET_SERVICE_FTP 1
#define INTERNET_FLAG_PASSIVE 134217728
external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll");
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll");
external(INT, "FtpOpenFile", "FtpOpenFileA", "Wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "Wininet.dll");
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll");


string ftp="zireael.zzz.com.ua"; // фтп
string login="login"; // логин
string pass="pass"; // пароль

string name_file="time.txt"; // имя файла


int open, _close, connect, hfile, catalog, count_read_bytes;
char text[999999];

open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, INTERNET_DEFAULT_FTP_PORT, login, pass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
catalog=FtpSetCurrentDirectory(connect, ftp); // возможно без этого будет работать

hfile=FtpOpenFile(connect, name_file, GENERIC_READ, INTERNET_FLAG_TRANSFER_ASCII, INTERNET_FLAG_NO_CACHE_WRITE, 0);
//messagebox(hfile); // если файл открылся будет не 0
if(hfile>0)
{
InternetReadFile(hfile, address(#text[0]), sizearray(text), address(#count_read_bytes));
messagebox("Прочитано байт: "+format(count_read_bytes));
if(count_read_bytes>0)messagebox(format(#text[0], count_read_bytes));
}
_close=InternetCloseHandle(connect);