利用注冊表獲取桌面路徑.

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;

//函數返回的字符串就是路徑;