Zitat von
HERMES:
Kennt jemand eine Möglichkeit dies zu realisieren?
Kurz: Nein, nicht ohne mehr Informationen.
Die eigentliche DllMain (in dem von dir gewünschten Format) befindet sich in der
RTL von Delphi und kann nicht ohne weiteres überschrieben werden.
Wenn Du mehr Informationen zm Warum/Wieso/Weshalb geben kannst, dann gibt es vielleicht andere Wege dies zu lösen...
ps@brechi: keine gute Idee, da dann initialization/finalization-Abschnitte (und vieles andere mehr) nicht mehr funktionieren
edit: vielleicht ist das das gesuchte:
Delphi-Quellcode:
library Project1;
uses
Windows;
{$R *.res}
////////////////////////////////////////////////////////////////////////////////
// DllMain
function DllMain(Inst: HINST; Reason: ULONG; Reserved: Pointer): BOOL;
stdcall;
begin
case Reason
of
DLL_PROCESS_ATTACH:
DisableThreadLibraryCalls(Inst);
end;
Result := True;
end;
////////////////////////////////////////////////////////////////////////////////
// LibraryProc
{$IFNDEF CONDITIONALDEFINE} // Delphi 2-5
type
TDLLProc =
procedure(Reason: Integer);
{$ENDIF}
var
DllProcNext: TDLLProc;
// = nil
procedure LibraryProc(Reason: Integer);
begin
ExitCode := Integer(DllMain(HInstance, Reason,
nil));
if Assigned(DllProcNext)
then
DllProcNext(Reason);
end;
////////////////////////////////////////////////////////////////////////////////
// RTL Entry Point
begin
DllProcNext := TDLLProc(DllProc);
TDLLProc(DllProc) := LibraryProc;
LibraryProc(DLL_PROCESS_ATTACH);
end.