04-02-2010, 10:32 PM
السلام عليكم
شئ مثل هذا أخي ؟
شئ مثل هذا أخي ؟
كود :
var reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',false);
Reg.ReadString('LastRegisteredAppPath');
Reg.GetKeyNames(ListBox1.Items);
Reg.GetValueNames(ListBox2.Items);
Reg.Free
end