Anderson.OL Posted January 23, 2006 Report Share Posted January 23, 2006 Haveria neste fórum uma alma caridosa capaz de compilar o arquivo .c abaixo e enviar-me o .obj por e-mail. Please!! #include #include #include #ifndef __FLAT__ extern HINSTANCE __hInstance; #else HINSTANCE __hInstance = NULL; #endif #ifdef UNICODE #define SW_NORMAL 1 #endif //----------------------------------------------------------------------------// #ifdef __FLAT__ HINSTANCE GetInstance( void ) { if( ! __hInstance ) __hInstance = GetModuleHandle( 0 ); return __hInstance; } #endif //----------------------------------------------------------------------------// #ifdef __HARBOUR__ CLIPPER GETINSTANCE( PARAMS ) #else CLIPPER GETINSTANC( PARAMS ) #endif { #ifdef __FLAT__ GetInstance(); #endif _retnl( ( LONG ) __hInstance ); } //----------------------------------------------------------------------------// #ifdef __HARBOUR__ CLIPPER POSTQUITMESSAGE( PARAMS ) // ( nExitCode ) #else CLIPPER POSTQUITME( PARAMS ) // SSAGE( nExitCode ) #endif { PostQuitMessage( _parni( 1 ) ); } //----------------------------------------------------------------------------// CLIPPER SHOWWINDOW( PARAMS ) { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) _retl( ShowWindow( hWnd, ( PCOUNT() > 1 ) ? _parni( 2 ): SW_NORMAL ) ); else _retl( FALSE ); } //----------------------------------------------------------------------------// CLIPPER SETFOCUS( PARAMS ) { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) SetFocus( hWnd ); } //----------------------------------------------------------------------------// #ifdef __FLAT__ CLIPPER _SETFOCUS( PARAMS ) // XBPP chapu { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) SetFocus( hWnd ); } #endif //----------------------------------------------------------------------------// CLIPPER GETFOCUS( PARAMS ) { _retnl( ( LONG ) GetFocus() ); } //----------------------------------------------------------------------------// #ifdef __FLAT__ #ifdef __HARBOUR__ CLIPPER SETFOREGROUNDWINDOW( PARAMS ) #else CLIPPER SETFOREGRO( PARAMS ) #endif { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) _retl( SetForegroundWindow( hWnd ) ); else _retl( FALSE ); } #endif //----------------------------------------------------------------------------// id=code>id=code>Seria eternamente grato a tal alma... Ajude um pobre aprendiz, lembre-se q um vc tb foi um!!! (rs) Abraços Nesse mundo nada se cria, tudo se compila<< //--Clipper 5.3b / FW 2.6 / Blinker 7.0 / WS 4.5 / RMAKE 1.4--// //-- Ignore the stars, I am novice. Editado por - Anderson.OL on 23/01/2006 13:27:53 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted January 23, 2006 Author Report Share Posted January 23, 2006 Haveria neste fórum uma alma caridosa capaz de compilar o arquivo .c abaixo e enviar-me o .obj por e-mail. Please!! #include #include #include #ifndef __FLAT__ extern HINSTANCE __hInstance; #else HINSTANCE __hInstance = NULL; #endif #ifdef UNICODE #define SW_NORMAL 1 #endif //----------------------------------------------------------------------------// #ifdef __FLAT__ HINSTANCE GetInstance( void ) { if( ! __hInstance ) __hInstance = GetModuleHandle( 0 ); return __hInstance; } #endif //----------------------------------------------------------------------------// #ifdef __HARBOUR__ CLIPPER GETINSTANCE( PARAMS ) #else CLIPPER GETINSTANC( PARAMS ) #endif { #ifdef __FLAT__ GetInstance(); #endif _retnl( ( LONG ) __hInstance ); } //----------------------------------------------------------------------------// #ifdef __HARBOUR__ CLIPPER POSTQUITMESSAGE( PARAMS ) // ( nExitCode ) #else CLIPPER POSTQUITME( PARAMS ) // SSAGE( nExitCode ) #endif { PostQuitMessage( _parni( 1 ) ); } //----------------------------------------------------------------------------// CLIPPER SHOWWINDOW( PARAMS ) { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) _retl( ShowWindow( hWnd, ( PCOUNT() > 1 ) ? _parni( 2 ): SW_NORMAL ) ); else _retl( FALSE ); } //----------------------------------------------------------------------------// CLIPPER SETFOCUS( PARAMS ) { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) SetFocus( hWnd ); } //----------------------------------------------------------------------------// #ifdef __FLAT__ CLIPPER _SETFOCUS( PARAMS ) // XBPP chapu { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) SetFocus( hWnd ); } #endif //----------------------------------------------------------------------------// CLIPPER GETFOCUS( PARAMS ) { _retnl( ( LONG ) GetFocus() ); } //----------------------------------------------------------------------------// #ifdef __FLAT__ #ifdef __HARBOUR__ CLIPPER SETFOREGROUNDWINDOW( PARAMS ) #else CLIPPER SETFOREGRO( PARAMS ) #endif { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) _retl( SetForegroundWindow( hWnd ) ); else _retl( FALSE ); } #endif //----------------------------------------------------------------------------// id=code>id=code>Seria eternamente grato a tal alma... Ajude um pobre aprendiz, lembre-se q um vc tb foi um!!! (rs) Abraços Nesse mundo nada se cria, tudo se compila<< //--Clipper 5.3b / FW 2.6 / Blinker 7.0 / WS 4.5 / RMAKE 1.4--// //-- Ignore the stars, I am novice. Editado por - Anderson.OL on 23/01/2006 13:27:53 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted January 23, 2006 Author Report Share Posted January 23, 2006 Haveria neste fórum uma alma caridosa capaz de compilar o arquivo .c abaixo e enviar-me o .obj por e-mail. Please!! #include #include #include #ifndef __FLAT__ extern HINSTANCE __hInstance; #else HINSTANCE __hInstance = NULL; #endif #ifdef UNICODE #define SW_NORMAL 1 #endif //----------------------------------------------------------------------------// #ifdef __FLAT__ HINSTANCE GetInstance( void ) { if( ! __hInstance ) __hInstance = GetModuleHandle( 0 ); return __hInstance; } #endif //----------------------------------------------------------------------------// #ifdef __HARBOUR__ CLIPPER GETINSTANCE( PARAMS ) #else CLIPPER GETINSTANC( PARAMS ) #endif { #ifdef __FLAT__ GetInstance(); #endif _retnl( ( LONG ) __hInstance ); } //----------------------------------------------------------------------------// #ifdef __HARBOUR__ CLIPPER POSTQUITMESSAGE( PARAMS ) // ( nExitCode ) #else CLIPPER POSTQUITME( PARAMS ) // SSAGE( nExitCode ) #endif { PostQuitMessage( _parni( 1 ) ); } //----------------------------------------------------------------------------// CLIPPER SHOWWINDOW( PARAMS ) { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) _retl( ShowWindow( hWnd, ( PCOUNT() > 1 ) ? _parni( 2 ): SW_NORMAL ) ); else _retl( FALSE ); } //----------------------------------------------------------------------------// CLIPPER SETFOCUS( PARAMS ) { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) SetFocus( hWnd ); } //----------------------------------------------------------------------------// #ifdef __FLAT__ CLIPPER _SETFOCUS( PARAMS ) // XBPP chapu { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) SetFocus( hWnd ); } #endif //----------------------------------------------------------------------------// CLIPPER GETFOCUS( PARAMS ) { _retnl( ( LONG ) GetFocus() ); } //----------------------------------------------------------------------------// #ifdef __FLAT__ #ifdef __HARBOUR__ CLIPPER SETFOREGROUNDWINDOW( PARAMS ) #else CLIPPER SETFOREGRO( PARAMS ) #endif { HWND hWnd = ( HWND ) _parnl( 1 ); if( IsWindow( hWnd ) ) _retl( SetForegroundWindow( hWnd ) ); else _retl( FALSE ); } #endif //----------------------------------------------------------------------------// id=code>id=code>Seria eternamente grato a tal alma... Ajude um pobre aprendiz, lembre-se q um vc tb foi um!!! (rs) Abraços Nesse mundo nada se cria, tudo se compila<< //--Clipper 5.3b / FW 2.6 / Blinker 7.0 / WS 4.5 / RMAKE 1.4--// //-- Ignore the stars, I am novice. Editado por - Anderson.OL on 23/01/2006 13:27:53 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.