var.........
.............
reg: TRegistry;
делфя у меня восьмые архитект едишн.... в чём может быть проблема?
вот полный код:
Код: Выделить всё
var
Form2: TForm2;
r: string;
quest: tstringlist;
p:integer;
reg: TRegistry;
implementation
{$R *.nfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
reg:= Tregistry.create;
with reg do begin
RootKey:= HKEY_LOCAL_MACHINE;
if openkey('\SOFTWARE\Psicho Technology', true) then begin
r:=readstring('workpath');
closekey;
end;