Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.09.2007, 15:27   #1
Lonix
Пользователь
 
Регистрация: 17.03.2007
Сообщений: 39
По умолчанию Системные пути

Я знаю как узнать путь к Windows директории, а Как узнать путь "Мои Документы"?
Lonix вне форума Ответить с цитированием
Старый 14.09.2007, 16:00   #2
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

//определение путей к папкам windows
var
reg: TRegIniFile;
begin
reg := TRegIniFile.Create;
reg.RootKey := HKEY_CURRENT_USER;
//открываем ключ только для чтения
reg.OpenKeyReadOnly
('\Software\Microsoft\Windows\Curre ntVersion\Explorer\');
StaticText2.Caption :=
reg.ReadString('Shell Folders','cache','');
StaticText4.Caption :=
reg.ReadString('Shell Folders','cookies','');
StaticText6.Caption :=
reg.ReadString('Shell Folders','desktop','');
StaticText8.Caption :=
reg.ReadString('Shell Folders','favorites','');
StaticText10.Caption :=
reg.ReadString('Shell Folders','fonts','');
StaticText12.Caption :=
reg.ReadString('Shell Folders','personal','');
StaticText14.Caption :=
reg.ReadString('Shell Folders','programs','');
StaticText16.Caption :=
reg.ReadString('Shell Folders','recent','');
StaticText18.Caption :=
reg.ReadString('Shell Folders','sendto','');
StaticText20.Caption :=
reg.ReadString('Shell Folders','startup','');
reg.CloseKey;
reg.Free;
end;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 14.09.2007, 16:20   #3
Lonix
Пользователь
 
Регистрация: 17.03.2007
Сообщений: 39
По умолчанию

Цитата:
Сообщение от mutabor Посмотреть сообщение
//определение путей к папкам windows
var
reg: TRegIniFile;
begin
reg := TRegIniFile.Create;
reg.RootKey := HKEY_CURRENT_USER;
//открываем ключ только для чтения
reg.OpenKeyReadOnly
('\Software\Microsoft\Windows\Curre ntVersion\Explorer\');
StaticText2.Caption :=
reg.ReadString('Shell Folders','cache','');
StaticText4.Caption :=
reg.ReadString('Shell Folders','cookies','');
StaticText6.Caption :=
reg.ReadString('Shell Folders','desktop','');
StaticText8.Caption :=
reg.ReadString('Shell Folders','favorites','');
StaticText10.Caption :=
reg.ReadString('Shell Folders','fonts','');
StaticText12.Caption :=
reg.ReadString('Shell Folders','personal','');
StaticText14.Caption :=
reg.ReadString('Shell Folders','programs','');
StaticText16.Caption :=
reg.ReadString('Shell Folders','recent','');
StaticText18.Caption :=
reg.ReadString('Shell Folders','sendto','');
StaticText20.Caption :=
reg.ReadString('Shell Folders','startup','');
reg.CloseKey;
reg.Free;
end;


я в этом деле новичок, объясните как теперь вывести пути в label ...
Lonix вне форума Ответить с цитированием
Старый 14.09.2007, 16:30   #4
rubi
Пользователь
 
Регистрация: 01.09.2007
Сообщений: 35
По умолчанию

чтобы на label выводить, замени StaticText на label.
rubi вне форума Ответить с цитированием
Старый 14.09.2007, 16:32   #5
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

а не рано новичку который не может текст в лейбел запихать с реестром работать?
p.s. StaticText это практически то же, что и Label
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 14.09.2007, 16:38   #6
Lonix
Пользователь
 
Регистрация: 17.03.2007
Сообщений: 39
По умолчанию

Цитата:
Сообщение от mutabor Посмотреть сообщение
а не рано новичку который не может текст в лейбел запихать с реестром работать?
p.s. StaticText это практически то же, что и Label

Я заменил на Label, но так и не работает, может у кого нибудь есть готовый исходник?
Lonix вне форума Ответить с цитированием
Старый 14.09.2007, 16:41   #7
UnD)eaD)Snake
Форумчанин Подтвердите свой е-майл
 
Аватар для UnD)eaD)Snake
 
Регистрация: 07.07.2007
Сообщений: 241
По умолчанию

Добавил в uses Registry ?
UnD)eaD)Snake вне форума Ответить с цитированием
Старый 14.09.2007, 16:45   #8
Lonix
Пользователь
 
Регистрация: 17.03.2007
Сообщений: 39
По умолчанию

Цитата:
Сообщение от UnD)eaD)Snake Посмотреть сообщение
Добавил в uses Registry ?
да, вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegIniFile;
begin
reg := TRegIniFile.Create;
reg.RootKey := HKEY_CURRENT_USER;
//îòêðûâàåì êëþ÷ òîëüêî äëÿ ÷òåíèÿ
reg.OpenKeyReadOnly
('\Software\Microsoft\Windows\Curre ntVersion\Explo rer\');
Label1.Caption :=
reg.ReadString('Shell Folders','cache','');
Label2.Caption :=
reg.ReadString('Shell Folders','cookies','');
Label3.Caption :=
reg.ReadString('Shell Folders','desktop','');
Label4.Caption :=
reg.ReadString('Shell Folders','favorites','');
Label5.Caption :=
reg.ReadString('Shell Folders','fonts','');
Label6.Caption :=
reg.ReadString('Shell Folders','personal','');
Label7.Caption :=
reg.ReadString('Shell Folders','programs','');
Label8.Caption :=
reg.ReadString('Shell Folders','recent','');
Label9.Caption :=
reg.ReadString('Shell Folders','sendto','');
Label10.Caption :=
reg.ReadString('Shell Folders','startup','');
reg.CloseKey;
reg.Free;
end;
end.

когда нажимаешь на кнопку, во всех label пусто становится
Lonix вне форума Ответить с цитированием
Старый 14.09.2007, 17:10   #9
Artem
Пользователь
 
Регистрация: 08.07.2007
Сообщений: 76
По умолчанию

Explo rer нормально напиши))) Explorer
Только начал изучать Delphi...
Artem вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Программа, которая использует системные функции для получения информации о файловой системе metamfetamin Помощь студентам 16 08.11.2007 13:24
СИСТЕМНЫЕ ОШИБКИ HAMMAN Свободное общение 2 29.05.2007 20:26
Системные вызовы... bek@rt Win Api 2 03.05.2007 02:48