Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating Launch Icons
Message
From
03/05/2002 19:28:46
Mike Smith
Doncaster Office Services
Oakville, Ontario, Canada
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Creating Launch Icons
Miscellaneous
Thread ID:
00652682
Message ID:
00652682
Views:
61
Currently I am using the VFP Installer which does a good job of putting the right pieces together to make up an Inatallation CD. But one thing it doesn't do is create the Launch Icon.

Now I got poking around in this before and I learned about the Windows Scripting Host and I got code as below to work for Windows 95/98:

OWSH = CREATEOBJECT("wscript.shell")
CDESKPATH = OWSH.SPECIALFOLDERS("desktop")
OSHORT = OWSH.CREATESHORTCUT(CDESKPATH+"\TIME TABLE VISUALISER 2.0.LNK")
TP = HDRIV + "\TTVIZ.EXE"
OSHORT.TARGETPATH = TP
OSHORT.WORKINGDIRECTORY = HDRIV
OSHORT.ICONLOCATION = "TTVIZ.ico"
OSHORT.SAVE

In this case, the operator enters the variable HDRIV for the directory that they installed to and the code above does the rest.

But it does not work for Windows NT.

Has anyone got invoved with the Windows Scripting Host for Windows NT and how this should be rewritten?

Mike Smith
Next
Reply
Map
View

Click here to load this message in the networking platform