FiveTech Support Forums

32  DLL FUNCTION Everything_GetBuildNumber() AS LONG PASCAL FROM "Everything_GetBuildNumber" LIB hDll
33  DLL FUNCTION Everything_SetSearchA( cSearch AS LPSTR ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll
34  DLL FUNCTION Everything_QueryA( lWait AS BOOL ) AS BOOL PASCAL FROM "Everything_QueryA" LIB hDll
35  DLL FUNCTION Everything_GetNumResults() AS LONG PASCAL FROM "Everything_GetNumResults" LIB hDll
36  // need to check Parameter Type
37  DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" LIB hDll
38  DLL FUNCTION Everything_GetResultFullPathNameA( nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL FROM     "Everything_GetResultFullPathNameA" LIB hDll

      nDll := "Everything32.dll"

      // set thesearch
#IFDEF CODE_ANSI
      nRet := DllCall( nDLL, ,"Everything_SetSearchA",cText)
#ELSE
      nRet := DllCall( nDLL, ,"Everything_SetSearchW",cText)
#ENDIF
      // request name and size
        nRet := DllCall( nDLL, ,"Everything_SetRequestFlags", bor(EVERYTHING_REQUEST_PATH, EVERYTHING_REQUEST_FILE_NAME ,    EVERYTHING_REQUEST_SIZE) )
      // sort it
      nRet := DllCall( nDLL, ,"Everything_SetSort",EVERYTHING_SORT_FILE_LIST_FILENAME_ASCENDING)

      // execute the query
#IFDEF CODE_ANSI
      nRet := DllCall( nDLL, ,"Everything_QueryA",.T.)
#ELSE
      nRet := DllCall( nDLL, ,"Everything_QueryW",.T.)
#ENDIF

      nNum := DllCall( nDLL,  HB_DYN_CTYPE_INT ,"Everything_GetNumResults")
      FOR n := 1 TO nNum
         buf := SPACE(bufsize)
#IFDEF CODE_ANSI
         nRet := DllCall( nDLL, ,"Everything_GetResultFullPathNameA",n, @buf, bufsize)
#ELSE
         nRet := DllCall( nDLL, ,"Everything_GetResultFullPathNameW",n, @buf, bufsize)
#ENDIF

         AADD(aResult, UPPER(TRIM(buf)) )
      NEXT
      // sort it here
      aResult := ASORT(aResult)

      nNum := LEN(aResult)
      FOR n := 1 TO nNum
         cItem := aResult[n]
         IF EMPTY(cItem)
            LOOP
         ENDIF

// add direct to Grid
       EVFORM.Grid_1.AddItem({cItem+"\nhello world"})
      NEXT

      IF EMPTY(EVFORM.Grid_1.Value)              // 1st Item is empty
         EVFORM.Grid_1.DeleteItem(1)             // delete it
      ENDIF

      EVFORM.Grid_1.EnableUpdate()
RETURN

17   #include "FiveWin.ch"
18   #include "DLL.CH"
---
32   DLL FUNCTION Everything_GetBuildNumber() AS LONG PASCAL FROM "Everything_GetBuildNumber" LIB hDll
33   DLL FUNCTION Everything_SetSearchA( cSearch AS LPSTR ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll
34   DLL FUNCTION Everything_QueryA( lWait AS BOOL ) AS BOOL PASCAL FROM "Everything_QueryA" LIB hDll
35   DLL FUNCTION Everything_GetNumResults() AS LONG PASCAL FROM "Everything_GetNumResults" LIB hDll
36   // need to check Parameter Type
37   DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" LIB hDll
38   DLL FUNCTION Everything_GetResultFullPathNameA( nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL FROM "Everything_GetResultFullPathNameA" LIB hDll

    set bcc=bcc770
    set path=c:\%bcc%\bin
    set HB_USER_CFLAGS=-Ic:\%bcc%\INCLUDE\windows\crtl -Ic:\%bcc%\INCLUDE\windows\sdk -Lc:\%bcc%\LIB
    set HB_USER_LDFLAGS=-Lc:\%bcc%\LIB;c:\%bcc%\LIB\psdk
    c:\harbour\bin\hbmk2.exe demo32.hbp -comp=bcc

    -gui

DEMO.PRG

    -info
 
    -Ic:\fwh\include
    -Lc:\fwh\lib

    -lfiveh
    -lfivehc
    -luxtheme

    hbct.hbc
    xhb.hbc
    hbziparc.hbc

#include "FiveWin.ch"
#include "DLL.CH"

STATIC hDLL


DLL FUNCTION Everything_GetBuildNumber() AS LONG PASCAL FROM "Everything_GetBuildNumber" LIB hDll
DLL FUNCTION Everything_SetSearchA( cSearch AS LPSTR ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll
DLL FUNCTION Everything_QueryA( lWait AS BOOL ) AS BOOL PASCAL FROM "Everything_QueryA" LIB hDll
DLL FUNCTION Everything_GetNumResults() AS LONG PASCAL FROM "Everything_GetNumResults" LIB hDll
// need to check Parameter Type
DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" LIB hDll
DLL FUNCTION Everything_GetResultFullPathNameA( nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL FROM "Everything_GetResultFullPathNameA" LIB hDll

Procedure MAIN
MsgInfo("Demo")
RETURN

#include "FiveWin.ch"
#include "Dll.ch"  // ?? -> Never used.

STATIC hDll

FUNCTION Main()

   LOCAL nRet

// hDll := LoadLibrary( "JIMMYDLL.DLL" )

// nRet := Everything_GetBuildNumber()

// IF nRet != 0

//    MsgStop( "Error" )

// ELSE

      MsgInfo( "Do it right Jimmy" )

// ENDIF

RETURN NIL

// Always at the end of a FUNCTION
DLL FUNCTION Everything_GetBuildNumber() AS LONG PASCAL FROM "Everything_GetBuildNumber" LIB hDll
DLL FUNCTION Everything_SetSearchA( cSearch AS LPSTR ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll
DLL FUNCTION Everything_QueryA( lWait AS BOOL ) AS BOOL PASCAL FROM "Everything_QueryA" LIB hDll
DLL FUNCTION Everything_GetNumResults() AS LONG PASCAL FROM "Everything_GetNumResults" LIB hDll
// need to check Parameter Type
DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" LIB hDll
DLL FUNCTION Everything_GetResultFullPathNameA( nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL FROM "Everything_GetResultFullPathNameA" LIB hDll

// FIN / END

#include "FiveWin.ch"
#include "DLL.CH"

STATIC hDLL


DLL FUNCTION Everything_GetBuildNumber() AS LONG PASCAL FROM "Everything_GetBuildNumber" LIB hDll
DLL FUNCTION Everything_SetSearchA( cSearch AS LPSTR ) AS VOID PASCAL FROM "Everything_SetSearchA" LIB hDll
DLL FUNCTION Everything_QueryA( lWait AS BOOL ) AS BOOL PASCAL FROM "Everything_QueryA" LIB hDll
DLL FUNCTION Everything_GetNumResults() AS LONG PASCAL FROM "Everything_GetNumResults" LIB hDll
// need to check Parameter Type
DLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM "Everything_SetRequestFlags" LIB hDll
DLL FUNCTION Everything_GetResultFullPathNameA( nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL FROM "Everything_GetResultFullPathNameA" LIB hDll

Procedure MAIN
MsgInfo("Demo")
RETURN

 -w-inl