как программно узнать адресс путь к папке мои документы и рабочий стол

[VIR1435]

Пожалуйста скажите как можно программно узнать путь (адрес) к папке Мои документы и Рабочий стол данного пользователя (тоесть в данный момент активного)

И еще появился один вопрос как можно программно узнать размер папки вклячаю подпапки и поместить значение ну например в label

[russian-stalker]

Мои документы:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
SetLength(s, 1000);
windows.GetEnvironmentVariable('USERPROFILE',pchar(S),length(s));
caption:=s;
end;

Отсюда и рабочий стол получить не проблемма

[ProgMaster]

function GetFolderPath(DirName: string): string;
var
R: TRegistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_CURRENT_USER;
R.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False);
Result:=R.ReadString(DirName);
R.CloseKey;
R.Free;
end;

где DirName - имя директории, одно из параметров в разделе HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\S hell Folders

[Aliens_wolfs]

Узнать Рабочий стол и мои документы данного пользователя

Добавь в форму в Uses ActiveX, ShlObj;

//Узнать папку рабочего стола
function GetDeskTopPath : string;
var
  SpecialDir: PItemIdList;
begin
    SetLength(result, MAX_PATH);
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, SpecialDir);
    SHGetPathFromIDList(SpecialDir, PChar(Result));
    SetLength(result, lStrLen(PChar(Result)));
end;

//Узнать папку Мои документы
function GetMyDoc : string;
var
  SpecialDir: PItemIdList;
begin
    SetLength(result, MAX_PATH);
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SpecialDir);
    SHGetPathFromIDList(SpecialDir, PChar(Result));
    SetLength(result, lStrLen(PChar(Result)));
end;

//Либо универсальная функция, тогда верхние 2 функции ненужны 
function GetPatch(CSIDL: integer) : string;
var
  SpecialDir: PItemIdList;
begin
    SetLength(result, MAX_PATH);
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL, SpecialDir);
    SHGetPathFromIDList(SpecialDir, PChar(Result));
    SetLength(result, lStrLen(PChar(Result)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage(GetDeskTopPath);
  showmessage(GetMyDoc);
//либо так с помощью одной функции
 showmessage(GetPatch(CSIDL_DESKTOP));
showmessage(GetPatch(CSIDL_PERSONAL));
end;

[GunSmoker]

как можно программно узнать путь (адрес) к папке Мои документы и Рабочий стол данного пользователя (тоесть в данный момент активного)

См. тут в конце, раздел "Системные папки", функция GetSpecialFolderLocation с примерами использования. Мои документы - это CSIDL_MYDOCUMENTS/FOLDERID_Documents, Рабочий стол - это CSIDL_DESKTOP/FOLDERID_Desktop.

И еще появился один вопрос как можно программно узнать размер папки вклячаю подпапки и поместить значение ну например в label

Ответ зависит от того, зачем это надо.

Отсюда и рабочий стол получить не проблемма

Расположение рабочего стола относительно папки Мои документы не фиксировано и может меняться (оно разное в разных версиях Windows, а в некоторых случаях может быть отличным даже в рамках одной версии).

DirName - имя директории, одно из параметров в разделе HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\S hell Folders

По рукам.

Узнать Рабочий стол данного пользователя

Единственный нормальный код, хотя и не на отлично (зачем получать PIDL, если можно сразу путь?).

[Aliens_wolfs]

Мои документы - это CSIDL_MYDOCUMENTS/FOLDERID_Documents

Я написал код выше только такого CSIDL_MYDOCUMENTS нет в место него CSIDL_PERSONAL

[GunSmoker]

CSIDL_MYDOCUMENTS = CSIDL_PERSONAL, только в древних Delphi она не объявлена.

[Aliens_wolfs]

У меня на Delphi 7 нет такой CSIDL_MYDOCUMENTS))
Еще есть такая функция выдает список всех папок с помощью реестра.
Обращение к разделу в реестре о информации папок

procedure GetSpecialFolderList(SS: TStrings);
var
  reg : TRegistry;
  ts : TStrings;
  i : integer;
begin
  reg := TRegistry.Create;
  ts := TStringList.Create;
 try
  reg.RootKey := HKEY_CURRENT_USER;
  reg.LazyWrite := false;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
  reg.GetValueNames(ts);
    for i := 0 to ts.Count -1 do
     ss.Add(Format('%s=%s',[ts.Strings[i],reg.ReadString(ts.Strings[i])]));
   reg.CloseKey;
 Finally
    ts.Free;
    reg.free;
 end;
end;

[GunSmoker]

есть такая функция выдает список всех папок с помощью реестра

(вздох)

По рукам.

[Aliens_wolfs]

Пусть решит что ему нужно, я так простенькие примеры написал, может кому нибудь пригодятся)

Расположение рабочего стола относительно папки Мои документы не фиксировано и может меняться (оно разное в разных версиях Windows, а в некоторых случаях может быть отличным даже в рамках одной версии).

Это точно)