Information générale
Catégorie:
Installation et configuration
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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement