Главная » Статьи по Delphi » Директории » Найти папку "Мои рисунки" пользователя

Найти папку "Мои рисунки" пользователя

Автор: Борисов Сергей

function GetUserPictures: 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('My Pictures');
  Reg.Free;
end;

• Карманные календари

  Каталог продукции. Образцы работ.

  13year.ru

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

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

---

Имя *:
Email:
Все смайлы
Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга