Code:
var
Reg : TRegistry;
KeyGood : Boolean;
compan:string;
begin
Reg := TRegistry.Create;
try
Reg.OpenKey('My Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\photoshop\7.0\Registration', TRUE);
compan := Reg.ReadString('NAME');
showmessage(compan);
finally
Reg.Free;
end;
var
Reg : TRegistry;
KeyGood : Boolean;
compan:string;
begin
Reg := TRegistry.Create;
try
Reg.OpenKey('My Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\photoshop\7.0\Registration', TRUE);
compan := Reg.ReadString('NAME');
showmessage(compan);
finally
Reg.Free;
end;
Gde je tu greska i zasto mi ne procita podatke iz registry-a?