Designtime-Package in Anwendung

[Uwe Raabe]

Du könntest mit folgendem Code aber überprüfen, ob ein Designtime-Package von der Applikation geladen wurde:

Delphi-Quellcode:

procedure InfoProc(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer);
begin
end;

function ModuleIsNoDesignTime(HInstance: NativeInt; Data: Pointer): Boolean;
var
  Flags: Integer;
begin
  GetPackageInfo(HInstance, nil, Flags, InfoProc);
  if Odd(Flags shr 1) then begin
    raise Exception.Create('DesignTime-Package verwendet!');
  end;
  Result := True;
end;

procedure CheckNoDesignTime;
begin
  EnumModules(ModuleIsNoDesignTime, nil);
end;