83bbb7b34d
* src/rtl/fstemp.c
! Using hb_fsTempDir() in HB_FTEMPCREATEEX() instead of
old solution. This should fix it for some non-*nix
platforms where *nix specific TEMPDIR envvar was used
to determine temp directory.
* contrib/hbwin/Makefile
* include/Makefile
* src/rtl/Makefile
- contrib/hbwin/hbdyn.ch
+ include/hbdyn.ch
- contrib/hbwin/hbdyn.c
+ src/rtl/hbdyn.c
- contrib/hbwin/win_dllc.c
+ src/rtl/hbdynhb.c
- contrib/hbwin/tests/testdll.c
+ tests/testdyn.c
- contrib/hbwin/tests/testdll.prg
+ tests/testdyn.prg
- contrib/hbwin/tests/testdll1.prg
+ tests/testdyn1.prg
- contrib/hbwin/hbdyn.h
* include/hbapi.h
* Moved dynamic library call related functions to
core (RTL).
* Windows specific test code (currently all) guarded
for platform.
* Changed default calling convention to cdecl.
Tests adaptd accordingly.
* Terminology change: 'dll' -> 'dynamic library'
; HB_DYNCALL() is now part of core Harbour, and it's
platform independent. It's platform (ABI) dependent though,
and currently x64 and x86/stdcall/syscall/cdecl
is supported and these were tested (except OS/2 syscall).
* contrib/hbwin/hbwin.h
* contrib/hbwin/win_misc.c
* contrib/hbwin/legacycd.c
* Low level hbwin_getprocaddress() function moved
to legacy file and made static.
* contrib/xpp/Makefile
* contrib/xpp/dllx.c
* contrib/xpp/xpp.hbc
+ Enabled DLL*() functions for all platforms.
- Deleted dependence on hbwin library.
* contrib/xpp/tests/testdll.prg
* Windows specific parts (currently the whole test) guarded
for platform.
* contrib/hbct/Makefile
- contrib/hbct/diskhb.prg
* contrib/hbct/disk.c
* contrib/xhb/Makefile
+ contrib/xhb/diskhb.prg
* GETVOLINFO() moved from hbct to xhb.
* ChangeLog
* Marked some TODO/TOFIX items as DONE.
109 lines
4.0 KiB
Plaintext
109 lines
4.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Dynamic library call demonstration. (on Windows)
|
|
*
|
|
* Copyright 2008 Viktor Szakats (harbour.01 syenar.hu)
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
#include "hbdyn.ch"
|
|
|
|
#define MAX_PATH 260
|
|
|
|
PROCEDURE Main()
|
|
LOCAL hLib
|
|
LOCAL cData
|
|
|
|
#if defined( __PLATFORM__WINDOWS )
|
|
|
|
#define MB_OK 0x00000000
|
|
#define MB_OKCANCEL 0x00000001
|
|
#define MB_ABORTRETRYIGNORE 0x00000002
|
|
#define MB_YESNOCANCEL 0x00000003
|
|
#define MB_YESNO 0x00000004
|
|
#define MB_RETRYCANCEL 0x00000005
|
|
#define MB_CANCELTRYCONTINUE 0x00000006
|
|
#define MB_ICONHAND 0x00000010
|
|
#define MB_ICONQUESTION 0x00000020
|
|
#define MB_ICONEXCLAMATION 0x00000030
|
|
#define MB_ICONASTERISK 0x00000040
|
|
#define MB_USERICON 0x00000080
|
|
#define MB_DEFBUTTON2 0x00000100
|
|
#define MB_DEFBUTTON3 0x00000200
|
|
#define MB_DEFBUTTON4 0x00000300
|
|
#define MB_SYSTEMMODAL 0x00001000
|
|
#define MB_TASKMODAL 0x00002000
|
|
#define MB_HELP 0x00004000
|
|
#define MB_NOFOCUS 0x00008000
|
|
#define MB_SETFOREGROUND 0x00010000
|
|
#define MB_DEFAULT_DESKTOP_ONLY 0x00020000
|
|
#define MB_TOPMOST 0x00040000
|
|
#define MB_RIGHT 0x00080000
|
|
#define MB_RTLREADING 0x00100000
|
|
|
|
? "MsgBox:", hb_dynCall( { "MessageBoxA", "user32.dll", HB_DYN_CALLCONV_STDCALL }, 0, "Hello world!", "Harbour sez", hb_bitOr( MB_OKCANCEL, MB_ICONEXCLAMATION, MB_HELP ) )
|
|
|
|
IF hb_FileExists( "libcurl.dll" )
|
|
hLib := hb_LibLoad( "libcurl.dll" )
|
|
? hb_dynCall( { "curl_version", hLib, HB_DYN_CTYPE_CHAR_PTR } )
|
|
hb_LibFree( hLib )
|
|
? hb_dynCall( { "curl_version", "libcurl.dll", HB_DYN_CTYPE_CHAR_PTR } )
|
|
ENDIF
|
|
|
|
/* Force Windows not to show dragged windows contents */
|
|
|
|
#define SPI_SETDRAGFULLWINDOWS 37
|
|
|
|
? "Full content drag: OFF"
|
|
? hb_dynCall( { "SystemParametersInfo", "user32.dll", HB_DYN_CALLCONV_STDCALL }, SPI_SETDRAGFULLWINDOWS, 0, 0, 0 )
|
|
Inkey( 0 )
|
|
|
|
? "Full content drag: ON"
|
|
? hb_dynCall( { "SystemParametersInfo", "user32.dll", HB_DYN_CALLCONV_STDCALL }, SPI_SETDRAGFULLWINDOWS, 1, 0, 0 )
|
|
Inkey( 0 )
|
|
|
|
/* Get some standard Windows folders */
|
|
|
|
#define CSIDL_APPDATA 0x001a /* <username>\Application Data */
|
|
#define CSIDL_ADMINTOOLS 0x0030 /* <username>\Start Menu\Programs\Administrative Tools */
|
|
|
|
hLib := hb_LibLoad( "shell32.dll" )
|
|
? "ValType( hLib ): ", ValType( hLib )
|
|
? "------"
|
|
cData := Space( MAX_PATH )
|
|
? "HB_DYNCALL (BOOL retval): ", hb_dynCall( { "SHGetSpecialFolderPathA", hLib, hb_bitOr( HB_DYN_CALLCONV_STDCALL, HB_DYN_CTYPE_BOOL ) }, 0, @cData, CSIDL_APPDATA, 0 )
|
|
? "@cData: ", cData
|
|
? "------"
|
|
? "HB_DYNCALL: ", hb_dynCall( { "SHGetFolderPathA", hLib, HB_DYN_CALLCONV_STDCALL }, 0, CSIDL_ADMINTOOLS, 0, 0, cData ) // WRONG
|
|
? "cData:", cData
|
|
? "------"
|
|
cData := Space( MAX_PATH )
|
|
? "HB_DYNCALL (PARAMS): ", hb_dynCall( { "SHGetSpecialFolderPathA", hLib, HB_DYN_CALLCONV_STDCALL, NIL, NIL, HB_DYN_CTYPE_BOOL }, 0, @cData, CSIDL_APPDATA, 0 )
|
|
? "@cData: ", cData
|
|
? "------"
|
|
cData := Space( MAX_PATH )
|
|
? "HB_DYNCALL: ", hb_dynCall( { "SHGetFolderPathA", hLib, HB_DYN_CALLCONV_STDCALL }, 0, CSIDL_ADMINTOOLS, 0, 0, @cData )
|
|
? "@cData: ", cData
|
|
? "------"
|
|
cData := Space( MAX_PATH )
|
|
? "HB_DYNCALL: ", hb_dynCall( { "SHGetFolderPathW", hLib, HB_DYN_CALLCONV_STDCALL }, 0, CSIDL_ADMINTOOLS, 0, 0, @cData )
|
|
? "@cData: ", cData
|
|
? "------"
|
|
cData := Space( MAX_PATH )
|
|
? "cData BEFORE: ", cData
|
|
? "HB_DYNCALL (MISSING @1): ", hb_dynCall( { "SHGetFolderPathA", hLib, HB_DYN_CALLCONV_STDCALL }, 0, CSIDL_ADMINTOOLS, 0, 0, cData )
|
|
? "cData AFTER: ", cData
|
|
? "------"
|
|
hb_LibFree( hLib )
|
|
|
|
#endif
|
|
|
|
RETURN
|