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

#define MUTEX_ALL_ACCESS 2031617
#define FLASHW_TRAY 2
#define FLASHW_TIMER 4
#define FLASHW_STOP 0
external(INT, "FlashWindow", "FlashWindowEx", "User32.dll");
external(INT, "CreateMutex", "CreateMutexA", "Kernel32.dll");
external(INT, "OpenMutex", "OpenMutexA", "Kernel32.dll");
external(INT, "ReleaseMutex", "ReleaseMutex", "Kernel32.dll");
external(INT, "CloseHandle", "CloseHandle", "Kernel32.dll");
external(INT, "FindWindow", "FindWindowExA", "user32.dll");
external(INT, "GetModuleFileName", "GetModuleFileNameA", "Kernel32.dll");

char name[16384]; // массив, в который запишется путь к exe
char buffer[1]; // буфер кибор, тут будем проверять надо мигнуть или нет
string name_exe; // переменная для имени exe
GetModuleFileName(0, address(#name[0]), sizearray(name)); // получить путь к exe и его имя
regexsearch(1, #name_exe, format(#name[0]), "[^\\]+(?=.exe)"); // найти имя exe

win w=window(name_exe); // получить указатель на запускаемый exe
int FLASHWINFO1[5]={20, formatwi(w), FLASHW_TRAY | FLASHW_TIMER, 0, 0};
int FLASHWINFO2[5]={20, formatwi(w), FLASHW_STOP, 0, 0};

int my_mutex=Mutex("any_name_mutex"); // в скобках имя мьютекса (любое)

enabletimer(0);
createdialog(0);
showdialog(0, "Диалог", 300, 300, 300, 300, 4, 1); // седьмым параметром должно быть 4

loop()sleep(10);

function getmessage(0, WM_CLOSE) // если нажат крестик (закрыть окно диалога)
{
ReleaseMutex(my_mutex); // освободить хендл
CloseHandle(my_mutex); // закрыть хендл
close(); // закрыть кибор
}

function Mutex(string s)
{
if(OpenMutex(MUTEX_ALL_ACCESS, 0, s))
{
find_window(name_exe); // поиск всех окон кибора и запись в его буфер что требуется мигнуь окном
close(); // если мьютекс существует, закрыть программу
}
return CreateMutex(0, 1, s); // иначе создать мьютекс
}

function find_window(string name)
{
int handle=FindWindow(0, 0, 0, name);
while (handle != 0)
{
write_buffer('1', handle);
handle=FindWindow(0, handle, 0, name);
}
}

function write_buffer(char cc, int handle) // запись в буфер кибора
{
char c[1]={cc}
writebuffer(#c[0], 1, formatiw(handle));
}

CREATE_TIMER(0, 500)
{
readbuffer(#buffer[0], 1); // читаем буфер кибора
if(buffer[0]=='1') // если 1
{
write_buffer('0', formatwi(w)); // пишем 0
FlashWindow(address(#FLASHWINFO1[0])); // начать мигать
pause(2000);
FlashWindow(address(#FLASHWINFO2[0])); // перестать мигать
}
}