From cd2bf669a6dd77b73e41f2fdd8dac0cd2582cad2 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 15 May 2010 23:28:28 +0000 Subject: [PATCH] 2010-05-16 01:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/tests/testsvc.prg ! Minor adjustment. --- harbour/ChangeLog | 6 +++++- harbour/contrib/hbwin/tests/testsvc.prg | 4 ++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b8794fcc45..0e6ae3218c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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 diff --git a/harbour/contrib/hbwin/tests/testsvc.prg b/harbour/contrib/hbwin/tests/testsvc.prg index 12d408149a..564f98eb40 100644 --- a/harbour/contrib/hbwin/tests/testsvc.prg +++ b/harbour/contrib/hbwin/tests/testsvc.prg @@ -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() )