fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-05-16 01:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbwin/tests/testsvc.prg
    ! Minor adjustment.
This commit is contained in:
Viktor Szakats
2010-05-15 23:28:28 +00:00
parent 1457fbc221
commit cd2bf669a6
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -17,11 +17,15 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-05-16 01:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbwin/tests/testsvc.prg
! Minor adjustment.
2010-15-15 16:03 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/hbqt_hbqplaintextedit.cpp
* contrib/hbide/ideedit.prg
! Fixed more artifacts about reverse selection/copy operations.
2010-05-16 00:56 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbwin/Makefile
- contrib/hbwin/win_srv.c

4
harbour/contrib/hbwin/tests/testsvc.prg
View File

@@ -75,7 +75,7 @@ PROCEDURE Main( cMode )
IF win_serviceDelete( _SERVICE_NAME )
? "Service has been deleted"
ELSE
? "Error deleting service:" + hb_ntos( wapi_GetLastError() )
? "Error deleting service: " + hb_ntos( wapi_GetLastError() )
ENDIf
EXIT
@@ -96,7 +96,7 @@ PROCEDURE Main( cMode )
PROCEDURE SrvMain()
LOCAL n := 1
LOCAL fhnd := hb_FCreate( hb_dirBase() + "testsrv.out", FC_NORMAL, FO_DENYNONE + FO_WRITE )
LOCAL fhnd := hb_FCreate( hb_dirBase() + "testsvc.out", FC_NORMAL, FO_DENYNONE + FO_WRITE )
FWrite( fhnd, "Startup" + hb_osNewLine() )