有关midas.dll的编译，50分相送，大虾帮忙！

Question

可以把MIDAS.DLL编译到资源文件中，在从中提取出来，存成文件。

Answer 1

chechy(chechy)　:你好！是否能给一个详细的例子或解释，我的Email:[email protected],非常感谢！

Answer 2

D5DG中的例子，权作参考。
文件codegen.txt
--------------------------
unit %0:s;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, AppBars;type
  T%1:s = class(%2:s)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  %1:s: T%1:s;implementation{$R *.DFM}end.
--------------------------文件CodeGen.rc：
--------------------------
CODEGEN RCDATA CODEGEN.TXT
--------------------------
将codegen.rc用brcc32编译成codegen.res.
在程序中调用，
首先需要写
{$R codegen.res}function GetSource: string;
var
  Text: string;
  ResInstance: THandle;
  HRes: HRSRC;
begin
  ResInstance := FindResourceHInstance(HInstance);
  HRes := FindResource(ResInstance, 'CODEGEN', RT_RCDATA);
  Text := PChar(LockResource(LoadResource(ResInstance, HRes)));
  SetLength(Text, SizeOfResource(ResInstance, HRes));
  Result := Text;
end;