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;
//函數返回的字符串就是路徑;
|