Initialization-Abschnitte protokollieren?

[bepe]

Zunächst einmal würde ich mich in SysUtils LoadPackage oder InitializePackage per Code Injection einklicken. In der eigenen Anwendung sollte das kein allzu großes Problem sein. Die Variante hätte den Vorteil, dass wir die Reihenfolge in der die BPLs geladen werden loggen können.
Alternative könnte man auch einfach ein kleines Tool schreiben mit dem man die BPLs nacheinander abarbeitet. Aus LoadPackage bzw. InitializePackage interessiert eigentlich nur das ModuleHandle. Und das bekommen wir genauso gut per LoadLibrary .

Um es kurz (,schlampig und ungetestet) zu machen:

Delphi-Quellcode:

function GetLibTypeinfo(AModule: HModule): TPackageTypeInfo;
var
  tmpGetInfo: GetPackageInfoTable;
  tmpInfo: PackageInfo;
begin
  tmpGetInfo := GetProcAddress(tmpLib, '@GetPackageInfoTable');
  tmpInfo := tmpGetInfo;
  Result := tmpInfo.TypeInfo;
end;

function GetLibTypeinfoByName(const ALibName: String): TPackageTypeInfo;
var
  tmpLib: HModule;
begin
  tmpLib := LoadLibrary(ALibName);
  Result := GetLibTypeinfo(tmpLib);
  FreeLibrary(tmpLib);
end;

Jetzt nur das Beispiel anpassen:

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
  sl: TStringList;
  ps: PShortString;
  tmpInfo: TPackageTypeInfo;
begin
  ...
  tmpInfo := GetLibTypeinfoByName('Meine.bpl');
  ...

  sl := TStringList.Create;
  try
    ps := tmpInfo.UnitNames;

    for i := 0 to tmpInfo.UnitCount - 1 do
    begin
      sl.Add(ps^);
      // Move to next unit
      DWORD(ps) := DWORD(ps) + Length(ps^) + 1;
    end;

    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end;

Zitat:

(es sind eine Menge Packages dabei die als 3rd-Party nicht meiner Kontrolle unterliegen).

Das irritiert mich etwas. Vermutlich bedeutet es kein Quelltext. Dann frage ich mich warum die Init Reihenfolge interessant sein könnte... Aber egal.

Sollte doch Quelltext da sein,

- dann könnte es schon ausreichen auch die BPls mit aktivierten Laufzeitpackages zu erzeugen. Denn dann wird (ungetestet also eigentlich sollte)die RTL bzw. der SysInit "Kram" aus der Anwendung von den BPLs verwendet werden (sonst machen diese, wie festgestellt, ihren eigenen Init "Lauf").

- könnte man auch einfach eine kleines Plugin schreiben, welches die Reihenfolge der Kompilierung protokolliert (denn in dieser sollte auch initialisiert werden). Wenn wirklich nur Units mit Init Abschnitt geloggt werden sollen, dann könnte man eben mit dem Lexer von Castalia prüfen ob einer Existiert (http://code.google.com/p/castaliadelphiparser/). Sollte auch recht schnell umgesetzt sein.