Найти папку пользователя "Мои документы"

Автор:

function GetUserRoot: string;
var Reg: TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',
  false);
  Result:=reg.ReadString('Personal');
  Reg.Free;
end;

Просмотров: 4636

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.