flashsave.dpr

来自「为IE增加一个包括Flash插件的源代码。」· DPR 代码 · 共 53 行

{*************************************************
  Copyright (C), 2004, 风车工作室.
  作者: 追风逐月
  版本: 1.0
  日期: 2005年04月11日
  描述:
  修改历史:
    追风逐月    2005/04/11      1.0        创建该文件
    ...
*************************************************}

library FlashSave;

uses
  ComServ,
  windows,
  dialogs,
  SysUtils,
  _IEBrowserHelper in '_IEBrowserHelper.pas';

exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;

procedure DllMain(dwReason: INTeger);
var
  count: Integer;
  buf: array[0..128] of char;
  S: string;
begin
  case dwReason of
    0: ; //ShowMessage('DLL_PROCESS_DETACH');
    DLL_PROCESS_ATTACH:
      begin
        //判断是否在资源管理器中加载，如果是则退出
        GetModuleFilename(0, @buf, SizeOf(buf)); // treats @buf as a PChar
        S := buf;
        if sametext(ExtractFileName(S), 'EXPLORER.EXE') then
          ExitCode := 1;
      end;
    2: ; //ShowMessage('DLL_THREAD_ATTACH');
    3: ; //ShowMessage('DLL_THREAD_DETACH');
  end;
end;

begin
  DllProc := @DllMain;
  DllMain(DLL_PROCESS_ATTACH);
end.