Как найти путь к рабочему столу, который видно...

[marina15056]

Дело в том, что у меня, как только что выяснилось, есть два рабочих стола: один нормальный, в папке С, а второй, который у меня ежедневно отображается, и расположен он в папке D, в моих документах. Так получилось, потому что очень давно, для удобства, я изменила месторасположение рабочего стола, и почему-то переустановка виндоса сохранила эту настройку. До сего дня меня всё устраивало, но у меня задача: вывести результат на рабочий стол.

Вот эта функция справилась блестяще:

uses ShlObj;
 
function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

только результат она вывела на рабочий стол из С папки. Поэтому я сразу даже найти не смогла.

Вопрос: если у других людей такая же штуковина, они просто не найдут нужного файла и решат, что программа не работает. Или такое встречается крайне редко, что и волноваться не стоит? Или всё таки можно как то найти путь к видимому рабочему столу?

Спасибо.

[Impuls1989]

Есть такая штука как Переменная окружения. По идее там должен хранится и путь к рабочему столу.

[marina15056]

вопрос решён

отвечу сама себе, вдруг кому-нибудь поможет

uses: registry;

var reg : TRegistry;
     path_dsktp: string;

begin
  reg := TRegistry.Create; 
  reg.RootKey := HKEY_CURRENT_USER;
  reg.LazyWrite := false;
  reg.OpenKey( 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
  path_dsktp:= reg.ReadString('Desktop');
  reg.CloseKey;
  reg.free;
end;