鹦 鹦鹉 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #1 各位大虾，我想请问如何在系统目录下创建一个文件夹用于保存程序保存的一些<br>数据。我在formcreate的时候使用createfile和createdirectoryex两个函数，但是<br>都没有成功，请大虾教我！比如创建一个系统目录下叫‘图库’的文件夹。<br>谢谢！
各位大虾，我想请问如何在系统目录下创建一个文件夹用于保存程序保存的一些<br>数据。我在formcreate的时候使用createfile和createdirectoryex两个函数，但是<br>都没有成功，请大虾教我！比如创建一个系统目录下叫‘图库’的文件夹。<br>谢谢！
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #2 createdirectory('c:/windows/system/图库',nil);
小 小人物 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #3 mkdir('C:/windows/system/图库');<br>createdir('C:/windows/system/图库');<br><br>
鹦 鹦鹉 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #4 谢谢两位大虾，我还想请教，我想隐藏创建的这个目录，禁止他人用其他程序<br>删除文件的内容怎么办！？<br>用createfile能不能隐藏创建的文件夹！？
C commons_sheng Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #6 以下代码在window2000下可以建立，我试过：<br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> lpbuffer:array[0..127]of char;<br> dir:string;<br>begin<br><br> getsystemdirectory(lpbuffer,127);<br> if not DirectoryExists(lpbuffer+'/temp') then<br> if not CreateDir(lpbuffer+'/temp') then<br> raise Exception.Create('Cannot create c:/temp')end;<br><br>end.
以下代码在window2000下可以建立，我试过：<br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> lpbuffer:array[0..127]of char;<br> dir:string;<br>begin<br><br> getsystemdirectory(lpbuffer,127);<br> if not DirectoryExists(lpbuffer+'/temp') then<br> if not CreateDir(lpbuffer+'/temp') then<br> raise Exception.Create('Cannot create c:/temp')end;<br><br>end.
C cy03liql Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-29 #7 if not DirectoryExists(path1) then<br> ForceDirectories(path1);<br><br>注意： uses FileCtrl;
if not DirectoryExists(path1) then<br> ForceDirectories(path1);<br><br>注意： uses FileCtrl;
