FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   MsgInfo( PickIconDlg() )

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

BOOL WINAPI PickIconDlg(
     HWND     hwndOwner, 
     LPSTR    lpstrFile, 
     DWORD    nMaxFile, 
     LPDWORD  lpdwIconIndex );

HB_FUNC( PICKICONDLG )
{
   DWORD dwIconIndex = 0; 
   char buffer[ 256 ];
   
   memset( buffer, 0, 256 );

   if( PickIconDlg( ( HWND ) hb_parnl( 1 ), buffer, 256, &dwIconIndex ) )
      hb_retnl( dwIconIndex );
} 

#pragma ENDDUMP

#include "FiveWin.ch"

function Main()

   // MsgInfo( PickIconDlg() )

   RunFileDlg()

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

BOOL WINAPI PickIconDlg(
     HWND     hwndOwner, 
     LPSTR    lpstrFile, 
     DWORD    nMaxFile, 
     LPDWORD  lpdwIconIndex );
     
typedef void WINAPI ( * PRUNFILEDLG ) (
     HWND    hwndOwner, 
     HICON   hIcon, 
     LPCSTR  lpstrDirectory, 
     LPCSTR  lpstrTitle, 
     LPCSTR  lpstrDescription,
     UINT    uFlags );     

HB_FUNC( PICKICONDLG )
{
   DWORD dwIconIndex = 0; 
   char buffer[ 256 ];
   
   memset( buffer, 0, 256 );

   if( PickIconDlg( ( HWND ) hb_parnl( 1 ), buffer, 256, &dwIconIndex ) )
      hb_retnl( dwIconIndex );
} 

HB_FUNC( RUNFILEDLG )
{
   FARPROC pRunFileDlg = GetProcAddress( GetModuleHandle( "shell32.dll" ), ( LPCSTR ) 61 );
   PRUNFILEDLG p = ( PRUNFILEDLG ) pRunFileDlg;
   
   p( ( HWND ) hb_parnl( 1 ), ( HICON ) hb_parnl( 2 ), hb_parc( 3 ), hb_parc( 4 ), hb_parc( 5 ), hb_parnl( 6 ) );
}
   
#pragma ENDDUMP

#Include "FIVEWIN.CH"

STATIC oWnd

#Define TYPE_DRIVE   1  
#Define TYPE_FILE   2  
#Define TYPE_PRINTER   3  
#Define TYPE_COMM   4  
 
//--------------------------------------------------------------------//
FUNCTION Main()

