文件名称:GetEnvironmentVariable
介绍说明－－下载内容均来自于网络，请自行研究使用
用 GetEnvironmentVariable 获取常用系统变量 -var
s: string
begin
s := GetCurrentDir
ShowMessage(s) {C:\Documents and Settings\wy\My Documents\RAD Studio\Projects}
SetCurrentDir( .. )
s := GetCurrentDir
ShowMessage(s) {C:\Documents and Settings\wy\My Documents\RAD Studio}
SetCurrentDir( ..\.. )
s := GetCurrentDir
ShowMessage(s) {C:\Documents and Settings\wy}
end
s: string
begin
s := GetCurrentDir
ShowMessage(s) {C:\Documents and Settings\wy\My Documents\RAD Studio\Projects}
SetCurrentDir( .. )
s := GetCurrentDir
ShowMessage(s) {C:\Documents and Settings\wy\My Documents\RAD Studio}
SetCurrentDir( ..\.. )
s := GetCurrentDir
ShowMessage(s) {C:\Documents and Settings\wy}
end
相关搜索： GetEnvironmentVariable
(系统自动生成,下载前可以参看下载内容)
下载文件列表
新建文件夹
..........\Project1.cfg
..........\Project1.dof
..........\Project1.dpr
..........\Project1.res
..........\Unit1.dcu
..........\Unit1.dfm
..........\Unit1.pas
..........\Project1.cfg
..........\Project1.dof
..........\Project1.dpr
..........\Project1.res
..........\Unit1.dcu
..........\Unit1.dfm
..........\Unit1.pas