WriteResourceToFile并不是WIN API,要自己实现<br><br>var<br> FStream :TResourceStream;<br>begin<br> FStream := TResourceStream.Create(Hinstance,'资源ID','资源类型');<br> FStream.SaveToFile('文件名');<br> FStream.Free;<br>end