{*************************************************
  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.