DEFINE Window oWnd TITLE    "Probando la Red Local"
ACTIVATE Window oWnd MAXIMIZED ON INIT MSGInfo(WNetBrowseDialog(oWnd,TYPE_FILE, "Z:\"),"Demo")

Return nil

Option Explicit  
  
'Constantes  
Private Const ERROR_SUCCESS As Long = 0  
Private Const MAX_PATH As Long = 260  
Private Const CSIDL_NETWORK As Long = &H12  
Private Const BIF_RETURNONLYFSDIRS As Long = &H1  
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000  
  
'Estructura BROWSEINFO necesaria para el Api SHBrowseForFolder  
  
Private Type BROWSEINFO 'BI  
    hOwner As Long  
    pidlRoot As Long  
    pszDisplayName As String  
    lpszTitle As String  
    ulFlags As Long  
    lpfn As Long  
    lParam As Long  
    iImage As Long  
End Type  
  
'Declaramos la función Api SHBrowseForForlder  
Private Declare Function SHBrowseForFolder _  
    Lib "shell32.dll" _  
    Alias "SHBrowseForFolderA" ( _  
        lpBrowseInfo As BROWSEINFO) As Long  
  
'Declaramos la función Api SHGetSpecialFolderLocation  
  
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ( _  
    ByVal hwndOwner As Long, _  
    ByVal nFolder As Long, _  
    pidl As Long) As Long  
  
  
'Función que devuelve el nombre de la máquina  
  
  
Private Function Buscar_Equipo_De_Red() As String  
  
Dim BI As BROWSEINFO  
Dim pidl As Long  
Dim sPath As String  
Dim pos As Integer  
  
' Obtener el pidl de la carpeta Entorno de red  
If SHGetSpecialFolderLocation(Me.hWnd, CSIDL_NETWORK, pidl) = ERROR_SUCCESS Then  
  
    With BI  
        .hOwner = Me.hWnd  
        .pidlRoot = pidl  
        .pszDisplayName = Space$(MAX_PATH)  
        .lpszTitle = " Seleccionar el ordenador de la red de la lista :"  
        .ulFlags = BIF_BROWSEFORCOMPUTER  
    End With  
  
    ' Esto abre el diálogo para buscar el equipo de red  
    If SHBrowseForFolder(BI) <> 0 Then  
        'retorna el valor a la función, es decir el nombre del equipo  
        Buscar_Equipo_De_Red = "\\" & Replace(BI.pszDisplayName, Chr(0), vbNullString)  
    End If  
  
End If  
End Function  
  
Private Sub Command1_Click()  
    ' Llama a la función que abre el cuadro de diálogo  
    Call Buscar_Equipo_De_Red  
End Sub  
  
Private Sub Form_Load()  
    Command1.Caption = " Buscar equipo de Red "  
End Sub

#include "fivewin.ch"

#define BIF_RETURNONLYFSDIRS   0x0001  // For finding a folder to start document searching
#define BIF_DONTGOBELOWDOMAIN  0x0002  // For starting the Find Computer
#define BIF_STATUSTEXT         0x0004   // Top of the dialog has 2 lines of text for BROWSEINFO.lpszTitle and one line if
                                        // this flag is set.  Passing the message BFFM_SETSTATUSTEXTA to the hwnd can set the
                                        // rest of the text.  This is not used with BIF_USENEWUI and BROWSEINFO.lpszTitle gets
                                        // all three lines of text.
#define BIF_RETURNFSANCESTORS  0x0008
#define BIF_EDITBOX            0x0010   // Add an editbox to the dialog
#define BIF_VALIDATE           0x0020   // insist on valid result (or CANCEL)

#define BIF_NEWDIALOGSTYLE     0x0040   // Use the new dialog layout with the ability to resize
                                        // Caller needs to call OleInitialize() before using this API

#define BIF_USENEWUI           (BIF_NEWDIALOGSTYLE | BIF_EDITBOX)

#define BIF_BROWSEINCLUDEURLS  0x0080   // Allow URLs to be displayed or entered. (Requires BIF_USENEWUI)
#define BIF_UAHINT             0x0100   // Add a UA hint to the dialog, in place of the edit box. May not be combined with BIF_EDITBOX
#define BIF_NONEWFOLDERBUTTON  0x0200   // Do not add the "New Folder" button to the dialog.  Only applicable with BIF_NEWDIALOGSTYLE.
#define BIF_NOTRANSLATETARGETS 0x0400   // don't traverse target as shortcut

#define BIF_BROWSEFORCOMPUTER  0x1000  // Browsing for Computers.
#define BIF_BROWSEFORPRINTER   0x2000  // Browsing for Printers
#define BIF_BROWSEINCLUDEFILES 0x4000  // Browsing for Everything
#define BIF_SHAREABLE          0x8000  // sharable resources displayed (remote shares, requires BIF_USENEWUI)



function main()

? BrowseFolder( 0, "Probando", BIF_BROWSEFORCOMPUTER )

return nil



#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
#include <shlobj.h>
#include <shtypes.h>

HB_FUNC( BROWSEFOLDER )
{
   
   HWND hWnd = ( HWND ) hb_parnl( 1 );
   ITEMIDLIST * ppidl;
   BROWSEINFO  lpbi;
   char pszDisplayName[MAX_PATH];
   char pszReturn[MAX_PATH];
   
   memset( &lpbi, 0x00, sizeof( BROWSEINFO ) );
   
   if( SHGetSpecialFolderLocation( hWnd, CSIDL_NETWORK, &ppidl ) == S_OK )
   {
      lpbi.hwndOwner   = hWnd;  
      lpbi.pidlRoot = ppidl;  
      lpbi.pszDisplayName = pszDisplayName; 
      lpbi.lpszTitle = hb_parc( 2 );  
      lpbi.ulFlags = hb_parnl( 3 ) ;
      if( SHBrowseForFolder(&lpbi) != 0 )
         strcpy( pszReturn, lpbi.pszDisplayName );
      else
         strcpy( pszReturn, "\0" );
   }
   
   hb_retc( pszReturn );

}


#pragma ENDDUMP

Z:\PRUEBAS\OBJ\ntbrwdlg.hrb:
Warning W8065 Z:\\PRUEBAS\\ntbrwdlg.prg 55: CALL TO FUNCTION 'IF' WITH no prototype in FUNCTION HB_FUN_BROWSEFOLDER
Error E2379 Z:\\PRUEBAS\\Variable\\ntbrwdlg.prg 56: Statement missing ; in FUNCTION HB_FUN_BROWSEFOLDER
*** 1 errors in Compile ***