Здравствуйте, Гость
Воскресенье, 05.02.2012
Найти папку со шрифтами
Автор: Борисов Сергей 
function GetFontsRoot: 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('Fonts');
Reg.Free;
end;
-
Как избавиться от лишнего веса как похудеть в бедрах как убрать лишний вес с живота.
xs.ua
Просмотров: 1704
On-line статистика:
Онлайн всего: 2
Гостей: 2
Пользователей: 0
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz