#include "hmg.ch" 
  
 REQUEST HB_CODEPAGE_UTF8 
 REQUEST HB_CODEPAGE_RU1251 
  
 *----------------------------- 
 Function MAIN() 
 *----------------------------- 
  
    SET CODEPAGE TO UNICODE 
  
    SET CENTURY ON 
    SET DATE ANSI 
    SET ShowDetailError ON 
    SET DELETED ON 
    SET BROWSESYNC ON 
  
    SET FONT TO "Arial", 10 
 ... 
 

 
 METHOD bDataEval( oCol, xVal, nCol ) CLASS TSBrowse 
 ... 
    IF xVal == NIL // FieldGet 
       DEFAULT nCol := ::nCell 
       IF HB_ISBLOCK( oCol:bValue ) 
          IF lNoAls ; xVal := Eval( oCol:bValue, NIL, Self, nCol, oCol ) 
          ELSE ; xVal := ( cAlias )->( Eval( oCol:bValue, NIL, Self, nCol, oCol ) ) 
          ENDIF 
       ELSE 
          IF lNoAls ; xVal := Eval( oCol:bData ) 
          ELSE ; xVal := ( cAlias )->( Eval( oCol:bData ) ) 
          ENDIF 
       ENDIF 
       IF HB_ISBLOCK( oCol:bDecode ) //.AND. nCol != NIL 
          IF lNoAls ; xVal := Eval( oCol:bDecode, xVal, Self, nCol, oCol ) 
          ELSE ; xVal := ( cAlias )->( Eval( oCol:bDecode, xVal, Self, nCol, oCol ) ) 
          ENDIF 
       ENDIF 
    ELSE // FieldPut 
       DEFAULT nCol := ::nCell 
       IF HB_ISBLOCK( oCol:bEncode ) //.AND. nCol != NIL 
          IF lNoAls ; xVal := Eval( oCol:bEncode, xVal, Self, nCol, oCol ) 
          ELSE ; xVal := ( cAlias )->( Eval( oCol:bEncode, xVal, Self, nCol, oCol ) ) 
          ENDIF 
       ENDIF 
 

 
 Compile.bat 
 ..\..\..\BATCH\hbmk2.bat demo.hbp 
  
 demo.hbp 
 # Keys compile 
 #-prgflag=-w2 -es1  
  
 # Enable multi/single-thread Harbour VM 
 -mt  
  
 # Incremental-compilation mode 
 -inc 
  
 # folder where are all * .obj 
 -workdir=OBJ 
  
 # Name EXE-module 
 -odemo 
  
 # to list all * .prg 
 demo.prg 
  
 # project Resources 
 #demo.rc 
  
 # paths to the main and extension *.Lib 
 -lminigui 
 -ltsbrowse 
 -lhbodbc.lib 
 -lodbc32.lib 
 

 
 /* 
  * 
  * Access a firebird database through ODBC 
  * 
  * Based on ODBC_2 sample included in MiniGui Extended distribution 
  * Hugo Rozas M. 
  * HMG Extended v1.9.98 
  * 
 */ 
  
 #define _HMG_OUTLOG 
  
 #include 'hmg.ch' 
 #include "miniprint.ch" 
  
 REQUEST HB_CODEPAGE_UTF8 
 REQUEST HB_CODEPAGE_RU1251 
 REQUEST HB_LANG_DEWIN 
 REQUEST HB_CODEPAGE_LVWIN 
  
 REQUEST DBFCDX 
  
 MEMVAR TitlePrint 
  
 static oConnection 
 *-------------------------------------------------------------------------------- 
 FUNCTION Main() 
  
    SET CODEPAGE TO UNICODE 
  
    RddSetDefault("DBFCDX") 
  
    SET CENTURY   ON 
    SET DATE      GERMAN 
    SET DELETED   ON 
    SET EXCLUSIVE ON 
    SET EPOCH TO  2000 
    SET AUTOPEN   ON 
    SET EXACT     ON 
    SET SOFTSEEK  ON 
  
    SET NAVIGATION EXTENDED 
    SET FONT         TO "Arial", 11 
  
    //Set navigation extended 
  
    oConnection = todbc():new('DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=EMPLOYEE.FDB;') 
    oConnection:Open() 
  
    define window form1; 
          at 0,0 width 400 height 400 title 'Demo Odbc/Firebird'; 
          Main; 
          on init ( adjust(), load_data(1) ); 
          on maximize ( adjust() ); 
          on size ( adjust() ); 
          on release ( oConnection:Destroy() ); 
          font 'ms sans serif' size 8 
  
       @ 0,  0 button btn1 caption '&Add'  width 55 height 20 action events_(1) 
       @ 0, 60 button btn2 caption '&Edit'    width 55 height 20 action events_(2) 
       @ 0,120 button btn3 caption '&Delete'  width 55 height 20 action events_(3) 
       @ 0,180 button btn4 caption '&Print'   width 55 height 20 action Print_List() 
       @ 0,240 button btn5 caption '&Reload'  width 55 height 20 action load_data(1) 
       @ 0,300 button btn6 caption '&Quit'    width 55 height 20 action form1.release 
  
  
       define grid grid1 
          row 22 
          col 5 
          width 300 
          height 300 
          headers {'Id','First Name','Last Name','Salary'} 
          widths { 50, 80,110,115 } 
          justify {BROWSE_JTFY_RIGHT,BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_RIGHT} 
          on dblclick    events_(2) 
          on change   form1.statusbar.item(1) := "Register "+; 
                   ltrim(str(form1.grid1.value))+" of "+alltrim(str(form1.grid1.itemcount)) 
          columncontrols { ; 
                {'TEXTBOX','NUMERIC'} , ; 
                {'TEXTBOX','CHARACTER'}, ; 
                {'TEXTBOX','CHARACTER'}, ; 
                {'TEXTBOX','NUMERIC'} ; 
                } 
       end grid 
  
       define statusbar 
          statusitem "Register " 
          date 
       end statusbar 
    end window 
    form1.center 
    activate window form1 
  
 return 
 *-------------------------------------------------------------------------------- 
 procedure load_data(n) 
    local i, oc 
  
    form1.grid1.Deleteallitems 
  
    oConnection:Setsql('SELECT * FROM Employee ORDER BY Emp_No') 
  
    if !oConnection:Open() 
       msgstop("Can't connect to database") 
    else 
       for i= 1 to len( oConnection:aRecordset ) 
          form1.grid1.additem( oConnection:aRecordset[ i ] ) 
       next 
       form1.grid1.value := n 
    end 
  
    oConnection:Close() 
    form1.grid1.setfocus 
  
 return 
 *-------------------------------------------------------------------------------- 
 procedure events_(n) 
    local cL_Name := "",cSalary := "",cF_Name := "", cID := "", Str 
  
    do case 
    case n == 1 .or. n == 2 
       if n = 2 
          cID     := form1.grid1.cell( form1.grid1.value, 1 ) 
          cF_Name := form1.grid1.cell( form1.grid1.value, 2 ) 
          cL_Name := form1.grid1.cell( form1.grid1.value, 3 ) 
          cSalary := form1.grid1.cell( form1.grid1.value, 4 ) 
       end 
       define window form1a; 
          at 0,0 width 270 height 220; 
          title iif(n = 2,'Edit','Add'); 
          modal; 
          font 'ms sans serif' size 8 
  
          @ 10, 10 label label1 width 60 height 20 value 'ID' RIGHTALIGN 
          @ 40, 10 label label2 width 60 height 20 value 'First Name' RIGHTALIGN 
          @ 70, 10 label label3 width 60 height 20 value 'Last Name' RIGHTALIGN 
          @ 100,10 label label4 width 60 height 20 value 'Salary' RIGHTALIGN 
          @ 10,80 textbox text1 width 40  height 20 value cID READONLY NUMERIC INPUTMASK '99999' NOTABSTOP 
          @ 40,80 textbox text2 width 100 height 20 value cF_Name MaxLength 15 
          @ 70,80 textbox text3 width 170 height 20 value cL_Name MaxLength 25 
          @ 100,80 textbox text4 width 90 height 20 value cSalary NUMERIC INPUTMASK '9999999999.99' 
          @ 150,60 button button1 caption '&Save' action save_data( n ) width 80 height 20 
          @ 150,150 button button2 caption '&Close' action form1a.release width 80 height 20 
  
                         on key escape action form1a.button2.onclick 
       end window 
       form1a.center 
       activate window form1a 
  
    case n == 3 
       Str := "DELETE FROM Employee WHERE Emp_No="+str(form1.grid1.cell(form1.grid1.value,1)) 
       if msgyesno('Delete this register? '+hb_osnewline()+form1.grid1.cell(form1.grid1.value,2),'Confirm') 
          oConnection:Setsql( Str ) 
          if !oConnection:Open() 
             msgstop("Can't delete the register") 
          else 
             n := form1.grid1.value 
             form1.grid1.deleteitem( n ) 
             form1.grid1.value := iif(n > 1, n-1, 1) 
             form1.statusbar.item(1) := "Register "+; 
                ltrim(str(form1.grid1.value))+" of "+alltrim(str(form1.grid1.itemcount)) 
          end 
          oConnection:Close() 
          form1.grid1.setfocus 
       end 
    endcase 
    Form1.Grid1.SetFocus() 
 return 
  
 *-------------------------------------------------------------------------------- 
 procedure save_data(n) 
 *-------------------------------------------------------------------------------- 
    local Str, cID 
  
    if n = 1 
       If ( form1a.text1.value = 0 ) 
          cID := "null" 
       else 
          cID := "'"+Alltrim(Str(form1a.text1.value))+"'" 
       end 
       Str := "INSERT INTO Employee (EMP_NO,FIRST_NAME,LAST_NAME,SALARY) VALUES ("+cID+; 
       ",'"+form1a.text2.value+; 
       "','"+form1a.text3.value+; 
       "','"+Alltrim(Str(form1a.text4.value))+; 
       "')" 
                 //msgstop( Str ) 
  
    else 
             cID := "'"+Alltrim(Str(form1a.text1.value))+"'" 
       Str := "UPDATE Employee SET FIRST_NAME='"+form1a.text2.value+"',"+; 
               " LAST_NAME='"+form1a.text3.value + "'," + ; 
               " SALARY='" + Str(form1a.text4.value) + "'" + ; 
             " WHERE Emp_No=" + cID 
            //msgstop( Str ) 
    end 
    oConnection:Setsql( Str ) 
    if !oConnection:Open() 
       msgstop("Can't update Employee table") 
    end 
    oConnection:Close() 
    if n == 1 
       load_data( form1.grid1.itemcount+1 ) 
    else 
       form1.grid1.cell( form1.grid1.value, 1 ) := form1a.text1.value 
       form1.grid1.cell( form1.grid1.value, 2 ) := form1a.text2.value 
       form1.grid1.cell( form1.grid1.value, 3 ) := form1a.text3.value 
       form1.grid1.cell( form1.grid1.value, 4 ) := form1a.text4.value 
    end 
    form1.statusbar.item(1) := "Register "+; 
       ltrim(str(form1.grid1.value))+" de "+alltrim(str(form1.grid1.itemcount)) 
    form1a.release 
  
 return 
  
 *-------------------------------------------------------------------------------- 
 procedure adjust() 
 *-------------------------------------------------------------------------------- 
 form1.grid1.width := form1.width - 20 
 form1.grid1.height:= ( form1.height- form1.grid1.row ) - 60 
  
 return 
  
 *-------------------------------------------------------------------------------- 
 procedure Print_List() 
 *-------------------------------------------------------------------------------- 
 Local nomimp, PAG, LIN, I 
 Local cL_Name,cSalary,cF_Name,cID 
  
 Private TitlePrint := "Employee List" 
  
 nomimp := GetPrinter() 
 SELECT PRINTER nomimp ORIENTATION PRINTER_ORIENT_PORTRAIT PREVIEW 
  
 START PRINTDOC NAME TitlePrint 
 START PRINTPAGE 
  
 PAG:=0 
 LIN:=0 
 FOR I := 1 TO form1.grid1.ItemCount 
    cID     := form1.grid1.Cell( I, 1 ) 
    cF_Name := form1.grid1.Cell( I, 2 ) 
    cL_Name := form1.grid1.Cell( I, 3 ) 
    cSalary := form1.grid1.Cell( I, 4 ) 
  
    IF LIN>=260 .OR. PAG=0 
       IF PAG<>0 
          @ LIN+5,105 PRINT "Continue on Page: "+LTRIM(STR(PAG+1)) CENTER 
          END PRINTPAGE 
          START PRINTPAGE 
       ENDIF 
       PAG++ 
  
       @ 20,20 PRINT "Business Name" 
       @ 20,190 PRINT "Page: "+LTRIM(STR(PAG)) RIGHT 
       @ 25,20 PRINT DATE() 
  
       @ 25,105 PRINT "Name of Business" CENTER 
       @ 35,105 PRINT TitlePrint FONT "ft18" CENTER 
  
       LIN:=55 
       @ LIN+4,20 PRINT LINE TO LIN+4,130 
       @ LIN,27 PRINT "ID" RIGHT 
       @ LIN,40 PRINT "First Name" 
       @ LIN,70 PRINT "Last Name" 
       @ LIN,125 PRINT "Salary" RIGHT 
  
       LIN:=LIN+5 
    ENDIF 
  
    @ LIN,27 PRINT cID RIGHT 
    @ LIN,40 PRINT cF_Name 
    @ LIN,70 PRINT cL_Name 
    @ LIN,125 PRINT TRANSFORM( cSalary , "9,999,999,999.99" ) RIGHT 
  
    LIN:=LIN+5 
  
 NEXT I 
  
 END PRINTPAGE 
 END PRINTDOC 
  
 return 
 

  * Fixed: ON SIZE event is triggered to early in the Modal window with the 
            defined menu. 
            Bug was reported by Theo Pluijm <trmpluym/at/gmail.com>. 
            Based upon a contribution of HMG user Edward. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
   * Modified: Adaptation of the MiniGUI core for compatibility with the 
            latest Harbour compiler version 3.0.0 (SVN 2011-07-17 19:15): 
            - the updated header include\i_pseudofunc.ch; 
            - added translate directives for missed Harbour 3.2 functions; 
            - Vista's TaskDialog implementation was blocked due to the 
              incompatibility with Harbour 3.0. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru>. 
   * Updated: Implementation of UNICODE support in the MiniGUI core: 
            - fixed problem with the returned items value in ListBox, ComboBox 
              and GET ini file command. 
            Bug was reported by Allan De Sa. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2021-04-10 23:32): 
            * Updated: PostGreSQL library source code 
              (see in folder \Source\HbPgSql). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'ButtonEx and Snap Control' sample: added the function Snap2Ctrl(). 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see demo3.prg in folder \samples\Basic\BUTTON_1) 
 

 
 *-----------------------------------------------------------------------------* 
 STATIC FUNCTION HandlesHbWin( cText, cClass, lLogOut ) 
 *-----------------------------------------------------------------------------* 
    LOCAL i, h, t 
    LOCAL aWnd := EnumWindows() 
    LOCAL aTmp := {} 
    LOCAL aRet := {} 
  
    IF Empty(cClass) 
       aTmp := aWnd 
    ELSE 
       FOR EACH h IN aWnd 
           IF IsWindowHandle( h ) .and. GetClassName( h ) == cClass 
              AAdd( aTmp, h ) 
           ENDIF 
       NEXT 
    ENDIF 
  
    IF ! empty(cText) .and. HB_ISCHAR(cText) .and. Len(aTmp) > 0 
       FOR EACH h IN aTmp 
           IF IsWindowHandle( h ) 
              t := GetWindowText( h ) 
              IF cText $ t ; AAdd( aRet, h ) 
              ENDIF 
           ENDIF 
       NEXT 
    ELSE 
       aRet := aTmp 
    ENDIF 
  
    IF ! Empty(lLogOut) 
       FOR i := 1 TO Len(aTmp) 
           IF IsWindowHandle( aTmp[ i ] ) 
              t := GetWindowText(aTmp[ i ]) 
              _LogFile( .T., str(i, 5), aTmp[ i ], GetClassName(aTmp[ i ]), t ) 
           ENDIF 
       NEXT 
    ENDIF 
  
 RETURN aRet 
 

 
 Find Text = HandlesHbWin('VLC iptv viewer.', , .T.)   // не найдено - все в журнал 
     1 131180   tooltips_class32  ''  
     2 131202   SynTPEnhTFPWndClass  Forcepad driver tray window    
     3 131138   SynTrackCursorWindowClass  ''  
     4 131140   SynTPHelperWndClass  ''  
     5 65922 ForegroundStaging ''  
     6 65872 ForegroundStaging ''  
     7 65754 tooltips_class32  ''  
     8 65782 tooltips_class32  ''  
     9 65776 tooltips_class32  ''  
    10 65772 tooltips_class32  ''  
    11 65746 tooltips_class32  ''  
    12 131338   TaskListThumbnailWnd ''  
    13 131336   tooltips_class32  ''  
    14 65796 tooltips_class32  ''  
    15 65792 tooltips_class32  ''  
    16 65714 Shell_TrayWnd  ''  
    17 65794 tooltips_class32  ''  
    18 65756 NotifyIconOverflowWindow   ''  
    19 66056 SystemTray_Main   Battery Meter   
    20 66088 ATL:00007FF855FA21F0 ''  
    21 66114 ATL:00007FF84C89C230 Network Flyout  
    22 66112 PNIHiddenWnd   ''  
    23 65950 CiceroUIWndFrame  CiceroUIWndFrame   
    24 66480 Internet Explorer_Hidden   ''  
    25 66478 Internet Explorer_Hidden   ''  
    26 66476 Internet Explorer_Hidden   ''  
    27 66468 Internet Explorer_Hidden   ''  
    28 65942 ClassicShell.COwnerWindow  ''  
    29 65888 CiceroUIWndFrame  CiceroUIWndFrame   
    30 65886 CiceroUIWndFrame  TF_FloatingLangBar_WndTitle    
    31 65836 tooltips_class32  ''  
    32 4457622  GDI+ Hook Window Class  GeпЊ°дІ¤;    
    33 590832   ConsoleWindowClass   {C:\MiniGuiUnicode\SAMPLES\_Test\APP_OOPREPORT} - Far 3.0.5511 x64 Администратор    
    34 4261026  VLC video main 0000029B6AE00660  VLC (Direct3D11 output)  
    35 7341156  Qt5QWindowIcon аœаАб‚б аЂа’ - Медиапроигрыватель VLC    
    36 22217626 QTrayIconMessageWindowClass   QTrayIconMessageWindow   
    37 11535482 Static   VLC ghk 3.0.12  
    38 12780242 GDI+ Hook Window Class  G   
    39 3802124  Chrome_WidgetWin_1   ''  
    40 6292588  Chrome_WidgetWin_1   Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) - Google Chrome   
    41 12190726 Chrome_WidgetWin_0   ''  
    42 79496232 Chrome_WidgetWin_0   ''  
    43 15598672 Chrome_WidgetWin_0   ''  
    44 13763674 Chrome_StatusTrayWindow ''  
    45 9438310  Chrome_SystemMessageWindow ''  
    46 76153996 Chrome_WidgetWin_0   ''  
    47 722154   Base_PowerMessageWindow ''  
    48 13173218 crashpad_SessionEndWatcher ''  
    49 65862 ApplicationManager_DesktopShellWindow  ''  
    50 3276890  CTouchPadSynchronizer   TouchPad object helper window  
    51 3211396  CTouchPadSynchronizer   TouchPad object helper window  
    52 328538   FarHiddenWindowClass ''  
    53 525076   WindowsForms10.Window.8.app.0.d3a00f_r6_ad1  IntelВ® Management and Security Status  
    54 262970   WindowsForms10.Window.0.app.0.d3a00f_r6_ad1  ''  
    55 394082   WindowsForms10.tooltips_class32.app.0.d3a00f_r6_ad1   ''  
    56 328026   ComboLBox   ''  
    57 394230   ComboLBox   ''  
    58 131802   .NET-BroadcastEventWindow.4.0.0.0.d3a00f.0   .NET-BroadcastEventWindow.4.0.0.0.d3a00f.0    
    59 328080   GDI+ Hook Window Class  G   
    60 131608   WindowsForms10.Window.0.app.0.141b42a_r34_ad1   ''  
    61 131352   GDI+ Hook Window Class  G   
    62 197630   .NET-BroadcastEventWindow.4.0.0.0.141b42a.0  .NET-BroadcastEventWindow.4.0.0.0.141b42a.0   
    63 459726   ATL:00A9A850   Lightshot_Tray_Wnd    
    64 66490 GDI+ Hook Window Class  G   
    65 66502 VSyncHelper-000001EE4DD3B2A0-235bd58   ''  
    66 66506 VSyncHelper-000001EE4DD3B240-235c065   ''  
    67 66508 VSyncHelper-000001EE4DD3B1E0-235c1ac   ''  
    68 66504 VSyncHelper-000001EE4DD3B180-235c013   ''  
    69 66360 GadgetHostListener   ''  
    70 66354 8GadgetPackHelper ''  
    71 66350 BasicWindow SidebarBroadcastWatcher  
    72 66346 GDI+ Hook Window Class  G   
    73 197044   EVERYTHING_TASKBAR_NOTIFICATION  ''  
    74 131546   WindowsForms10.Window.0.app.0.14a43c5_r6_ad1 ''  
    75 131544   .NET-BroadcastEventWindow.4.0.0.0.14a43c5.0  .NET-BroadcastEventWindow.4.0.0.0.14a43c5.0   
    76 66208 HwndWrapper[SmartAudio3.exe;;666cf6d2-fb24-4259-95a1-8873a2d0dd06]   ''  
    77 66200 HwndWrapper[SmartAudio3.exe;;498f853c-6c9e-4451-92fc-be6461d8dd95]   SystemResourceNotifyWindow  
    78 131732   HwndWrapper[SmartAudio3.exe;;ea92a926-afef-45ac-b7bf-165f90465a8d]   MediaContextNotificationWindow    
    79 197240   ATL:00007FF848D17D50 HDAudioAPI-D9A3021B-9BCE-458C-B667-9029C4EF4050  
    80 131206   SynTPEnhTrayWndClass Touchpad driver tray icon window  
    81 66106 CTouchPadSynchronizer   TouchPad object helper window  
    82 66104 SynTPEnhWndClass  Touchpad driver helper window  
    83 66100 ScrollerooWindowClass   Touchpad driver backward compatibility window    
    84 66096 WorkerW  ''  
    85 66048 WorkerW  ''  
    86 66050 OleDdeWndClass DDE Server Window  
    87 65930 TabletModeCoverWindow   ''  
    88 66066 WorkerW  ''  
    89 66068 WorkerW  ''  
    90 65912 DummyDWMListenerWindow  ''  
    91 65906 EdgeUiInputTopWndClass  ''  
    92 65870 OleDdeWndClass DDE Server Window  
    93 65858 WorkerW  ''  
    94 65854 ClassicStartMenu.CStartHookWindow   StartHookWindow    
    95 65844 WorkerW  ''  
    96 65842 WorkerW  ''  
    97 65822 WorkerW  ''  
    98 65820 WorkerW  ''  
    99 131716   AfxFrameOrView140su  MicTray   
   100 197210   WorkerW  ''  
   101 131710   BluetoothNotificationAreaIconWindowClass  BluetoothNotificationAreaIconWindowClass   
   102 262754   QLBCONTROLLER  QLBController   
   103 131190   MS_WebcheckMonitor   MS_WebcheckMonitor    
   104 65712 #32770   The Event Manager Dashboard    
   105 65686 DDEMLEvent  ''  
   106 65682 DDEMLMom ''  
   107 131104   PushNotificationsPowerManagement Windows Push Notifications Platform  
   108 131106   COMTASKSWINDOWCLASS  Task Host Window   
   109 65620 Dwm   DWM Notification Window  
   110 131110   CicLoaderWndClass ''  
   111 263244   tooltips_class32  ''  
   112 131652   ESET Client Frame ESET Smart Security   
   113 66438 SideBar_HTMLHostWindow  ''  
   114 66426 BasicWindow Clock  
   115 66466 SideBar_HTMLHostWindow  ''  
   116 66462 BasicWindow iBattery  
   117 66442 SideBar_HTMLHostWindow  ''  
   118 66430 BasicWindow Calendar  
   119 66440 SideBar_HTMLHostWindow  ''  
   120 66428 BasicWindow WeatherCenter   
   121 14615606 tooltips_class32  ''  
   122 1443008  HMG_FORM_wM3U  VLC iptv viewer.   
   123 9962252  WorkerW  ''  
   124 65828 Progman  Program Manager    
   125 66134 MSCTFIME UI MSCTFIME UI  
   126 66102 IME   Default IME  
   127 131142   IME   Default IME  
   128 1507496  MSCTFIME UI MSCTFIME UI  
   129 65924 IME   Default IME  
   130 1311580  MSCTFIME UI MSCTFIME UI  
   131 65860 IME   Default IME  
   132 65814 MSCTFIME UI MSCTFIME UI  
   133 65716 IME   Default IME  
   134 66090 IME   Default IME  
   135 8979572  IME   Default IME  
   136 328526   MSCTFIME UI MSCTFIME UI  
   137 459756   IME   Default IME  
   138 19334172 IME   Default IME  
   139 41550874 MSCTFIME UI MSCTFIME UI  
   140 656526   IME   Default IME  
   141 1049794  IME   Default IME  
   142 8324128  IME   Default IME  
   143 26149966 MSCTFIME UI MSCTFIME UI  
   144 656604   IME   Default IME  
   145 7471792  IME   Default IME  
   146 9962518  IME   Default IME  
   147 5964892  IME   Default IME  
   148 394056   IME   Default IME  
   149 525300   MSCTFIME UI MSCTFIME UI  
   150 459580   IME   Default IME  
   151 262562   IME   Default IME  
   152 131354   IME   Default IME  
   153 197248   IME   Default IME  
   154 132062   IME   Default IME  
   155 66492 IME   Default IME  
   156 66356 IME   Default IME  
   157 66352 IME   Default IME  
   158 66348 IME   Default IME  
   159 196986   IME   Default IME  
   160 131734   IME   Default IME  
   161 131706   IME   Default IME  
   162 66098 IME   Default IME  
   163 65856 IME   Default IME  
   164 65830 MSCTFIME UI MSCTFIME UI  
   165 65824 IME   Default IME  
   166 66182 IME   Default IME  
   167 66178 IME   Default IME  
   168 66152 IME   Default IME  
   169 65718 IME   Default IME  
   170 131102   IME   Default IME  
   171 197230   MSCTFIME UI MSCTFIME UI  
   172 131578   IME   Default IME  
   173 66452 MSCTFIME UI MSCTFIME UI  
   174 66434 IME   Default IME  
   175 66474 MSCTFIME UI MSCTFIME UI  
   176 66464 IME   Default IME  
   177 66456 MSCTFIME UI MSCTFIME UI  
   178 66436 IME   Default IME  
   179 66454 MSCTFIME UI MSCTFIME UI  
   180 66432 IME   Default IME  
   181 65850 MSCTFIME UI MSCTFIME UI  
   182 65684 IME   Default IME  
   183 5440658  MSCTFIME UI MSCTFIME UI  
   184 10159236 IME   Default IME  
  
 Find Class =   HandlesHbWin(, 'HMG_FORM_wM3U', .T.)   // найдено 
     1 1443008  HMG_FORM_wM3U  VLC iptv viewer.   
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
  
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 REQUEST HB_CODEPAGE_UTF8 
 REQUEST HB_CODEPAGE_RU1251 
  
 REQUEST DBFCDX 
  
  
 *-----------------------------------------------------------------------------* 
 FUNCTION Main() 
 *-----------------------------------------------------------------------------* 
    SET CODEPAGE TO UNICODE 
  
    RddSetDefault("DBFCDX") 
  
    SET CENTURY   ON 
    SET DATE      GERMAN 
    SET DELETED   ON 
    SET EXCLUSIVE ON 
    SET EPOCH TO  2000 
    SET AUTOPEN   ON 
    SET EXACT     ON 
    SET SOFTSEEK  ON 
  
    SET NAVIGATION EXTENDED 
    SET FONT TO "Arial", 11 
  
    *-------------------------------- 
    SET OOP ON 
    *-------------------------------- 
  
    ? "Find Text =", "HandlesHbWin('VLC iptv viewer.', , .T.)" 
    ? HandlesHbWin("VLC iptv viewer.", , .T.) 
    ? 
    ? "Find Class = ", "HandlesHbWin(, 'HMG_FORM_wM3U', .T.)" 
    ? HandlesHbWin(, "HMG_FORM_wM3U", .T.) 
    ? 
  
 RETURN 
  
 *-----------------------------------------------------------------------------* 
 STATIC FUNCTION HandlesHbWin( cText, cClass, lLogOut ) 
 *-----------------------------------------------------------------------------* 
    LOCAL i, h, t 
    LOCAL aWnd := EnumWindows() 
    LOCAL aTmp := {} 
    LOCAL aRet := {} 
  
    IF Empty(cClass) 
       aTmp := aWnd 
    ELSE 
       FOR EACH h IN aWnd 
           IF IsWindowHandle( h ) .and. GetClassName( h ) == cClass 
              AAdd( aTmp, h ) 
           ENDIF 
       NEXT 
    ENDIF 
  
    IF ! empty(cText) .and. HB_ISCHAR(cText) .and. Len(aTmp) > 0 
       ? aTmp 
       FOR EACH h IN aTmp 
           ? hb_enumindex(h), h, IsWindowHandle( h ) 
           IF IsWindowHandle( h ) 
              ?? "t =" 
              BEGIN SEQUENCE WITH { |e|break(e) } 
              ?? "->" 
              t := GetWindowText( h ) 
              ?? "<-" 
              END SEQUENCE 
              ?? t 
              IF cText $ t ; AAdd( aRet, h ) 
              ENDIF 
           ENDIF 
       NEXT 
    ELSE 
       aRet := aTmp 
    ENDIF 
  
    IF ! Empty(lLogOut) 
       FOR i := 1 TO Len(aTmp) 
           IF IsWindowHandle( aTmp[ i ] ) 
              t := GetWindowText(aTmp[ i ]) 
              _LogFile( .T., str(i, 5), aTmp[ i ], GetClassName(aTmp[ i ]), t ) 
           ENDIF 
       NEXT 
    ENDIF 
  
 RETURN aRet 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
  
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 REQUEST HB_CODEPAGE_UTF8, HB_CODEPAGE_RU1251 
  
 REQUEST DBFCDX 
  
  
 *-----------------------------------------------------------------------------* 
 FUNCTION Main() 
 *-----------------------------------------------------------------------------* 
    SET CODEPAGE TO UNICODE 
  
    RddSetDefault("DBFCDX") 
  
    SET CENTURY   ON 
    SET DATE      GERMAN 
    SET DELETED   ON 
    SET EXCLUSIVE ON 
    SET EPOCH TO  2000 
    SET AUTOPEN   ON 
    SET EXACT     ON 
    SET SOFTSEEK  ON 
  
    SET NAVIGATION EXTENDED 
    SET FONT TO "Arial", 11 
  
    *-------------------------------- 
    SET OOP ON 
    *-------------------------------- 
  
    ? "Find Text =", "HandlesHbWin(, , .T.)" 
    ? HandlesHbWin( , , .T.) 
    ? 
    /* 
    ? "Find Class = ", "HandlesHbWin(, 'HMG_FORM_wM3U', .T.)" 
    ? HandlesHbWin(, "HMG_FORM_wM3U", .T.) 
    ? 
    */ 
    ? "Find Text =", "HandlesHbWin('VLC iptv viewer.', , .T.)" 
    ? HandlesHbWin("VLC iptv viewer.", , .T.) 
    ? 
    */ 
  
 RETURN 
  
 *-----------------------------------------------------------------------------* 
 STATIC FUNCTION HandlesHbWin( cText, cClass, lLogOut ) 
 *-----------------------------------------------------------------------------* 
    LOCAL i, h, t 
    LOCAL aWnd := EnumWindows() 
    LOCAL aTmp := {} 
    LOCAL aRet := {} 
  
    IF Empty(cClass) 
       aTmp := aWnd 
    ELSE 
       FOR EACH h IN aWnd 
           IF IsWindowHandle( h ) .and. GetClassName( h ) == cClass 
              AAdd( aTmp, h ) 
           ENDIF 
       NEXT 
    ENDIF 
  
    IF ! empty(cText) .and. HB_ISCHAR(cText) .and. Len(aTmp) > 0 
       ? aTmp 
       FOR EACH h IN aTmp 
           ? hb_enumindex(h), h, IsWindowHandle( h ) 
           IF IsWindowHandle( h ) 
              ?? "t =" 
              BEGIN SEQUENCE WITH { |e|break(e) } 
              ?? "->" 
              t := GetWindowText( h ) 
              ?? "<-" 
              END SEQUENCE 
              ?? t 
              IF cText $ t ; AAdd( aRet, h ) 
              ENDIF 
           ENDIF 
       NEXT 
    ELSE 
       aRet := aTmp 
    ENDIF 
  
    IF ! Empty(lLogOut) 
       FOR i := 1 TO Len(aTmp) 
           IF IsWindowHandle( aTmp[ i ] ) 
              //t := GetWindowText(aTmp[ i ]) 
              _LogFile( .T., str(i, 5), aTmp[ i ], GetClassName(aTmp[ i ]) /*, t*/ ) 
           ENDIF 
       NEXT 
    ENDIF 
  
 RETURN aRet 
 

 
  
 Find Text = HandlesHbWin(, , .T.)    
     1 131138   SynTrackCursorWindowClass   
     2 131180   tooltips_class32   
     3 131202   SynTPEnhTFPWndClass   
     4 131140   SynTPHelperWndClass   
     5 65922 ForegroundStaging  
     6 65872 ForegroundStaging  
     7 65754 tooltips_class32   
     8 65782 tooltips_class32   
     9 65776 tooltips_class32   
    10 65772 tooltips_class32   
    11 65746 tooltips_class32   
    12 131336   tooltips_class32   
    13 65796 tooltips_class32   
    14 65792 tooltips_class32   
    15 65950 CiceroUIWndFrame   
    16 65714 Shell_TrayWnd   
    17 131338   TaskListThumbnailWnd  
    18 65794 tooltips_class32   
    19 65756 NotifyIconOverflowWindow    
    20 66056 SystemTray_Main    
    21 66088 ATL:00007FF855FA21F0  
    22 66114 ATL:00007FF84C89C230  
    23 66112 PNIHiddenWnd    
    24 66480 Internet Explorer_Hidden    
    25 66478 Internet Explorer_Hidden    
    26 66476 Internet Explorer_Hidden    
    27 66468 Internet Explorer_Hidden    
    28 65942 ClassicShell.COwnerWindow   
    29 65888 CiceroUIWndFrame   
    30 65886 CiceroUIWndFrame   
    31 65836 tooltips_class32   
    32 15008680 GDI+ Hook Window Class   
    33 590832   ConsoleWindowClass    
    34 65862 ApplicationManager_DesktopShellWindow   
    35 4063322  CTouchPadSynchronizer    
    36 3997828  CTouchPadSynchronizer    
    37 66442 SideBar_HTMLHostWindow   
    38 66430 BasicWindow  
    39 328538   FarHiddenWindowClass  
    40 525076   WindowsForms10.Window.8.app.0.d3a00f_r6_ad1   
    41 262970   WindowsForms10.Window.0.app.0.d3a00f_r6_ad1   
    42 394082   WindowsForms10.tooltips_class32.app.0.d3a00f_r6_ad1    
    43 328026   ComboLBox    
    44 394230   ComboLBox    
    45 131802   .NET-BroadcastEventWindow.4.0.0.0.d3a00f.0    
    46 328080   GDI+ Hook Window Class   
    47 131608   WindowsForms10.Window.0.app.0.141b42a_r34_ad1    
    48 131352   GDI+ Hook Window Class   
    49 197630   .NET-BroadcastEventWindow.4.0.0.0.141b42a.0   
    50 459726   ATL:00A9A850    
    51 66490 GDI+ Hook Window Class   
    52 66502 VSyncHelper-000001EE4DD3B2A0-235bd58    
    53 66506 VSyncHelper-000001EE4DD3B240-235c065    
    54 66508 VSyncHelper-000001EE4DD3B1E0-235c1ac    
    55 66504 VSyncHelper-000001EE4DD3B180-235c013    
    56 66360 GadgetHostListener    
    57 66354 8GadgetPackHelper  
    58 66350 BasicWindow  
    59 66346 GDI+ Hook Window Class   
    60 197044   EVERYTHING_TASKBAR_NOTIFICATION   
    61 131546   WindowsForms10.Window.0.app.0.14a43c5_r6_ad1  
    62 131544   .NET-BroadcastEventWindow.4.0.0.0.14a43c5.0   
    63 66208 HwndWrapper[SmartAudio3.exe;;666cf6d2-fb24-4259-95a1-8873a2d0dd06]    
    64 66200 HwndWrapper[SmartAudio3.exe;;498f853c-6c9e-4451-92fc-be6461d8dd95]    
    65 131732   HwndWrapper[SmartAudio3.exe;;ea92a926-afef-45ac-b7bf-165f90465a8d]    
    66 197240   ATL:00007FF848D17D50  
    67 131206   SynTPEnhTrayWndClass  
    68 66106 CTouchPadSynchronizer    
    69 66104 SynTPEnhWndClass   
    70 66100 ScrollerooWindowClass    
    71 66096 WorkerW   
    72 66048 WorkerW   
    73 66050 OleDdeWndClass  
    74 65930 TabletModeCoverWindow    
    75 66066 WorkerW   
    76 66068 WorkerW   
    77 65912 DummyDWMListenerWindow   
    78 65906 EdgeUiInputTopWndClass   
    79 65870 OleDdeWndClass  
    80 65858 WorkerW   
    81 65854 ClassicStartMenu.CStartHookWindow    
    82 65844 WorkerW   
    83 65842 WorkerW   
    84 65822 WorkerW   
    85 65820 WorkerW   
    86 131716   AfxFrameOrView140su   
    87 197210   WorkerW   
    88 131710   BluetoothNotificationAreaIconWindowClass   
    89 262754   QLBCONTROLLER   
    90 131190   MS_WebcheckMonitor    
    91 65712 #32770    
    92 65686 DDEMLEvent   
    93 65682 DDEMLMom  
    94 131104   PushNotificationsPowerManagement  
    95 131106   COMTASKSWINDOWCLASS   
    96 65620 Dwm    
    97 131110   CicLoaderWndClass  
    98 263244   tooltips_class32   
    99 131652   ESET Client Frame  
   100 66438 SideBar_HTMLHostWindow   
   101 66426 BasicWindow  
   102 66440 SideBar_HTMLHostWindow   
   103 66428 BasicWindow  
   104 66466 SideBar_HTMLHostWindow   
   105 66462 BasicWindow  
   106 9962252  WorkerW   
   107 65828 Progman   
   108 66134 MSCTFIME UI  
   109 66102 IME    
   110 131142   IME    
   111 1507496  MSCTFIME UI  
   112 65924 IME    
   113 65814 MSCTFIME UI  
   114 65716 IME    
   115 66090 IME    
   116 15401362 IME    
   117 328526   MSCTFIME UI  
   118 459756   IME    
   119 1311580  MSCTFIME UI  
   120 65860 IME    
   121 66456 MSCTFIME UI  
   122 66436 IME    
   123 394056   IME    
   124 525300   MSCTFIME UI  
   125 459580   IME    
   126 262562   IME    
   127 131354   IME    
   128 197248   IME    
   129 132062   IME    
   130 66492 IME    
   131 66356 IME    
   132 66352 IME    
   133 66348 IME    
   134 196986   IME    
   135 131734   IME    
   136 131706   IME    
   137 66098 IME    
   138 65856 IME    
   139 65830 MSCTFIME UI  
   140 65824 IME    
   141 66182 IME    
   142 66178 IME    
   143 66152 IME    
   144 65718 IME    
   145 131102   IME    
   146 197230   MSCTFIME UI  
   147 131578   IME    
   148 66452 MSCTFIME UI  
   149 66434 IME    
   150 66454 MSCTFIME UI  
   151 66432 IME    
   152 66474 MSCTFIME UI  
   153 66464 IME    
   154 65850 MSCTFIME UI  
   155 65684 IME    
 ARRAY[155]   
  
 Find Text = HandlesHbWin('VLC iptv viewer.', , .T.)    
 ARRAY[155]   
 1  131138   .T.   t =   -> <- ''  
 2  131180   .T.   t =   -> <- ''  
 3  131202   .T.   t =   -> <- Forcepad driver tray window    
 4  131140   .T.   t =   -> <- ''  
 5  65922 .T.   t =   -> <- ''  
 6  65872 .T.   t =   -> <- ''  
 7  65754 .T.   t =   -> <- ''  
 8  65782 .T.   t =   -> <- ''  
 9  65776 .T.   t =   -> <- ''  
 10 65772 .T.   t =   -> <- ''  
 11 65746 .T.   t =   -> <- ''  
 12 131336   .T.   t =   -> <- ''  
 13 65796 .T.   t =   -> <- ''  
 14 65792 .T.   t =   -> <- ''  
 15 65950 .T.   t =   -> <- CiceroUIWndFrame   
 16 65714 .T.   t =   -> <- ''  
 17 131338   .T.   t =   -> <- ''  
 18 65794 .T.   t =   -> <- ''  
 19 65756 .T.   t =   -> <- ''  
 20 66056 .T.   t =   -> <- Battery Meter   
 21 66088 .T.   t =   -> <- ''  
 22 66114 .T.   t =   -> <- Network Flyout  
 23 66112 .T.   t =   -> <- ''  
 24 66480 .T.   t =   -> <- ''  
 25 66478 .T.   t =   -> <- ''  
 26 66476 .T.   t =   -> <- ''  
 27 66468 .T.   t =   -> <- ''  
 28 65942 .T.   t =   -> <- ''  
 29 65888 .T.   t =   -> <- CiceroUIWndFrame   
 30 65886 .T.   t =   -> <- TF_FloatingLangBar_WndTitle    
 31 65836 .T.   t =   -> <- ''  
 32 15008680 .T.   t =   ->  
 

