Найти папку рабочего стола пользователя
Автор: 
Tweet
function GetUserDesktop: 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('Desktop');
Reg.Free;
end;
Просмотров: 4329
Заказать проститутку Набережных Челнов - это быстро и безопасно, наслаждайтесь качественным сервисом в любое время дня и ночи. | Наш сайт проституток Иркутска предлагает широкий выбор красивых дам с разными услугами. | В поисках ярких ощущений и незабываемого времяпрепровождения? Обратитесь к проституткам Липецка! Они умеют создать атмосферу страсти и удовольствия, которую вы не забудете никогда. | Заказать проститутку Новосибирска легко и просто с нашим сайтом. | Анкеты проституток Белгорода помогут вам сделать правильный выбор. Выбирайте девушку по своему вкусу и получайте удовольствие. | Вызвать проститутку Екатеринбурга - дверь в мир страсти и желания, который только вы можете осуществить. | Желаете разнообразить свой досуг? Проститутки Читы всегда готовы подарить вам незабываемые моменты наслаждения. | Снять проститутку Екатеринбурга - это шаг к полному расслаблению и удовлетворению ваших потребностей без лишних хлопот. | Вашему вечеру не хватает остроты? Снять проститутку Калуги - значит добавить в свою жизнь яркие краски и новые эмоции. | Путаны Иркутска - раскрепощенные красотки, которые не оставят вас равнодушными и подарят море эмоций. | Вашему вниманию представлены самые искусные шлюхи Липецка, способные удовлетворить каждую вашу фантазию.
Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.