请问如何获得桌面所在路径(20分)

请问如何获得桌面所在路径，可否直接通过API函数或其它得到？

uses shlobj;
procedure TForm1.Button1Click(Sender: TObject);
var PIDLItemIDList;
StartupDirectory:Array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);//获得桌面的Itemidlist
SHGetPathFromIDList(PIDL,StartupDirectory);//获得桌面路径
ShowMessage(StartupDirectory);
end;

注册表也可以。

接受答案了.