Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can't get Setup to create a Menu option
Message
 
To
14/11/2000 06:14:12
Adam Skowronski
Custom Designed Systems
Miami, Florida, United States
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Miscellaneous
Thread ID:
00441492
Message ID:
00441524
Views:
14
Not sure about the Program Manager problem, but desktop shortcuts can be handled easily by calling code from the post setup executable option. I use the Windows Scripting Host to create the shortcut. Here is a generic routine I use for this purpose:

LOCAL oShortcut, cDesktopDir, oLnk, lcHomeDir, lcEXE

*- Get the application startup directory
lcHomeDir = JUSTPATH(SYS(16, 0))
= ADIR(aFiles, '*.exe')

*- Get name of application EXE by scanning files in application directory
FOR i = 1 TO ALEN(aFiles, 1)
IF aFiles[i, 1] != 'STARTUP.EXE' .AND. aFiles[i, 1] != 'SHORTCUTS.EXE'
lcEXE = aFiles[i, 1]
EXIT
ENDIF
NEXT

*- Create shortcut file
oShortcut = CREATEOBJECT('Wscript.Shell')
cDesktopDir = oShortcut.SpecialFolders('Desktop')
oLnk = oShortcut.CreateShortCut(cDesktopDir + '\\' + SUBSTR(lcEXE, 1, (LEN(lcEXE) - 4)) + '.lnk')

*- Is there a startup program?
*- Point shortcut at file
IF FILE(lcHomeDir + '\STARTUP.EXE')
oLnk.TargetPath = lcHomeDir + '\STARTUP.EXE'
ELSE
oLnk.TargetPath = lcHomeDir + '\' + lcEXE
ENDIF

oLnk.WorkingDirectory = lcHomeDir
oLnk.SAVE()

Charlie
Previous
Reply
Map
View

Click here to load this message in the networking platform