OpenDialog1.InitialDir:='你的路径'
 if OpenDialog1.Execute then

解决方案 »

  1.   

    OpenDialog1.InitialDir :='c:\my documents';
      

  2.   

    有一个API的,SHGetSpecialFolderLocation,看看帮助!
      

  3.   

    我想你是要知道自己的程序运行的目录吧
    pathstr:=ExtractFilePath(Application.ExeName);
    PATHSTR就是你程序的目录。************
    * 努力学习 *
    *   全为   *
    *¥人民币¥*
    ************
      

  4.   

    同意GreensPan(GreensPan) 
    看看msdn的帮助。