Registro Windows (valor E Aparecer Em Uma Memo)

[Teaga.txt]

Tem como fazer no DELPHI 7, um programa que pega o valor de uma chave do registro do windows e coloca em uma MEMO ???

ex: O conteudo da pasta Run: HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run

e me mostrar o seguinte no MEMO:

MEMO1: NOME DO PRIMEIRO VALOR

MEMO2: DADOS DO PRIMEIRO VALOR

e assim por diante ... guardando em varios memos

SE NÃO DER PARA ENTENDER EU ESPLICO DE NOVO !!!

[Corposemalma]

Caro amigo... tem sim!

não tenho isso em maos, mas

da uma olhada no site www.delphi.eti.br lá tem com certeza!

[s3c]

uses Registry;

var Reg:TRegistry; i:Integer;
begin
Reg := TRegistry.Create;
try
Memo1.Clear;
Memo2.Clear;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false) then
begin
Reg.GetValueNames(Memo1.Lines);
for i := 0 to Memo1.Lines.Count-1 do
Case Reg.GetDataType(Memo1.Lines[i]) of
rdString,
rdExpandString : Memo2.Lines.Add(Reg.ReadString(Memo1.Lines[i]));
rdInteger         : Memo2.Lines.Add(IntToStr(Reg.ReadInteger(Memo1.Lines[i])));
else Memo2.Lines.Add('?');
end;
end;
finally
Reg.Free;
end;
end;

[Teaga.txt]

valeu ... FECHADO !!!

[Arlon]

Fecha nãããããão!!

O que é um registro do Windows?? E o que seria a sua chave??

[s3c]

Olá Arlon, executa o regedit e você verá o registro do Windows e suas chaves.