[DELPHI] Inglobare una DLL in un eseguibile

[pallinopinco]

Su Windows Vista - ma non solo - una cosa del genere non verrebbe senz'altro vista di buon occhio (scusate il gioco di parole).

Nessun problema, il seguente codice crea il file pippo.dll estraendolo dalle risorse dell'eseguibile. Funziona perfettamente su Windows Vista e NON richiede neanche i privilegi di Amministratore:

Program Estrattore;

uses Windows, Classes;

{$R risorsa.res}

var res : TResourceStream;

begin
 res := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
 try
   res.SaveToFile('pippo.dll');
 finally
  res.Free;
 end;
end.