释放文件的问题 function ExtractRes(30分)

program Project1;<br><br><br>{$R 'hook.RES'}<br><br>uses<br> &nbsp;Windows, shellapi, SysUtils,sendmail, sendmail2,Tlhelp32,mmSystem;<br><br><br>。。。。。。。。。。。。<br><br><br><br><br>function ExtractRes(ResType, ResName, ResNewName: string): boolean;<br>var<br>Res: TResourceStream;<br>begin<br>try<br>Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));<br>try<br>Res.SavetoFile(ResNewName);<br>Result := true;<br>finally<br>Res.Free;<br>end;<br>except<br>Result := false;<br>end;<br>end;<br><br><br>编译提示<br><br>TResourceStream<br>没有定义<br><br>这是怎么回事，偶晕了。编译FORM的程序用这个function从来没有这么提示的，请高手指点应该use什么东西

在USES列表中加入Classes

接受答案了.