怎么在系统安装的时候创建BDE数据库的别名?

Question

你使用TSession控件来实现.
示例如下:
procedure TForm1.Button1Click(Sender: TObject);
var
  AParams: TStringList;
  YourDir: string;
begin
//  if not OpenDialog1.execute then exit;
//  YourDir := ExtractFilePath(OpenDialog1.FileName);
  AParams := TStringList.Create;
  try
    AParams.Clear;
    AParams.Add('PATH='+YourDir);
    if Session1.IsAlias('MyAlias') then
      Session1.ModifyAlias('MyAlias',AParams)
    else
      Session1.AddAlias('MyAlias','STANDARD', AParams);
    Session1.SaveConfigFile;
  finally
    AParams.free;
  end;
end;