Paul,
Thank you for sharing.
When I create my FPW's, I set the RESOURCE and TITLE as well.
Setting the RESOURCE protects the other environments if the FoxUser table
corrupts. It also creates a unique history for that project in the Command
window.
Setting the TITLE helps me find the different project in the Windows Task
Bar.
Tracy Pearson
PowerChurch Software
Paul H. Tarver wrote on 2017-06-16:
> Back in May, I asked a question about running multiple instances of VFP.
I
> know now it was kind of a dumb question, but the response from everyone
in
> the group inspired me to work up a small program to do exactly what I
needed
> done when setting up a new project. Since you all were part of my
solution I
> thought I'd share. Granted, this is slapped together and there are
probably
> a thousand different ways to make this better, so be gentle! J
>
>
> The premise is to have a fast way to create a shortcut to a project as
well
> as create a .FPW file at the same time. So I wrote this program, compiled
it
> and added a short cut to my desktop so I can run it after a new project
file
> is created in whatever project folder I want to use. It's designed to
work
> on both 32 and 64 bit Windows and you can put anything you want between
the
> Text..Endtext lines and it will be added to the .FPW file. The .FPW and
.LNK
> files have the same name to keep it simple. Once a project is completed
and
> I move it to my archive folders, I can re-run the program and choose the
> project file in the new storage folder and the shortcut and the .FPW are
> re-created to update the paths.
>
>
> I've been using this for a couple of weeks now and it works great for
VFP9
> and I THINK it will work with VFP6, but I haven't tried it yet. I chose
to
> comment out the lines that reference the icon selection because the
default
> was fine, but I left them in for future reference. The WScript.Shell code
to
> actually create the shortcut I found in the Microsoft knowledgebase and I
> just updated the variable names.
>
>
> *!********************************************************************
>
> LOCAL lcArguments, lcConfigFPW, lcFPWFile, lcProjectFile, lcProjectPath,
> lcShortCutPath
>
> LOCAL lcTargetPath, lcWorkingDir, loMyShortCut
>
>
> lcProjectFile = GETFILE('PJX', '', 'Select', 0, 'Select project file...')
>
> lcProjectPath = JUSTPATH(lcProjectFile)
>
>
> IF !EMPTY(lcProjectFile)
>
>
> TEXT TO lcConfigFPW TEXTMERGE NOSHOW
>
> SCREEN = OFF
>
> PATH = .\DATA; .\FORMS; .\GRAPHICS; .\LIBS; .\MENUS; .\PROGRAMS;
> .\REPORTS
>
>
> DEFAULT = "<<lcProjectPath>>"
>
> COMMAND = MODIFY PROJECT "<<lcProjectFile>>"
>
>
> TMPFILES=c:\temp
>
> EDITWORK=c:\temp
>
> SORTWORK=c:\temp
>
> PROGWORK=c:\temp
>
> ENDTEXT
>
>
> DO CASE
>
>
> CASE DIRECTORY("C:\Program Files (x86)", 1) = .T. && Is
64-Bit
> Operating System
>
>
> lcFPWFile = ADDBS(ALLTRIM(lcProjectPath)) +
> 'start-vfp9x64.fpw'
> lcShortCutPath = ADDBS(ALLTRIM(lcProjectPath)) +
> 'start-vfp9x64.lnk'
> lcTargetPath = "C:\Program Files (x86)\Microsoft Visual
> FoxPro 9\vfp9.exe"
>
> * lcIconLocation = "C:\Program Files (x86)\Microsoft
Visual
> FoxPro 9\vfp9.exe"
> lcArguments = '-C' + '"' + lcFPWFile + '"'
>
> lcWorkingDir = "C:\Program Files (x86)\Microsoft Visual
> FoxPro 9"
>
>
> CASE DIRECTORY("C:\Program Files (x86)", 1) = .F. && Is
32-Bit
> Operating System
>
>
> lcFPWFile = ADDBS(ALLTRIM(lcProjectPath)) +
> 'start-vfp9x32.fpw'
> lcShortCutPath = ADDBS(ALLTRIM(lcProjectPath)) +
> 'start-vfp9x32.lnk'
> lcTargetPath = "C:\Program Files\Microsoft Visual
FoxPro
> 9\vfp9.exe"
>
> * lcIconLocation = "C:\Program Files\Microsoft Visual
FoxPro
> 9\vfp9.exe"
> lcArguments = '-C' + '"' + lcFPWFile + '"'
>
> lcWorkingDir = "C:\Program Files\Microsoft Visual
FoxPro
> 9"
>
>
> ENDCASE
>
>
> STRTOFILE(lcConfigFPW, lcFPWFile)
>
>
> loWsh = CREATEOBJECT("WScript.Shell")
>
> loMyShortCut = loWsh.CreateShortcut(lcShortCutPath)
>
> loMyShortCut.WindowStyle = 7 && Minimized 0=Maximized 4=Normal
> * loMyShortcut.IconLocation = home() + "wizards\graphics\builder.ico"
> loMyShortCut.TargetPath = lcTargetPath
>
> loMyShortCut.Arguments = lcArguments
>
> loMyShortCut.WorkingDirectory = lcWorkingDir
>
> loMyShortCut.SAVE
>
>
> ENDIF
>
>
> RETURN
>
> *!********************************************************************
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
