Description: 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
To Search:
File list (Check if you may need any files):
新建文件夹
..........\Project1.cfg
..........\Project1.dof
..........\Project1.dpr
..........\Project1.res
..........\Unit1.dcu
..........\Unit1.dfm
..........\Unit1.pas
Download