Автоматизация розницы, удаленного склада, опта и связь с интернет магазином : КИС Lack & УС Land

* --------------------------------------------------------------------------
*   Замена заголовка окна Win и вставка исходника на С
PROC pWind(cTxt,cIconFile)
    LOCA hW
    cIconFile   := IF(cIconFile == NIL, "", cIconFile )

/*  Блок для терминала Win
    SetConsoleTitle(Alltrim(cTxt))
    hW  := FindWindow(Alltrim(cTxt))
    DeleteCloseButton(hW)

    //  Перекодировка строки в UTF-8
    WAIT HB_STRTOUTF8([АРМ кладовщика, менеджера, бухгалтера + производство.  Версия 1.993 Весна 2013г.])
*/

/*  Блок для терминала WVT  */
    HB_gtInfo( HB_GTI_WINTITLE, HB_OEMTOANSI(cTxt) )   //  Шрифт размер

    //  Добавляю иконку к головному окну.
    IF !Empty(cIconFile)
        HB_gtInfo( HB_GTI_ICONFILE, cIconFile )         //  Иконка  из файла ресурсов
    ENDI
    RETU

* ---------------------------------------------------------------------------
*   Вставляю сишный код
#PRAGMA BEGINDUMP
#include "hbapi.h"
#include "windows.h"

HB_FUNC(SETCONSOLETITLE)
{
hb_retl( SetConsoleTitle( hb_parc(1) ) );
}

HB_FUNC(FINDWINDOW)
{
hb_retnl( (LONG) FindWindow(NULL,hb_parc(1)) );
}

HB_FUNC(DELETECLOSEBUTTON)
{
DeleteMenu( GetSystemMenu((HWND) hb_parnl(1), FALSE), SC_CLOSE, MF_BYCOMMAND ) ;
DrawMenuBar( (HWND) hb_parnl(1) ) ;
}

#PRAGMA ENDDUMP