[NickDang]

LilLoco, Спасибо! то что надо)
---
Любезный, извини, в delphi я новичок )

[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. Проверяйте перед открытием наличие папки "Новая папка", иначе если её не будет...

[Любезный]

При запуске читаем ветку реестра »

Ээээ! Так делать не надо.
http://www.transl-gunsmoker.ru/2008/...l-folders.html

[Drongo]

Любезный, Да-да-да, вспомнил, читал когда-то, спасибо за напоминание. В любом случае узнавать местоположение учётки, программно проще и надёжнее чем жёстко прописывать путь без проверки даже существования папки.

[Beyound]

Drongo, эм. вот так как ты советуешь делать точно ненадо. надо решать поставленную задачу а не придумывать себе работу. я согласен с тобой что "а если не локализована, а если все перемещено и т.д." но такой задачи нет. а то так можно начать - а если все в досе, а если надо рисовать свое окно а не експлорера, а если винда 95 и все вообще плохо.

[Iska]

Beyound, надо сразу учиться делать правильно, чтобы не было потом мучительно больно.

[Drongo]

надо решать поставленную задачу а не придумывать себе работу »

Из-за таких криворуких программистов, потом у юзеров головная боль и плевки в монитор с упоминанием разработчика приложения.

P.S. Я своё мнение высказал, дальше как хотите, лень-матушка или ограниченность ума позволяет делать так как хочеЦЦа.