uses
  ....
  DBIProcs,DBITypes;
procedure ..............;
begin
  if Tmed = '' then begin //Alias가 없으므로 만들어 준다.
                        //알리어스명                    경로                                 DB명
     ADDBDEAlias('Tmedia', 'C:Program FilesJoeuncomMediaTmedia','PARADOX');.//프로시져 호출
  end;
end;

procedure TFmDowm.ADDBDEAlias(sAliasName, sAliasPath, sDBDriver : string);
var h : hDBISes;
begin
   DBIInit( nil );
   DBIStartSession( 'dummy', h, '' );
   DBIAddAlias( nil,PChar(sAliasName),PChar(sDBDriver),PChar('PATH:'+ sAliasPath),,true );
   DBICloseSession(h);
   DBIExit
end;

실행중에 Aliaas를 찾아보고 없으면 위처럼 해서 만들어 주려고 합니다.
모두 실행이 되는데 정작 BDE에 가서 확인 해 보면  새로운 Alias는 생성되지 않네요...
모가 잘못 되었나요?
제컴에는 델파이5가 설치되었고 윈98 입니다. 잘됩니다.
win XP에서는 안되네요