Скопировать весь реестр в memo1

[Fahman]

Здравствуйте, я бы хотел спросит, как можно скопировать все что записано в реестре к себе в программу в memo1?
можно как нибудь это сделать? если да то как? можно не в memo1 куда нить в другой место но я хотел бы прочесть весь реестр) Заранее спасибо) Если есть ссылка к уроку был бы рад прочесть...

[Stilet]

Можно. Изучай класс TRegistry. Примеры в инете есть, но я за них не отвечаю.

[Человек_Борща]

Используя TRegistry перебрать все кусты и засунуть куда-угодно.

[Fahman]

Спасиб канечно но я только научился прописывать в реестр и удалять) а вот чтобы взять и все скопировать в мемо не пробовал) может кто нить чиркнет? или пример подскажет?

[Alter]

Например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function WinExecAndWait32(FileName: String; Visibility: integer): integer;

implementation

{$R *.dfm}

function WinExecAndWait32(FileName: String; Visibility: integer): integer;
var
  zAppName: array [0 .. 512] of char;
  zCurDir: array [0 .. 255] of char;
  WorkDir: String;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  StrPCopy(zAppName, FileName);
  GetDir(0, WorkDir);
  StrPCopy(zCurDir, WorkDir);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil, zAppName, { указатель командной строки }
    nil, { указатель на процесс атрибутов безопасности }
    nil, { указатель на поток атрибутов безопасности }
    false, { флаг родительского обработчика }
    CREATE_NEW_CONSOLE or { флаг создания }
    NORMAL_PRIORITY_CLASS, nil, { указатель на новую среду процесса }
    nil, { указатель на имя текущей директории }
    StartupInfo, { указатель на STARTUPINFO }
    ProcessInfo) then
    Result := -1 { указатель на PROCESS_INF }
  else
  begin
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Cardinal(Result));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Enabled := false;
  try
 // ShellExecute(0, nil, 'regedit', '/e C:\TempReg.txt HKEY_CURRENT_USER\', nil, SW_NORMAL);
 WinExecAndWait32('regedit /e C:\TempReg.txt HKEY_CURRENT_USER\', SW_NORMAL);
 if FileExists('C:\TempReg.txt') then
   Memo1.Lines.LoadFromFile('C:\TempReg.txt');
  finally
 Button1.Enabled := True;
  end;
end;

end.

[Fahman]

Сообщение от Alter

Например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function WinExecAndWait32(FileName: String; Visibility: integer): integer;

implementation

{$R *.dfm}

function WinExecAndWait32(FileName: String; Visibility: integer): integer;
var
  zAppName: array [0 .. 512] of char;
  zCurDir: array [0 .. 255] of char;
  WorkDir: String;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  StrPCopy(zAppName, FileName);
  GetDir(0, WorkDir);
  StrPCopy(zCurDir, WorkDir);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil, zAppName, { указатель командной строки }
    nil, { указатель на процесс атрибутов безопасности }
    nil, { указатель на поток атрибутов безопасности }
    false, { флаг родительского обработчика }
    CREATE_NEW_CONSOLE or { флаг создания }
    NORMAL_PRIORITY_CLASS, nil, { указатель на новую среду процесса }
    nil, { указатель на имя текущей директории }
    StartupInfo, { указатель на STARTUPINFO }
    ProcessInfo) then
    Result := -1 { указатель на PROCESS_INF }
  else
  begin
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Cardinal(Result));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Enabled := false;
  try
 // ShellExecute(0, nil, 'regedit', '/e C:\TempReg.txt HKEY_CURRENT_USER\', nil, SW_NORMAL);
 WinExecAndWait32('regedit /e C:\TempReg.txt HKEY_CURRENT_USER\', SW_NORMAL);
 if FileExists('C:\TempReg.txt') then
   Memo1.Lines.LoadFromFile('C:\TempReg.txt');
  finally
 Button1.Enabled := True;
  end;
end;

end.

Вот что вышло в итоге=)

[Stilet]

Вот что вышло в итоге=)

Это потому что ты даже не попытался в коде разобраться )
Это альтернативный вариант. Используй TRegistry.
http://delphiworld.narod.ru/base/registry_browser.html

[Fahman]

Сообщение от Stilet

Это потому что ты даже не попытался в коде разобраться )
Это альтернативный вариант. Используй TRegistry.
http://delphiworld.narod.ru/base/registry_browser.html

Спасиб Добрый человек, правда я чуток прошел по исходнику мало что понял и сразу сюды)

Что это еще за ошыпка?=)

Я просто хотел + Добавить) Другому добавил а вам не идет..... Это ни есть хорошо....


И это кстати тоже не то=) Надо что нить такое быстрое и чтоб я потом смог его прочесть желательно весь реестр в мемо, для себя хочу кое что проверить...

[Alter]

У меня

[Fahman]

Alter

Чет не то помоему....
У вас какая версия Windows? мне надо 1 код который сможет скопировать весь реестр (не важно какая версия винды) в memo1=)