Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизDocuments And Settings Найти похожие ветки
← →
lamak (2003-04-08 21:31) [0]Привет, Мастера! Вопрос такой: как с помощью API определить в Win2K или WinXP директорию пользователя, например: C:\Documents And Settings\Sergey\
← →
Palladin (2003-04-08 22:00) [1]ты когда нибудь в командной строке set набирал?
GetEnvironmentVariable + F1
← →
Lamak (2003-04-08 22:36) [2]А можно узнать, какой параметр передавать, а то с английским очень плохо.
← →
Palladin (2003-04-09 07:49) [3]возьми словарик
← →
LEON (2003-04-11 16:44) [4]unit ShDocVw, там это всё есть...
← →
DVM (2003-04-11 16:53) [5]Еще через реестр можно:
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Как найти системные каталоги...
Ищем системные каталоги через реестр. Функция использует только один модуль - Windows.pas. Полезно для создателей программ на чистом API.
Зависимости: Windows
Автор: LENIN INC, fuck2all@ukr.net, Kiev
Copyright: (C) 2003 by LENIN INC, http://lenininc.narod.ru
Дата: 22 февраля 2003 г.
***************************************************** }
//Находим системные каталоги
{ Параметры ShellPath следующие:
Desktop - C:\WINDOWS\Рабочий стол
Templates - C:\WINDOWS\ShellNew
AppData - C:\WINDOWS\Application Data
Start Menu - C:\WINDOWS\Главное меню
Programs - C:\WINDOWS\Главное меню\Программы
Startup - C:\WINDOWS\Главное меню\Программы\Автозагрузка
Fonts - C:\WINDOWS\Fonts
SendTo - C:\WINDOWS\SendTo
Recent - C:\WINDOWS\Recent
Favorites - C:\WINDOWS\Избранное
Cache - C:\WINDOWS\Temporary Internet Files
Cookies - C:\WINDOWS\Cookies
History - C:\WINDOWS\History
NetHood - C:\WINDOWS\NetHood
Personal - C:\Мои документы
PrintHood - C:\WINDOWS\PrintHood
Local AppData - C:\WINDOWS\Local Settings\Application Data
My Pictures - C:\Мои документы\Мои рисунки
Administrative Tools - C:\WINDOWS\Главное меню\Программы\Администрирование }
function ShellDir(ShellPath: String): string;
var
Handle: HKEY;
DataType, DataSize: DWORD;
begin
if RegOpenKeyEx(HKEY_CURRENT_USER, PChar("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"),
0, KEY_QUERY_VALUE, Handle) = ERROR_SUCCESS then
if RegQueryValueEx(Handle, PChar(ShellPath), nil, @DataType, nil, @DataSize) = ERROR_SUCCESS then
begin
SetString(Result, nil, DataSize-1);
RegQueryValueEx(Handle, PChar(ShellPath), nil, @DataType, PByte(@Result[1]), @DataSize);
//Если нет косой черты - добавляем
if (Result <> "") and (Result[Length(Result)] <> "\") then Result := Result + "\";
end else Result := "";
RegCloseKey(Handle);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c