充分利用windows api 扩展delphi 函数 do