HMGforum.com

andyglezl wrote: with MsgInfo( STR (VolSerial("C:") ) I get "2696837951".
So I'm not clear because HDGETSERIAL gives me another
different number???. I think I'll have to change anyway.

andyglezl wrote:con MsgInfo( STR( VolSerial( "C:" ) ) obtengo "2696837951".
Entonces no me queda claro porque HDGETSERIAL me da otro
numero diferente ???. Creo que tendre que cambiar de todos modos.

Gracias
-------------------------------------------------------------------
with MsgInfo( STR (VolSerial("C:") ) I get "2696837951".
So I'm not clear because HDGETSERIAL gives me another
different number???. I think I'll have to change anyway.

thanks

andyglezl wrote: Ahora me falta resolver la funcion MAKELAYER()
Now I need to solve MAKELAYER() function

andyglezl wrote:Previous tests indicate that: A0BE7B3F = 2696837951 = -1598129345

andyglezl wrote:OK, Ya me funciona el ejecutable. ( quite la funcion MAKELAYER )
La funcion HDGETSERIAL("c:\") la he estado utilizando desde hace años pero no recuerdo
de donde la obtuve, ademas esta en C y siempre despliega el "warning" al compilar.
---------------------------------------------------------------------------------------
OK, I already runs the executable. (Remove the function MAKELAYER)
The function HDGETSERIAL ("c: \") I've been using for years but can not remember
where I got it, also is in C and always displays the "warning" to compile.
---------------------------------------------------------------------------------------
Harbour 3.2.0dev (r1307180024)
Copyright (c) 1999-2013, http ://harbour-project.org/
conad.prg: In function 'HB_FUN_HDGETSERIAL':
conad.prg:8007:5: warning: passing argument 1 of 'Get_SerialNumber' discards 'const' qualifier from pointer target type [enabled by default]
conad.prg:7998:19: note: expected 'char *' but argument is of type 'const char *'
conad.prg: In function 'HB_FUN_MAKELAYER':
conad.prg:8239:9: warning: implicit declaration of function 'SetLayeredWindowAttributes' [-Wimplicit-function-declaration]
Warning: resolving _SetLayeredWindowAttributes by linking to _SetLayeredWindowAttributes@16
Use --enable-stdcall-fixup to disable these warnings
Use --disable-stdcall-fixup to disable these fixups
-----------------------------------------------------------------------
Ahora me falta resolver la funcion MAKELAYER()
Now I need to solve MAKELAYER() function

HDGETSERIAL() // -1598129345
----------------------------------------------------------
VOL en D.O.S. // A0BE7B3F
NTOC (VolSerial ("C:"), 16) // A0BE7B3F
STR( VolSerial( "C:" ) ) // 2696837951
NTOC( 2696837951, 16 ) ) // A0BE7B3F
NumToHex( VolSerial( "C:" ) ) // A0BE7B3F
NumToHex( HDGETSERIAL("c:\") ) // FFFFFFFFA0BE7B3F
-------------------------------------------------------------------

    unsigned long Get_SerialNumber(char* RootPathName)
    {
    unsigned long SerialNumber;
    GetVolumeInformation(RootPathName, NULL, 0, &SerialNumber, NULL, NULL, NULL, 0);
    return SerialNumber;
    }

    HB_FUNC( HDGETSERIAL)
    {
    hb_retnl( Get_SerialNumber(hb_parc(1)) );
    }
    ---------------------------------------------
    #define WS_EX_LAYERED 0x80000
    #define LWA_COLORKEY 1
    #define LWA_ALPHA 2

    WINUSERAPI
    BOOL
    WINAPI
    SetLayeredWindowAttributes(
        HWND hwnd,
        COLORREF crKey,
        BYTE bAlpha,
        DWORD dwFlags);

    HB_FUNC ( GETWINDOWLONG )
    {
       hb_retnl( ( LONG ) GetWindowLong( ( HWND ) hb_parnl( 1 ), hb_parni( 2 ) ) );
    }

    HB_FUNC ( SETWINDOWPOS )
    {
        HWND hwnd           = (HWND) hb_parnl(1);    // handle to window or control
        HWND hWndInsertAfter= (HWND) hb_parnl(2);    // placement-order handle
        int X               =        hb_parni(3);    // horizontal position
        int Y               =        hb_parni(4);    // vertical position
        int cx              =        hb_parni(5);    // width
        int cy              =        hb_parni(6);    // height
        UINT uFlags         = (UINT) hb_parni(7);    // window-positioning options

        hb_retl( (BOOL) SetWindowPos( hwnd, hWndInsertAfter, X, Y, cx, cy, uFlags ) );
    }

    HB_FUNC ( SETLAYEREDWINDOWATTRIBUTES )
    {

    HWND hwnd             = (HWND)     hb_parnl(1);    // handle to window or control
    COLORREF crKey        = (COLORREF) hb_parnl(2);
    BYTE bAlpha           = (BYTE)     hb_parni(3);
    DWORD dwFlags         = (DWORD)    hb_parni(4);


    hb_retl( (BOOL) SetLayeredWindowAttributes(hwnd, crKey, bAlpha,  dwFlags) );

    }
    HB_FUNC (MAKELAYER)
    {
    HWND hwnd             = (HWND)     hb_parnl(1);
    COLORREF crKey        = (COLORREF) hb_parnl(2);

        SetWindowLong (hwnd , GWL_EXSTYLE ,
        GetWindowLong (hwnd , GWL_EXSTYLE ) | WS_EX_LAYERED ) ;
        SetLayeredWindowAttributes(hwnd, 0, crKey, LWA_ALPHA);
    }

esgici wrote: It's impossible to know why it gives a different number, without seeing source code of HDGETSERIAL

andyglezl wrote: conad.prg: In function 'HB_FUN_HDGETSERIAL':
conad.prg:8007:5: warning: passing argument 1 of 'Get_SerialNumber' discards 'const' qualifier from pointer target type [enabled by default]
conad.prg:7998:19: note: expected 'char *' but argument is of type 'const char *'

andyglezl wrote: 
HB_FUNC( HDGETSERIAL)
    {
    hb_retnl( Get_SerialNumber(hb_parc(1)) );
    }

HB_FUNC( HDGETSERIAL)
    {
    hb_retnl( Get_SerialNumber((char *) hb_parc(1)) );
    }

andyglezl wrote:conad.prg: In function 'HB_FUN_MAKELAYER':
conad.prg:8239:9: warning: implicit declaration of function 'SetLayeredWindowAttributes' [-Wimplicit-function-declaration]

#define _WIN32_WINNT 0x0500

SET WINDOW <cFormName> TRANSPARENT TO COLOR <aColor>