ايران ويج

نسخه‌ی کامل: Begin End. in DLL
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام
یک سئوال بلوک Begin End در آخر فایل DLL چه کار انجام میده و به چه شکل استفاده میشه؟؟؟
با تشکر.

کد:
library Project1;


uses
  System.SysUtils,
  System.Classes;

{$R *.res}

begin

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

end.
اینجا بدنه اجرایی dll هست شما میتونین از کدهای زیر برای مدیریت dll در این قسمت استفاده کنید یعنی تشخیص بدین dll در چه وضعیتی هست مثلا داره لود میشه یا از حافظه خارج میشه و به نسبت اونها کارهایی رو انجام بدید

کد:
procedure DllMain(reason: Integer);
begin
  if reason = DLL_PROCESS_DETACH then
    OutputDebugString('DLL PROCESS DETACH')
  else if reason = DLL_PROCESS_ATTACH then
    OutputDebugString('DLL PROCESS ATTACH')
  else if reason = DLL_THREAD_ATTACH then
    OutputDebugString('DLL THREAD ATTACH')
  else if reason = DLL_THREAD_DETACH then
    OutputDebugString('DLL THREAD DETACH')
  else
    OutputDebugString('DllMain');
end;

begin
  DllProc := DllMain;
end.