f2480e5443
* contrib/make_b32_all.bat * contrib/make_vc_all.bat * contrib/Makefile - contrib/msql + contrib/hbmsql * contrib/hbmsql/common.mak * contrib/hbmsql/Makefile - contrib/libmisc + contrib/hbmisc - contrib/mysql + contrib/hbmysql - contrib/odbc + contrib/hbodbc - contrib/ole + contrib/hbole - contrib/pgsql + contrib/hbpgsql * contrib/hbpgsql/common.mak * contrib/hbpgsql/Makefile - contrib/samples + contrib/hbclipsm * contrib/hbclipsm/common.mak * contrib/hbclipsm/Makefile
19 lines
247 B
Plaintext
19 lines
247 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "common.ch"
|
|
|
|
function Test( cParam )
|
|
|
|
LOCAL cFile := "c:\harbour\bin\harbour.exe"
|
|
|
|
DEFAULT cParam TO cFile
|
|
|
|
? FilePath( cParam )
|
|
? FileBase( cParam )
|
|
? FileExt( cParam )
|
|
? FileDrive( cParam )
|
|
|
|
return nil
|