删除目录的问题，谢谢！

Question

我有以下几个问题，请大家指教
1.删除目录，包含子目录
2.按要求截取浮点数的小数位
3.获得一个目录下的所有所有指定扩展名的文件列表（包含子目录） 返回类型_cStrLst=Array of ShortString
4.判断Window语言版本（简体或繁体）
5.如何获得文件版本号
   问题比较多，请大家帮忙，谢谢大家，辛苦了！

Answer 1

不好意思，还有一个问题，请问如何将String转换为日期类型，谢谢

Answer 2

1)SHFileOperation
2)RoundTo/FOrmatFLoatF
3)FindFirst/FindNext
4)注册表获得OS的语言区域设置
5)GetFileVersion全部都能在Baidu/G上找到答案

Answer 3

6)StrToDate都是基础问题,书上网上全部有的

Answer 4

1.
function deldir(ADir:string):boolean;
var
  FileStruct:TSHFileOpStruct;
begin
  result:=false;
  if not directoryexists(ADir) then exit;  //源文件夹不存在
  if ADir[length(ADir)]='\' then
    delete(ADir,length(ADir),1);  FileStruct.Wnd :=0;
  FileStruct.wFunc :=FO_delete;
  FileStruct.pFrom:=Pchar(ADir);
  FileStruct.fFlags:=FOF_NOCONFIRMATION; //不需要提示.需要提示用FOF_ALLOWUNDO
  FileStruct.pTo :='';
  if SHFileOperation(FileStruct)=0 then
    result:=true
  else
    exit;
end;

Answer 5

截取浮点数的小数位用FormatFLoat