[Drongo]

Но это не правильно в любом случае, уж лучше тогда определять программно учётку пользователя и\или рабочий стол. Для скриптов AVZ писали определение рабочего стола через реестр, код нашёл в инете, принцип такой же. При запуске читаем ветку реестра

Код:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

ключ Desktop. Получаете истинное значение ключа, сохраняете его в переменную и используете как угодно

Код:

...
...
uses Registry;
...
function GetDesktopDir:String;
var reg:TRegistry;
begin
  Result:='';
  reg:=TRegistry.Create(KEY_READ);
  try
    reg.RootKey:=HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False) then
       Result:=reg.ReadString('Desktop');
    reg.CloseKey;
  finally
    reg.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(GetDesktopDir);
end;
...

Ещё нашёл такой, но с делфи знаком поверхностно, так что если что - не обессудьте.

Код:

uses
  SHFolder;
var
path: array [0 .. MAX_PATH] of char;
begin
SUCCEEDED(SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, @path[0]));
end;

P.S. Проверяйте перед открытием наличие папки "Новая папка", иначе если её не будет...