用Delphi获取路径的方法是什么？delphi如何获得指定路径文件的文件名?

隔了很长时间没有碰Delphi，就连最最基本都忘光了！看来“温故而知新”、“学如逆水行舟，不进则退”是有绝对的道理！

就这获取路径的东西，都折腾了很久，是自己忘光了？还是自己大意呢？
不是忘记使用USE SHELLAPI，几时缺少字母，哎。。。。瞎折腾

use shellapi

procedure TForm1.Button1Click(Sender: TObject);
var
adr: array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(adr,MAX_PATH); //获取SYSTEM路径
//GetWindowsDirectory(adr,MAX_PATH); //获取WINDOWSM路径
ShowMessage(adr); //显示C:\Windows\System32
end;