DLLProc

[Aleksey1989]

Подскажите, почему необходимо в следующем коде вызывать процедуру? Если этого не сделать, то запустив программу, использующую данную DLL функция DLLProc ни будет работать, а при закрытии основной программы появится ошибка.

library ProjectDLL;

uses
  SysUtils,
  Classes,
  Windows,
  dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

exports ShowAbout index 10;
exports FreeAbout index 11;

procedure DLLEntryPoint(dwReason:DWord);
begin
 case dwReason of
  DLL_PROCESS_ATTACH:ShowMessage('Attach to process');
  DLL_PROCESS_DETACH:ShowMessage('Detach to process');
  DLL_THREAD_ATTACH:ShowMessage('Thread attach to process');
  DLL_THREAD_DETACH:ShowMessage('Thread detach to process');
 end;
end;

begin
 DLLProc:=@DLLEntryPoint;
 DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

[mss]

Для "красоты")

Вряд ли код

procedure DLLEntryPoint(dwReason:DWord);
begin
 case dwReason of  
  DLL_PROCESS_DETACH:ShowMessage('Detach to process');
  DLL_THREAD_ATTACH:ShowMessage('Thread attach to process');
  DLL_THREAD_DETACH:ShowMessage('Thread detach to process');
 end;
end;

begin
 DLLProc:=@DLLEntryPoint;
 ShowMessage('Attach to process');
end.

вызовет восторг)