Designtime-Package in Anwendung

[Uwe Raabe]

Zitat von mkinzler:

Auf seinem Rechner nicht, da vorhanden.

Wie soll die EXE denn dann beurteilen, ob das OK ist oder nicht? Grundsätzlich gibt es ja kein Verbot Designtime-Packages zu verwenden, sonst würde es beim Start der Delphi IDE ja haufenweise Fehler hageln.

[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;

[himitsu]

Zitat von Uwe Raabe:

Wie soll die EXE denn dann beurteilen, ob das OK ist oder nicht? Grundsätzlich gibt es ja kein Verbot Designtime-Packages zu verwenden, sonst würde es beim Start der Delphi IDE ja haufenweise Fehler hageln.

Ich dachte einfach ganz naiv, dass z.B. LoadLibrary weiß, ob es gerade in der Delphi-IDE läuft und dementsprechend DesignTime-Only oder RuntimeTime-Only meldet, wenn sie im "Falschen" geladen werden.

[Uwe Raabe]

Zitat von himitsu:

Ich dachte einfach ganz naiv, dass z.B. LoadLibrary weiß, ob es gerade in der Delphi-IDE läuft und dementsprechend DesignTime-Only oder RuntimeTime-Only meldet, wenn sie im "Falschen" geladen werden.

Na ja, es mag ja auch andere Programme neben der Delphi-IDE geben, die mit DesignTime-Packages was anfangen könnten...

[himitsu]

Blasphemie

Es gibt nichts neben der Delphi-IDE.

[Rollo62]

Doch die CBuilder IDE ...