0ad77a1373
* contrib/hbwin/hbwin.hbx
* contrib/hbwin/win_regc.c
* contrib/hbwin/win_reg.prg
* contrib/hbwin/tests/testreg.prg
+ Added WIN_REGDELETE() high-level function.
+ Added WIN_REGDELETEKEY() Windows API (non-1-to-1) wrapper.
+ Added WIN_REGDELETEVALUE() Windows API (non-1-to-1) wrapper.
* contrib/hbqt/hbmk2_qt.hbs
* contrib/hbqt/qtgui/hbqtgui.h
* contrib/hbqt/qtcore/hbqtcore.h
+ Cast HBQT_TYPE_ constants to unsigned int.
32 lines
811 B
Plaintext
32 lines
811 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbwin.ch"
|
|
|
|
PROCEDURE Main()
|
|
LOCAL tmp
|
|
|
|
? win_regDelete( "HKCU\_TEST\teszt" )
|
|
? win_regDelete( "HKCU\_TEST\" )
|
|
|
|
? ">" + win_GetCommandLineParam() + "<"
|
|
? ">" + wapi_GetCommandLine() + "<"
|
|
|
|
/* old API */
|
|
? ">" + hb_ValToStr( win_regGet( WIN_HKEY_CURRENT_USER, "Control Panel\Desktop", "Wallpaper" ) ) + "<"
|
|
|
|
/* new API */
|
|
? ">" + hb_ValToStr( win_regRead( "HKCU\Environment\PATH" ) ) + "<"
|
|
? ">" + hb_ValToStr( tmp := win_regRead( "HKCU\Control Panel\Desktop\Wallpaper" ) ) + "<"
|
|
? ">" + hb_ValToStr( win_regRead( "" ) ) + "<"
|
|
|
|
? win_regWrite( "HKCU\Control Panel\Desktop\Wallpaper", "harbour.bmp" )
|
|
? win_regRead( "HKCU\Control Panel\Desktop\Wallpaper" )
|
|
|
|
Inkey( 0 )
|
|
|
|
? win_regWrite( "HKCU\Control Panel\Desktop\Wallpaper", tmp )
|
|
|
|
RETURN
|