求救,高手帮帮忙(delphi外壳)(100分)

我有个window外壳问题想请教下,怎么能在系统中我的电脑里在新创建个文件夹阿,谢谢了

createdir()

是分驱，还是。。。。<br>创建文件夹：<br>procedure TForm1.btnCreateClick(Sender: TObject);<br>begin<br> &nbsp; &nbsp;CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+'Test'),nil);//创建<br>end;<br><br>procedure TForm1.btnDeleteClick(Sender: TObject);<br>var<br> &nbsp;T:TSHFileOpStruct;<br> &nbsp;P:String;<br>begin<br> &nbsp;P:=ExtractFilePath(ParamStr(0))+'Test';<br> &nbsp;with T do<br> &nbsp;begin<br> &nbsp; &nbsp;Wnd:=0;<br> &nbsp; &nbsp;wFunc:=FO_DELETE;<br> &nbsp; &nbsp;pFrom:=PChar(P);<br> &nbsp; &nbsp;pTo:=nil;<br> &nbsp; &nbsp;fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;<br> &nbsp; &nbsp;hNameMappings:=nil;<br> &nbsp; &nbsp;lpszProgressTitle:='正在删除文件夹';<br> &nbsp; &nbsp;fAnyOperationsAborted:=False;<br> &nbsp;end;<br> &nbsp;SHFileOperation(T);<br> &nbsp;//RemoveDirectory(PChar(ExtractFilePath(ParamStr(0))+'Test'));<br>end;

CreateDirectory()

uses FileCtrl;<br> &nbsp;if not DirectoryExists('c:/temp') then<br> &nbsp; &nbsp;CreateDir('C:/temp');

不是这样,想通过操作系统接口在我的电脑下出现文件夹阿

什么意思阿?不是创建文件夹吗?

是在操作系统中我的电脑中新增一个盘符的,通过盘符能访问其他程序的

想把他写成dll文件的形式,可以写在注册表里

顶