老师，快来帮我啊（各位大哥也来帮帮我）

ExtractFilePath(Application.ExeName)

解决方案 »

  1.   

    现在已经存在了一个access数据库，我如果用
    CopyFileTo()函数能不能将这个Access数据库里的所有表和已经存在的数据都copy过去？Copy过去的数据库和以前的数据一点关系也没有吗？//他们是两个不同的文件，不存在什么关联。
    还有就是，如果让保存对话框的路径用户不能对它进行改变？//自己定义一个对话框是比较可行的办法。反正用ExtractFilePath(Application.ExeName)可以获得当前程序所在路径。
      

  2.   

    access就是一个文件(.mdb)，copy过去就行了呀
    如果你不想上用户改就不要给他对话框，直接上他输入名字就可以了
    getdir(0,path)//path得到路径
    ExtractFilePath(Application.ExeName)
      

  3.   

    这样啊：）
    GetCurrentDir好像也是可以的啊；
    做好了：）
      

  4.   

    SaveDialog有一个属性叫做InitialDir，当用户重新选择时，它会改变。
    你设置这个值即可。
      

  5.   

    还有啊，我只要路径和文件名，不要扩展名如何办啊？
    如：
     c:\csdn\zswang\xgto.mdb - > c:\csdn\zswang\xgto;如何办啊？
      

  6.   

    s:string;s := ExtractFilePath(Application.ExeName);
      

  7.   

    GetCurrentDir //这是当然目录//不是当前程序目录
    //不要用SetCurrentDir('C:\');
    Caption := GetCurrentDir; //明白了吧！
      

  8.   

    Caption := ChangeFileExt('c:\csdn\zswang\xgto.mdb', '');
      

  9.   

    还有啊，我只要路径和文件名，不要扩展名如何办啊？
    如：
     c:\csdn\zswang\xgto.mdb - > c:\csdn\zswang\xgto;如何办啊？
    s:string;
    s := Copy(Application.ExeName,1,Pos('.',Application.ExeName));
    s := ExtractFilePath(Application.ExeName) + s;
      

  10.   

    TO 老师，就是啊：）
    还有问题的，CopyTO了一个Access库后，怎么设置它的属性，让它是不可修改的，隐藏的，系统的？
    老师，在动一动手写几写哦；
      

  11.   

    TO gxyc76(dd) 
    那是不行的，如果我建的文件名是xgto.gxyc76.mdb的话，怎么办啊？
    嘻嘻，不过，很谢谢你：）
      

  12.   

    如果你要得到程序所在目录,用ExtractFilePath(Application.ExeName);
    如果你要得到程序运行目录,在开始时调用GetCurrentDir;
    要禁止用户改变路径,自己作一个窗体,用TFileListBox(Directory:=YourDir)(Win3.1页)去做.
      

  13.   

    还有问题的，CopyTO了一个Access库后，怎么设置它的属性，让它是不可修改的，隐藏的，系统的？用API:SetFileAttributes;
    SetFileAttrigutes(MyFileName,FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_SYSTEM);
      

  14.   

    你是说SetFileAttributes吗?在Windows单元.