很好做的啊,我回答过啊
你找找以前的贴子吧

解决方案 »

  1.   

    是要在程序中吗?可以试试以下代码:
    procedure TDm1.InitDataBase(aliasnames :string;localpath:string);
    var
      AliasParams:TStringList;
      FilePath : string;
    begin
      FilePath := 'path=' +  DefaultDir + localpath +'\';
      Aliasparams:=TStringList.Create;
      AliasParams.Add(Filepath);  if not Session.IsAlias(aliasnames) then
      begin
        try
          Session.AddAlias(aliasnames,'STANDARD',ALiasParams);
          Session.SaveConfigFile;
        finally
          AliasParams.Free;
        end;
      end else
      begin
        try
          Session.ModifyAlias(aliasnames,AliasParams);
          Session.SaveConfigFile;
        finally
          AliasParams.Free;
        end;
      end;
    end;
      

  2.   

    to 阿凯
       你以前的回答在哪里啊?