Delphi - ExtractResFromDLL

Ressourceskript:

Anne RCDATA Anne.jpg

Exe:

procedure ExtractResFromDLL(DLLName: String; ResName: String; Filename: String; ResType: PChar);
var
  dll: THandle;
  ResStream: TResourceStream;
begin
  dll := LoadLibraryEx(PChar(DLLName), 0, LOAD_LIBRARY_AS_DATAFILE);
  if dll <> 0 then
  begin
    ResStream := TResourceStream.Create(dll, ResName, RT_RCDATA);
    try
      try
        ResStream.SaveToFile(Filename);
      except
        on E: Exception do
          raise Exception.Create(E.Message);
      end;
    finally
      ResStream.Free;
    end;
  end
  else
    RaiseLastOSError;
end;
2012-01-26T23:14:37 +0100, mail[at]michael[Bindestrich]puff.de