upublic.pas

来自「三层图书管理系统」· PAS 代码 · 共 31 行

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.