郁闷，问几个函数。。

Question

在硬盘上创建文件夹用什么？？？我翻了半天书没找到
然后在要一些相关函数，删除文件夹，改名之类的
还有个问题
公用对话框自带的那个font选择里面为什么字号选择只有“8 10 12....＂几种？如何能做得像word里面那样齐全

Answer 1

不知道的时候，下载本电子书籍，上面找，一般能找到，
还有 SysUnts

Answer 2

CreateDirectory(PChar('文件路径‘, null);//创建文件夹
RemoveDirectory('address of directory to remove'）;//文件夹必须是空的
//可以先DeleteFile(const FileName: string);//删除文件
RmDir('d:\xxx')//改名字

Answer 3

删除文件夹(包含文件)：uses shellapi;procedure DeleteFolder(dir: string);
var shfs: SHFILEOPSTRUCT;
begin
  with shfs do begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar(dir);
    pTo := nil;
    fFlags := FOF_NOCONFIRMATION+FOF_NOERRORUI;
    hNameMappings := nil;
    fAnyOperationsAborted := False;
  end;
  SHFileOperation(shfs);
end;

Answer 4

创建多级文件夹：
ForceDirectories('c:\windows\abc\xyz\123');

Answer 5

呵呵　我也刚刚找到ForceDirectories，还是这个好用那么后面的那个问题呢？公用对话框自带的那个font选择里面为什么字号选择只有“8 10 12....＂几种？如何能做得像word里面那样齐全