485
edits
Add Workspace Parameter: Difference between revisions
m
Use RefClass instead of the legacy U_ notation
(Moved here from Category:How To page) |
m (Use RefClass instead of the legacy U_ notation) |
||
| (6 intermediate revisions by 4 users not shown) | |||
| Line 3: | Line 3: | ||
I just put this code near the bottom of the source (.src) | I just put this code near the bottom of the source (.src) | ||
<source lang="vdf"> | |||
Function MyValueWS String sKey Returns String | Function MyValueWS String sKey Returns String | ||
String sValue | String sValue | ||
String sWorkspaceWSFile | String sWorkspaceWSFile | ||
Handle hoWorkspace hoIniFile | Handle hoWorkspace hoIniFile | ||
Move (phoWorkSpace(ghoApplication)) to hoWorkspace | Move (phoWorkSpace(ghoApplication)) to hoWorkspace | ||
Get psWorkspaceWSFile of hoWorkspace to sWorkspaceWSFile | Get psWorkspaceWSFile of hoWorkspace to sWorkspaceWSFile | ||
Get Create | Get Create (RefClass(cIniFile)) to hoIniFile | ||
Set psFilename of hoIniFile to sWorkspaceWSFile | If (hoIniFile) Begin | ||
Set psFilename of hoIniFile to sWorkspaceWSFile | |||
Get ReadString of hoIniFile 'Workspace' sKey ' ' to sValue | |||
Send Destroy of hoIniFile | |||
End | |||
Function_Return sValue | Function_Return sValue | ||
End_Function | End_Function | ||
| Line 20: | Line 25: | ||
Move (gsDocsFolder-"Docs") to gsDocsFolder | Move (gsDocsFolder-"Docs") to gsDocsFolder | ||
End | End | ||
</source> | |||
Add a new DocsFolder option to the .ws file like so: | |||
<source lang="ini"> | |||
//The .ws file may look like this: | //The .ws file may look like this: | ||
Workspace] | [Workspace] | ||
Home=..\ | Home=..\ | ||
BitmapPath=.\Bitmaps | BitmapPath=.\Bitmaps | ||
| Line 32: | Line 39: | ||
Description=MASS - Membership Administration Software Solution - CEPU | Description=MASS - Membership Administration Software Solution - CEPU | ||
DocsFolder=c:\Test\Docs | DocsFolder=c:\Test\Docs | ||
</source> | |||
[[Category: | [[Category:Tutorials]] | ||