DLL entry function

[NicoDE]

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.