首页 | 登录 | 注册 | 职吧 | 我的职脉
    职位关键字 工作地点
工作名称 公司名称 校园招聘
中国最好的工作搜索引擎!
  回复留言  
  这段程序的意思
作者： dangdangqy  01-01 08:00 　 回复  
 ChDir(ExtractFilePath(Application.ExeName));

ChDir('..');

ExeRoot := GetCurrentDir;

DataFile := GetCurrentDir+'\Data\dzyv1.mdb';
  回复：这段程序的意思
作者： ltanky  01-01 08:00 　 回复  
 ChDir(ExtractFilePath(Application.ExeName));

转到当前EXE文件所在目录

ChDir('..');

转到上级目录

ExeRoot := GetCurrentDir;

获取当前目录.并存放于ExeRoot中

DataFile := GetCurrentDir+'\Data\dzyv1.mdb';

取得数据库文件dzyv1.mdb的路径



Delphi写的东西
标　题:
内　容:
用户名:
  游客
 
 
Copyright©2005-2007, 版权所有 WWW.JOBMET.COM
ICP证：京ICP备06019556号