如何用delphi建立com1为文件夹名的文件夹？？？(100分)

...如题？

function ForceDirectories(Dir: string): Boolean;
//可建深层目录 比如 ForceDirectories('c:/sss/ddd/rrr/eee')
function CreateDir(const Dir: string): Boolean;
//只能在当前已有的目录下建目录

Chdir('c:/abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名，无'/'
Getdir(0,s);//取工作目录名s:='c:/abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀
◇[DELPHI]处理文件属性8)
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //系统
if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏
◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec('command.com /c copy *.* c:/',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序w}
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:/abc/a.txt','x.abc','c:/abc/',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);

好东西，转给你了//[8D]

大侠，关键是com1是windows预留的端口专用id，不让作为文件夹名。。。。。。
通用的方法不行。
有方法吗？

CreateDir('com1./');

目录名称+'./'

那你为什么不换个名，还是说你想用你的替代系统的？

串行通讯实际上将被所有的Windows CE设备所支持，在硬件水平上，通过电缆和红外传送器进行串行通讯是很普通的。调制解调器也支持串行通讯。

　　每一个串行设备都匹配有一个COM口，例如“COM1”。Windows CE为打开串口和管理接收设备上的连接提供了一个API。一旦连接成功，将用相同的函数进行数据传送，这些函数用以读一个文件或者写一个文件。数据只是简单的从一个设备传送到另一个设备。不支持同步和异步I/O。

http://www.cmfu.com/readchapter.asp?bu_id=2025171&bl_id=71648
看小说学来的，呵呵

errorcode大侠试了吗？我试了不行呀

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := BoolToStr(CreateDir('C:/COM1./'), True)
end;

可以啊

按上面的方法可以，但是不能在com1下面再建子目录？

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := BoolToStr(CreateDir('C:/888/COM1./'), True)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := BoolToStr(CreateDir('C:/COM1./'+'/'+'888'), True)
end;

以上都不行

procedure TForm1.Button2Click(Sender: TObject);
begin
Caption := BoolToStr(CreateDir('C:/COM1./888), True)
end;
可以啊，多试一下啦，老兄

procedure TForm1.Button2Click(Sender: TObject);
begin
Caption := BoolToStr(CreateDir('C:/COM1./8888aaaa'), True)
end;

快给分啦，哈
这年头看小说也长见识，不错ing

非常感谢。。。。散分

非常感谢errorcode 。。。。