【开源】将RES中的资源写到文件

阿杰

<font face="Verdana">'将资源写出到指定文件<br/>Function WriteToFile(资源标识, cFile As String)<br/>Dim Tmpfile() As Byte<br/>&nbsp;&nbsp;&nbsp; '将资源文件装入内存<br/>&nbsp;&nbsp;&nbsp; Tmpfile = LoadResData(资源标识, "CUSTOM")<br/>&nbsp;&nbsp;&nbsp; Open cFile For Binary As #1<br/>&nbsp;&nbsp;&nbsp; Put #1, , Tmpfile<br/>&nbsp;&nbsp;&nbsp; Close #1<br/>End Function</font><font face="Verdana">'将资源写出到指定文件</font>

阿杰

<font face="Verdana">Function ParseResourceFile(ByVal FilePath As String, ByVal FileName As String, ByVal ResType As String, ByVal ResID As Integer, ByVal IfDeleteFile As Boolean) As Boolean<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim TempFile() As Byte<br/>&nbsp;&nbsp;&nbsp; Dim PathName As String<br/>&nbsp;&nbsp;&nbsp; Dim intFreeFile As Integer<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Right(FilePath, 1) &lt;&gt; "\" Then FilePath = FilePath + "\"<br/>&nbsp;&nbsp;&nbsp; PathName = FilePath + FileName<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Len(Dir(PathName)) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IfDeleteFile Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Kill PathName<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Function<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; TempFile = LoadResData(ResID, ResType)<br/>&nbsp;&nbsp;&nbsp; intFreeFile = FreeFile()<br/>&nbsp;&nbsp;&nbsp; Open PathName For Binary Access Write As #intFreeFile<br/>&nbsp;&nbsp;&nbsp; Put #intFreeFile, , TempFile<br/>&nbsp;&nbsp;&nbsp; Close #intFreeFile<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Erase TempFile<br/>&nbsp;&nbsp;&nbsp; ParseResourceFile = True<br/>&nbsp;&nbsp;&nbsp; <br/>End Function</font>