怎样设置Delphi程序的默认目录？

Question

你应用ExtractDirecotry(Application.ExeName)抓到当前的EXE运行目录。

Answer 1

   看看下面的代码：
   var AppDir:String;{当前可执行文件所在的目录}
       iK:integer;
   ......
 
   for iK:=length(Application.ExeName) downto 1 do
   begin
       if Copy(Application.ExeName,iK,1)='\' then
       begin
          AppDir:=Copy(Application.ExeName,1,iK);{获取当前可执行文件的目录}
          break;
       end;
   end;
   然后在你的程序里动态地设置TTable的DatabaseName的属性，以便激活它。
   我想说祝你好运！