mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-01 19:50:17 +00:00
127 lines
No EOL
7.1 KiB
Text
127 lines
No EOL
7.1 KiB
Text
The [[ENVIRON$]] function returns a [[STRING]] environmental value from '''Windows'''' environmental settings list.
|
|
|
|
|
|
{{PageSyntax}}
|
|
: {{Parameter|setting$}} = [[ENVIRON$]]({{{Parameter|listIndex%}}|{{Parameter|systemID$}}})
|
|
|
|
|
|
{{PageDescription}}
|
|
* The function can use an [[INTEGER]] {{Parameter|listIndex%}} value or [[STRING]] {{Parameter|systemID$}} parameter.
|
|
* {{Parameter|listIndex%}} refers to the number order of the environmental list. Returns are not in any particular numerical order.
|
|
* {{Parameter|systemID$}} is the specific [[STRING]] parameter requested. Returns only the specified environmental [[STRING]] setting:
|
|
** "BLASTER" = current Sound Blaster settings if installed.
|
|
** "COMPUTERNAME" or "USERDOMAIN" = OEM PC serial number or the computer name assigned by owner.
|
|
** "HOMEDRIVE" or "SystemDrive" = Windows root drive, normally C: on single partition drives.
|
|
** "HOMEPATH" = current user's Administrator or the single user's "OWNER" folder path.
|
|
** "OS" = Windows Operating System version. Often WindowsNT in modern computers.
|
|
** "PATH" = full path setting that Windows uses to look for file extensions in PATHEXT below.
|
|
** "PATHEXT = Windows extensions used: COM, EXE, BAT, CMD, VBS, VBE, JS, JSE, WSF, WSH, MSC
|
|
** "PROCESSOR_ARCHITECTURE" = x86 for 32 or 64 bit.
|
|
** "PROGRAMFILES" = path to ''Program files'' folder, normally "C:\PROGRAM FILES"
|
|
** "PROMPT" = normally "$P$G" on Windows NT.
|
|
** "SYSTEMROOT" or "windir" = path to the Windows folder including the drive letter like "C:\WINDOWS"
|
|
** "TEMP" or "TMP" = path to TEMP folder. "C:\TEMP" or the user specific temp folder on later versions.
|
|
** "USERNAME" = current Administrator name or "OWNER".
|
|
: ''Note:'' There are other possible system settings that are not listed or never used on older versions. Run ''Example 1'' below for a complete list in your system.
|
|
<!-- Sentence removed for being unclear/needs revision: * The OS in Win 9X or ME can be found in the "PROMPT" parameter ID. Returns are limited in Win 9X and ME. -->
|
|
* ''Note:'' '''QB64''' may not return the same environment list as QBasic or SET did in DOS.
|
|
|
|
|
|
{{PageExamples}}
|
|
''Example 1:'' Viewing the list of environmental parameter settings using a counter loop like SET does in DOS.
|
|
|
|
{{CodeStart}} '' ''
|
|
{{Cl|DO}}
|
|
i = i + 1
|
|
setting$ = {{Cl|ENVIRON$}}(i) ' get a setting from the list
|
|
{{Cl|PRINT}} setting$
|
|
{{Cl|IF...THEN|IF}} i {{Cl|MOD}} 20 = 0 {{Cl|THEN}} {{Cl|PRINT}} "Press a key": {{Cl|SLEEP}}: {{Cl|CLS}}
|
|
{{Cl|LOOP}} {{Cl|UNTIL}} setting$ = ""
|
|
{{CodeEnd}}
|
|
{{OutputStart}}
|
|
ALLUSERSPROFILE=C:\ProgramData
|
|
COMPUTERNAME=TED-LAPTOP
|
|
ComSpec=C:\WINDOWS\system32\cmd.exe
|
|
HOMEDRIVE=C:
|
|
HOMEPATH=\Users\Ted
|
|
LOCALAPPDATA=C:\Users\Ted\AppData\Local
|
|
OS=Windows_NT
|
|
Path=C:\PROGRAMDATA\ORACLE\JAVA\JAVAPATH;C:\WINDOWS\SYSTEM32;C:\WINDOWS;
|
|
C:\WINDOWS\SYSTEM32\WBEM;C:\WINDOWS\SYSTEM32\WINDOWSPOWERSHELL\V1.0\;C:\
|
|
WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\System32
|
|
\WindowsPowerShell\v1.0\
|
|
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC
|
|
PROCESSOR_ARCHITECTURE=x86
|
|
PROCESSOR_IDENTIFIER=x86 Family 6 Model 14 Stepping 8, GenuineIntel
|
|
ProgramFiles=C:\Program Files
|
|
PROMPT=$P$G
|
|
PSModulePath=C:\WINDOWS\system32\WindowsPowerShell\v1.0\Modules\
|
|
SystemRoot=C:\WINDOWS
|
|
TEMP=C:\Users\TED\AppData\Local\Temp
|
|
TMP=C:\Users\TED\AppData\Local\Temp
|
|
USERDOMAIN=TED-LAPTOP
|
|
USERNAME=Ted
|
|
USERPROFILE=C:\Users\Ted
|
|
{{OutputEnd}}
|
|
:''Note:'' Windows environmental settings are listed alphabetically, 20 at a time. '''QB64 may not read all of them or may return an empty string.''' The settings above were returned with SET in DOS. PROMPT returned nothing where SET returned $P$G.
|
|
|
|
|
|
''Example 2:'' Creating a shortcut on a user's desktop for QB64.EXE using the program's icon. Must be run in program's folder to work!
|
|
{{CodeStart}}
|
|
'=== Enter the EXE file and ICON or BMP image for the shortcut.
|
|
|
|
Program$ = "QB64.EXE" '<<<<<<<<<< Enter the '''exact''' program name for shortcut
|
|
ICON$ = "QB64ICON.BMP" '<<<<<<<<<< Enter icon or bitmap to use from program's folder
|
|
|
|
DeskTopShortcut Program$, ICON$
|
|
|
|
{{Cl|END}} '====== END DEMO CODE ======
|
|
|
|
{{Cl|SUB}} DeskTopShortcut (Program$, ICON$)
|
|
f = {{Cl|FREEFILE}}
|
|
{{Cl|SHELL}} {{Cl|_HIDE}} "CD > PRGMDIR.INF" 'get the current program path
|
|
{{Cl|OPEN}} "PRGMDIR.INF" {{Cl|FOR (file statement)|FOR}} {{Cl|INPUT (file mode)|INPUT}} {{Cl|AS}} #f
|
|
{{Cl|LINE INPUT (file statement)|LINE INPUT}} #f, PATH$
|
|
{{Cl|CLOSE}} #f
|
|
{{Cl|KILL}} "PRGMDIR.INF"
|
|
PATH$ = PATH$ + "\": FILE$ = PATH + Program$
|
|
PRINT PATH$ 'DEMO print
|
|
A$ = {{Cl|ENVIRON$}}("HOMEDRIVE") '=== Get Current User setting from Environment.
|
|
B$ = {{Cl|ENVIRON$}}("HOMEPATH")
|
|
C$ = A$ + B$ 'shortcut to user's desktop if found
|
|
|
|
{{Cl|IF...THEN|IF}} C$ = "" {{Cl|THEN}} C$ = {{Cl|ENVIRON$}}("ALLUSERSPROFILE") 'try desktop for all users
|
|
PRINT C$ 'DEMO print
|
|
URLFILE$ = {{Cl|MID$}}(Program$, 1, {{Cl|INSTR}}(Program$, ".")) + "URL" 'change EXE to URL
|
|
|
|
{{Cl|IF...THEN|IF}} C$ > "" {{Cl|THEN}}
|
|
SHORTCUT$ = C$ + "\Desktop\" + URLFILE$ 'create filename for the desktop
|
|
{{Cl|ELSE}} SHORTCUT$ = PATH$ + URLFILE$ 'if all else fails put in program folder
|
|
{{Cl|END IF}}
|
|
PRINT SHORTCUT 'DEMO print
|
|
{{Cl|OPEN}} SHORTCUT$ {{Cl|FOR (file statement)|FOR}} {{Cl|APPEND}} {{Cl|AS}} #f
|
|
{{Cl|IF...THEN|IF}} {{Cl|LOF}}(f) {{Cl|THEN}} {{Cl|CLOSE}} #f: {{Cl|EXIT SUB}} '=== if filesize is NOT Zero don't overwrite!
|
|
|
|
Q$ = {{Cl|CHR$}}(34) '=== Write URL Shortcut file info.
|
|
{{Cl|PRINT (file statement)|PRINT}} #f, "[InternetShortcut]" 'URL type
|
|
{{Cl|PRINT (file statement)|PRINT}} #f, "URL=" + Q$ + "file://" + FILE$ + Q$ 'URL program file
|
|
{{Cl|PRINT (file statement)|PRINT}} #f, "WorkingDirectory=" + Q$ + PATH$ + Q$ 'Working path
|
|
{{Cl|PRINT (file statement)|PRINT}} #f, "IconIndex = " + Q$ + "0" + Q$ '0 is first index
|
|
{{Cl|PRINT (file statement)|PRINT}} #f, "IconFile = " + Q$ + PATH$ + ICON$ + Q$ 'Icon path in working folder
|
|
{{Cl|CLOSE}} #f
|
|
{{Cl|END SUB}} '' ''
|
|
{{CodeEnd}}
|
|
{{small|Adapted from code by Dav}}
|
|
: ''Explanation:'' The SUB program finds the current program's path and user's desktop path. It then creates the shortcut on the desktop with a program icon. The custom icon should be in the program's folder. If an environmental path is not found, the shortcut is placed in the program's folder. The SUB can be added to any program.
|
|
:{{Text|'''NOTE:''' A temorary file named PRGMDIR.INF is created and deleted in the example above.}}
|
|
|
|
|
|
''See also:''
|
|
* [[_DEVICES]], [[_DEVICE$]]
|
|
* [[_LASTBUTTON]], [[_OS$]]
|
|
* [[ENVIRON]] {{text|(statement)}}
|
|
* [[Windows Environment]]
|
|
* [[Windows Libraries#Windows User|Windows User Paths Library]]
|
|
|
|
|
|
{{PageNavigation}} |