В этом уроке я покажу вам как узнать стандартные папки 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.

Добавлено: 31 Июля 2018 22:04:08 Добавил: Андрей Ковальчук Нравится 0

Добавить