Search found 1 match

by sperceptivas
Tue Jul 04, 2006 5:30 am
Forum: FiveWin for Harbour/xHarbour
Topic: Shortcut (*.lnk) from FWH
Replies: 12
Views: 5474

.Lnk for FWH

I don't use Fivewin, but i hpoe this helps...

//****
FUNCTION CreateAppShorcut( cName, cLetter )
//****
LOCAL oError, oShell, oDeskTop, cDeskTop, cCurDir, cWorkingDir, nRET
//
cName := HB_OemToAnsi( cName )
cCurDir := UPPER( CURDIR() )
IF ( cWorkingDir := CURDRIVE() ) == "\"
cWorkingDir ...