Shell Common Dialogs
Posted: Mon Jul 11, 2011 8:21 am
http://koti.mbnet.fi/vaultec/files/miscellaneous/undocw95/common.html
comdlg32.prg
comdlg32.prg
- Code: Select all Expand view
- #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