Exe in Ressource

[Luckie]

Ressourcenscript erstellen:

Code:

1 RCDATA FirstDll.dll

Mit dem Delphi Ressourcenkompiler kompilieren. Die entstandene res-Datei in das Delphi Projekt aufnehmen:
{$R foobar.res} Und zur Laufzeit auf der Festplatte speichern:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
type
  TAdd = function(a, b: Integer): Integer; stdcall;
var
  rs: TResourceStream;
  hDll: THandle;
  Add: TAdd;
begin
  rs := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
  try
    try
      rs.SaveToFile(ExtractFilepath(ParamStr(0)) + 'temp.dll');
    except
      on E:Exception do
        MessageBox(Handle, PChar(E.Message), 'Fehler',MB_ICONSTOP);
    end;
  finally
    FreeAndNil(rs);
  end;
end;