อยากรู้วิธีอ่านค่า Registry ผ่าน Delphi

[bo0m]

อยากรู้วิธีอ่านค่า Registry ผ่าน Delphi ครับ เช่น

ผมสร้างฟอร์ม มาหนึ่งงอัน .. ใส่ Text ไว้ประมาณ 5 บรรทัด ..

แล้วสร้าง ปุ่ม มา 1 ปุ่ม เวลากดปุ่มแล้วให้ไปอ่านค่า Registry ครับ

เช่นผมทำ โปรแกรมหา Pass Winguard โดยให้ Delphi เข้าไปอ่านใน HKEY_LOCAL_MACHINE\SOFTWARE\wgp

ในนั้นจะมี Key เช้น Pass User CD-Key

เมื่ออ่านแล้วอยากให้แสดงแทน Text ใน Delphi จะได้ไหมครับ

เคยลองหลายวิธีแล้วแต่ไม่เคยสำเร็จเลย

โค๊ดจะประมาณไหนครับ

edit1.text:={คำสั่งให้อ่า่นค่าใน Registry}KEY_LOCAL_MACHINE\SOFTWARE\wgp

ท่านใดรู้วิธีช่วยชี้แนะหน่อยครับ

[niwe034]

uses Registry;


procedure TForm1.Button1Click(Sender: TObject);
var
Reg :TRegIniFile;
begin
Reg :=TRegIniFile.Create;
Reg.RootKey :=KEY_LOCAL_MACHINE;
if Reg.OpenKey(SOFTWARE\wgp',true) then
begin
edit1.text := inttostr(Reg.ReadInteger('Pass'));
// or edit1.text := Reg.ReadString('Pass');
end;
reg.CloseKey;

end;