unit uPublic;

interface

uses Registry, Windows;

function GetConStr:widestring;

implementation

function GetConStr:widestring;
var
  TheReg:TRegistry;KeyName,fAppPath:string;
begin
  TheReg:=TRegistry.Create;
  try
    TheReg.RootKey:=HKEY_LOCAL_MACHINE;
    KeyName:='Software\小珠圖書租賃管理系統';
    if TheReg.OpenKey(KeyName,False) then
    begin
      fAppPath:=TheReg.ReadString('ApplicationPath');
      result:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + fAppPath +
              ';Persist Security Info=False';
    end;
  finally
    TheReg.Free;
  end;
end;

end.