Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by negaH,
22. Apr 2005
So wie nachfolgend geht es auch mit einer EXE die ohne Laufzeitpackages compiliert wurde.
procedure TForm1.Button2Click(Sender: TObject);
var
Module: hModule;
begin
Module := LoadLibrary('VCLDB70.bpl');
if Module <> INVALID_HANDLE_VALUE then
try
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by negaH,
22. Apr 2005
@Mabuse:
ok, das mein obiger Code nicht sofort funktioniert ist auch logisch, ich habe ihn hier einfach aus dem gedächtnis eingehämmert, da kann man sich mal irren. Öfters komme ich mit den verschiedenen aber ähnlichen Sprachen durcheinander. Zb. gerade jetzt arbeite ich mit VHDL und dieses ist in der Syntax ähnlich wie PASCAL aber eben nicht gleich, da kostet es schon Anstrengung das if then...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by negaH,
22. Apr 2005
Korrekt, und mit System.EnumModules() kannst du über die geladenen Packages iterieren.
uses TypInfo, HagEnumInfo;
function TForm1.DoTypeInfo(Info: PTypeInfo): Boolean; register;
begin
Result := False;
if Info.Kind = tkClass then
Memo1.Lines.Add(GetModuleName(FindHInstance(Info)) + ', ' + Info.Name);