|
|
| Line 1: |
Line 1: |
| How to add a parameter in your .ws file and pass it in to your program. In this example I need to know where the document folder is found for each user, usually the same location for all users. This then allows the Docs folder to be found anywhere on a network. I use a global variable to store the location. If not defined in the .ws file default it from the home location.
| | [[Add Workspace Parameter]] moved to its own page. (I'll remove this note in a little while. --[[User:Mikepeat|Mike]] 01:22, 5 December 2007 (CET)) |
| | |
| I just put this code near the bottom of the source (.src)
| |
| | |
| Function MyValueWS String sKey Returns String
| |
| String sValue
| |
| String sWorkspaceWSFile
| |
| Handle hoWorkspace hoIniFile
| |
| Move (phoWorkSpace(ghoApplication)) to hoWorkspace
| |
| Get psWorkspaceWSFile of hoWorkspace to sWorkspaceWSFile
| |
| Get Create U_cIniFile to hoIniFile
| |
| Set psFilename of hoIniFile to sWorkspaceWSFile
| |
| Get ReadString of hoIniFile 'Workspace' sKey ' ' to sValue
| |
| Function_Return sValue
| |
| End_Function
| |
| | |
| Get MyValueWS "DocsFolder" to gsDocsFolder
| |
| If gsDocsFolder eq "" Begin
| |
| Get psHome of (phoWorkspace(oApplication(Self))) to gsDocsFolder
| |
| Move (gsDocsFolder-"Docs") to gsDocsFolder
| |
| End
| |
| | |
| | |
| //The .ws file may look like this:
| |
| Workspace]
| |
| Home=..\
| |
| BitmapPath=.\Bitmaps
| |
| DataPath=c:\Members\CEPU
| |
| HelpPath=.\Help
| |
| ProgramPath=.\Programs
| |
| FileList=c:\Members\CEPU\Filelist.cfg
| |
| Description=MASS - Membership Administration Software Solution - CEPU
| |
| DocsFolder=c:\Test\Docs
| |
Add Workspace Parameter moved to its own page. (I'll remove this note in a little while. --Mike 01:22, 5 December 2007 (CET))
