Delphi2007之前的API繁简转函数在Delphi2009版本出现后不能用，原因在于之前版本的String默认为AnsiString，而Delphi2007之后的String默认为WideString，同样，PChar指针也就为PAnsiString，所以调用Windows API函数如：MultiByteToWideChar 会出现编译出错，原因是类型不对，也不能强制转换，以下是本人修改的网上流行的繁简转函数，测试通过，并完全正常使用！