function GetDesktopDir: String;
var
R: TRegistry;
begin
R := TRegistry.Create;
R.OpenKey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\SHELL FOLDERS', FALSE);
Result := R.ReadString('DESKTOP');
Result := UpperCase(Result);//轉換為大小寫,可以不使用;
R.Free;
end;
//函數返回的字符串就是路徑;
本文地址：http://com.8s8s.com/it/it4606.htm