Loade DLL og fra DLL kende den process der har loadet

Jeg er ikke helt sikker på det er hvad du har brug for, men jeg bruger denne stump kode til at validere om det er mit program der kalder dll'et

i DLL'ets DPR-fil:

...

procedure DllMain(aReason: integer);
var
  buf: array[0..MAX_PATH] of char;
begin
  case aReason of
    DLL_PROCESS_ATTACH : begin // Executable attaches to DLL
                          GetModuleFileName(0, buf, SizeOf(buf));
                          if AnsiSameStr(ExtractFileName(string(buf)),'MyApp.exe') then
                            ExitCode := -1;
                        end;
    DLL_THREAD_ATTACH  : begin // Thread in exe calls DLL
                        end;
    DLL_THREAD_DETACH  : begin // Thread leaves DLL
                        end;
    DLL_PROCESS_DETACH : begin // Exe detaches from DLL
                        end;
  end;
end;

begin
  if not assigned(DllProc) then
  begin
    DllProc := @DllMain;
    DllProc(DLL_PROCESS_ATTACH);
  end;
end.

Alternativt kan du vel forlange at få programmets handle med i kaldet til dine procedurer og validere der. Det har jeg vist også et eksempel på, men jeg skal i seng da ungerne vækker mig kl. 6 (øv, jeg skal forestille at have ferie)

Følgende udskriver navn på EXE fil (og kunne selvfølgelig sagtens lave noget andet):

library SomeDLL;

uses
  Dialogs,
  Forms;

{$R *.res}

function test: pchar; export;

begin
  test := 'It works';
end;

exports
  test;

begin
  ShowMessage('I was loaded by ' + Application.ExeName);
end.

Takker for begge svar. Kan i ikke lige give et svar

Jeg er lidt utryg ved man griber fat i programmets Application-objekt, sådan som Ares eksempel gør. I DLL-sammenhænge synes jeg løsningen er for nem. Det plejer aldrig at være ligetil når man skal rode med de (s....) DLL-filer.

Min hoved pointe er at bruge library body for koden. Ingen brug for DllMain.

Man kunne bruge GetModuleFileName fremfor Application.ExeName, men jeg gaetter paa
at Application.ExeName kalder GetModuleFileName !

Og et svar fra mig.

For en god ordens skyld - ja, det gør den (nedenstående sakset fra D2005's kildekode):

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

function ParamStr(Index: Integer): string;
{$IFDEF MSWINDOWS}
var
  P: PChar;
  Buffer: array[0..260] of Char;
begin
  Result := '';
  if Index = 0 then
    SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))
(...)

*går igen*

OK. Så er der jo ingen ko på isen. Jeg gad ikke lige dykke ned i VCL'et men det gjorde pidgeot. Mit eksempel er ud af en større sammenhæng og jeg gad ikke isolere GetModuleFileName. Desuden har jeg tit brug for konstruktionen.