function TForm1.root():String; var reg1:TRegIniFile;
begin
reg1:=TRegINiFile.Create;
reg1.RootKey :=HKEY_CURRENT_USER;
result:=IncludeTrailingBackslash(reg1.ReadString('\SOFTWARE\WikiBrowse\1.0','root','C:\'));
reg1.free;
End;