Узнать стандартные папки windows

Опубиковано: 13.07.2008 г., автор: , просмотров: 18443

В этом уроке я покажу вам как узнать стандартные папки windows.
Итак кидаем на форму кнопку (button) и компонент Memo.
В uses дописываем Registry;

Создаем обработчик событий на кнопке (OnClick) и в нем прописываем следующий код.

procedure TForm1.Button1Click(Sender: TObject);
var
   reg : TRegistry;
   ts : TStrings;
   i : integer;
begin
   reg := TRegistry.Create;
   reg.RootKey := HKEY_CURRENT_USER;
   reg.LazyWrite := false;
   reg.OpenKey(
   'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',
               false);
     ts := TStringList.Create;
     reg.GetValueNames(ts);
     for i := 0 to ts.Count -1 do begin
       Memo1.Lines.Add(ts.Strings[i] +
                       ' = ' +
                       reg.ReadString(ts.Strings[i]));
     end;
     ts.Free;
   reg.CloseKey;
   reg.free;
end;

Вот и все после нажатия на кнопке, программа выведет в Memo стандартные папки windows.

До встречи delphiexpert.ru



Похожие материалы

Последние из рубрики

nepodhodimka 04 Май 2013 в 00:00 #
В uses Допишите примрено так
код)
uses
Winapi.Windows, Winapi.Messages, Registry, System.SysUtils,....
Айсана 19 Дек 2012 в 00:00 #
не получаеться... вылезает ошибка. Указывает на var reg : TRegistry;
DFK 29 Апр 2011 в 00:00 #
Animate с левым кодом, причём тупо скопированным, а не самостоятельно придуманным. Пользуйтесь самим кодом, приведённым на странице, а к автору просьба всё-таки залить чистый ехе-шник. Зачем портить себе репутацию?
Юрий 27 Апр 2010 в 00:00 #
Eset - это параноик, ему везде мерещатся трояны и вирусы )))
chakon 17 Окт 2009 в 00:00 #
Ваша программа animate dszdktyf Eset как троянская

ОтменитьДобавить комментарий