隔了很长时间没有碰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;
喜欢 
顶
难过
囧
围观
无聊
