#include "FWCE.ch"
function Main()
MsgInfo( Test() )
return nil
#pragma BEGINDUMP
#include <hbapi.h>
#define UNDER_CE
#include <windows.h>
LPWSTR AnsiToWide( LPSTR );
HB_FUNC( TEST )
{
LPWSTR pW1 = AnsiToWide( "coredll.dll" );
LPWSTR pW2 = AnsiToWide( "LockFileEx" );
HINSTANCE hDLL = LoadLibrary( pW1 );
hb_retnl( ( LONG ) GetProcAddress( hDLL, pW2 ) );
hb_xfree( pW1 );
hb_xfree( pW2 );
FreeLibrary( hDLL );
}
#pragma ENDDUMP
Return to FiveWin for Pocket PC
Users browsing this forum: No registered users and 2 guests