5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
stream:tresourcestream;
begin
h:=loadlibrary('mytxtdll.dll');{裁入DLL文件}
stream:=tresourcestream.Create(h,'Mytxt','txt');{读DLL里内的资源文件}
stream.SaveToFile('c:\8123.txt');{将资源文件里面的TXT文件另存}
FreeAndNil(stream);
freelibrary(h);
end;