HB_FUNC( GETWINDOWTEXT ) 
 { 
 #ifdef UNICODE 
    LPSTR  pStr; 
 #endif 
    HWND   hWnd   = ( HWND ) HB_PARNL( 1 ); 
    int    iLen   = GetWindowTextLength( hWnd ); 
    LPTSTR szText = ( TCHAR * ) hb_xgrab( ( iLen + 1 ) * sizeof( TCHAR ) ); 
  
 #ifndef UNICODE 
    iLen = GetWindowText( hWnd, szText, iLen + 1 ); 
  
    hb_retclen( szText, iLen ); 
 #else 
    GetWindowText( hWnd, szText, iLen + 1 ); 
  
    pStr = WideToAnsi( szText ); 
    hb_retc( pStr ); 
    hb_xfree( pStr ); 
 #endif 
    hb_xfree( szText ); 
 

 
 HB_FUNC( GETWINDOWTEXT ) 
 { 
 #ifdef UNICODE 
    LPSTR  pStr; 
 #endif 
    HWND   hWnd   = ( HWND ) HB_PARNL( 1 ); 
    int    iLen   = GetWindowTextLength( hWnd ); 
    LPTSTR szText = ( TCHAR * ) hb_xgrab( ( iLen + 1 ) * sizeof( TCHAR ) ); 
  
 #ifndef UNICODE 
    iLen = GetWindowText( hWnd, szText, iLen + 1 ); 
  
    hb_retclen( szText, iLen ); 
 #else 
    GetWindowText( hWnd, szText, ( iLen + 1 ) * sizeof( TCHAR ) ); 
  
    pStr = WideToAnsi( szText ); 
    hb_retc( pStr ); 
    hb_xfree( pStr ); 
 #endif 
    hb_xfree( szText ); 
 }