怎样实现调用DLL的程序退出后，DLL能继续执行(200分)

Sunny18 · 2001-07-22

我有一个程序用loadlibrary调用的一个DLL，我想在我的程序退出后，我所调用的DLL还能 在内存中继续执行。请高手帮忙！ 又：如果我下次执行我的程序时，怎么得到我上次loadlibrary进来的dll的handle! 谢谢！

吴剑明 · 2001-07-23

不可能吧?

OopsWare · 2001-07-23

rundll32.exe 可以装入一个dll, 并运行其中的函数， dll 装入后有一个计数器，记录Dll被加载的次数，次数＝0 时装入 dll 次数 +1， 次数 >0 时 LoadLibary 自动取dll的句柄，同时次数 +1(不再重复装入) 相反释放时次数 -1 ，到次数=0 时才真正释放 dll 占用的资源...

Sunny18 · 2001-07-23

我的意思是我在一个程序时Loadlibrary后，不Free就退出我的程序，能不能保持该DLL在内 存中继续运行，下次我再进入这个程序时可以用某种办法取得它的Handle然后必要时把它 free掉(从内存里卸掉)！ 也就是把DLL做成一个service，然后通过一个程序来管理！ 可现在的情况是我一退出我的程序，load进来的dll也随着就被卸掉了！ 请各位大侠帮忙！！！！！！！

zhg · 2001-07-24

关注

vinsa · 2001-07-24

试试看Hook系统进程……???

ahxia · 2001-07-25

记得在delphiboy, codelphi, cooldelphi，要么是csdn上，看见过如下解决方案： 运行YourApp.exe, YourApp调用 One.DLL, 然后用 One.DLL 调用 Two.DLL, 让Two.DLL 作为explore的服务存在，就满足你的要求了。 具体实现要看以前的笔记了

Jams · 2001-07-26

不能用动态调用，而采用静态调用才能解决问题！

Jedei · 2001-07-27

给你这个参考一下 //在指定的进程中插入一个DLL文件 function AttachToProcess(const HostFile, GuestFile : string;const PID

WORD=0)

WORD; //HostFile为要绑定的宿主文件(Exe文件)，GuestFile为要嵌入的客户文件(Dll文件) //如AttachToProcess('D:/TESTDLL.DLL','Notepad.exe') ; var   hRemoteProcess: THandle;   dwRemoteProcessId

WORD;   cb

WORD;   pszLibFileRemote: Pointer;   iReturnCode:Boolean;   TempVar

WORD;   pfnStartAddr:TFNThreadStartRoutine;   pszLibAFilename: PwideChar; begin   Result:=0;   EnabledDebugPrivilege(True);   Getmem(pszLibAFilename,Length(GuestFile)*2+1);   StringToWideChar(GuestFile,pszLibAFilename,Length(GuestFile)*2+1);   if PID>0 then dwRemoteProcessID:=PID else FindAProcess(HostFile,False,dwRemoteProcessID);   //由于我们后面需要写入远程进程的内存地址空间并建立远程线程，所以需要申请   //足够的权限（PROCESS_CREATE_THREAD、VM_OPERATION、VM_WRITE）。   //然后，我们可以建立LoadLibraryW函数这个线程来启动我们的DLL，LoadLibraryW   //函数是在kernel32.dll中定义的，用来加载DLL文件，它只有一个参数，就是DLL   //文件的绝对路径名pszLibAFilename，（也就是DLL的全路径文件名），但是由于   //DLL是在远程进程内调用的，所以我们首先还需要将这个文件名复制到远程地址空   //间：（否则远程线程是无法读到这个参数的）   hRemoteProcess := OpenProcess(PROCESS_CREATE_THREAD + //允许远程创建线程                                 PROCESS_VM_OPERATION+ //允许远程VM操作                                 PROCESS_VM_WRITE,//允许远程VM写                                 FALSE, dwRemoteProcessId);   //计算DLL路径名需要的内存空间   cb := (1 + lstrlenW(pszLibAFilename)) * sizeof(WCHAR);   //使用VirtualAllocEx函数在远程进程的内存地址空间分配DLL文件名缓冲区   pszLibFileRemote := PWIDESTRING( VirtualAllocEx( hRemoteProcess, nil, cb, MEM_COMMIT, PAGE_READWRITE));   //使用WriteProcessMemory函数将DLL的路径名复制到远程进程的内存空间   TempVar:=0;   iReturnCode := WriteProcessMemory(hRemoteProcess,pszLibFileRemote, pszLibAFilename, cb, TempVar);   if iReturnCode then   begin     //计算LoadLibraryW的入口地址     pfnStartAddr := GetProcAddress(GetModuleHandle('Kernel32'), 'LoadLibraryW');     //OK，万事俱备，我们通过建立远程线程时的地址pfnStartAddr（实际上就是LoadLibraryW     //的入口地址）和传递的参数  pszLibFileRemote（实际上是我们复制过去的DLL的全路     //径文件名）在远程进程内启动我们的DLL：     //启动远程线程LoadLibraryW，通过远程线程调用用户的DLL文件     TempVar:=0;     Result := CreateRemoteThread(hRemoteProcess, nil, 0, pfnStartAddr, pszLibFileRemote, 0, TempVar);   end;   Freemem(pszLibAFilename); end; //查找指定的进程，然后返回进程ID procedure FindAProcess(const AFilename:string; const PathMatch:Boolean; var ProcessID: DWORD); //AFilename为要查找（进程ID）的文件名（可以包行路径） //PathMatch为查找的时候是否匹配路径 var   lppe:TProcessEntry32;   SsHandle:Thandle;   FoundAProc, FoundOK:boolean; begin   SsHandle   := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);   FoundAProc := Process32First(Sshandle,lppe);   while FoundAProc do   begin     if PathMatch then        FoundOK:=AnsiStricomp(lppe.szExefile,PChar(AFilename))=0     else        FoundOK:=AnsiStricomp(PChar(ExtractFilename(lppe.szExefile)),PChar(ExtractFilename(AFilename)))=0;     if FoundOK then     begin       ProcessID:=lppe.th32ProcessID;       break;     end;     FoundAProc :=Process32Next(SsHandle,lppe);   end; //  if not FoundAProc then showmessage(SysErrorMessage(GetLastError));   CloseHandle(SsHandle); end; //激活或者停止指定的权限 [ Winnt Win2000 ] function EnabledDebugPrivilege(const bEnabled: Boolean):Boolean; var   hToken: THandle;   tp: TOKEN_PRIVILEGES;   a: DWORD; const   SE_DEBUG_NAME = 'SeDebugPrivilege'; begin   Result:=False;   if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken)) then   begin     tp.PrivilegeCount :=1;     LookupPrivilegeValue(nil,SE_DEBUG_NAME ,tp.Privileges[0].Luid);     if bEnabled then       tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED     else       tp.Privileges[0].Attributes := 0;     a:=0;     AdjustTokenPrivileges(hToken,False,tp,SizeOf(tp),nil,a);     Result:= GetLastError = ERROR_SUCCESS;     CloseHandle(hToken);   end; end;

Sunny18 · 2001-07-28

谢谢各位的关注，不过还有几个疑问： 1.CreateRemoteThread只有在NT下才能用，在95/98下有没有什么替代方法？ 2。用CreateRemoteThread所建产的RemoteThread是不是在loadlibraryw后就终止了？    那我以后怎样才能得到load进来的dll的Handle呢？（想在必要时free掉它和调    用它里面的函数）。 3.我该怎样调用在RemoteThread里load的dll中的函数呢？   谢谢！最好能有代码示例。

ify · 2001-08-11

dll需要一个进程，你的程序退出，进程也就结束，dll也就结束

DragonPC_??? · 2001-08-13

不用那么复杂吧？ 应用程序loadLibrary以后不free？真是会想！！！ 你可以建立一个第三方Service程序来保存dll句柄的吗，应用程序建立以后先查询它不就完了。

RoachCock · 2001-08-13

在DLL资源中放一个EXE,DLL初始化的时候,把这个EXE释放到一个临时文件中,运行他 //EXE调用这个DLL

DragonPC_??? · 2001-08-13

把exe文件放到资源里面干吗？ dll自己调用CreateProcess ShellExecute之类的函数创建一个进程不是轻而易举的吗？ 放到initialization part

Sunny18 · 2001-11-02

谢谢各位的帮肋！ 这么久了也该结束了！ 多谢多谢！

怎样实现调用DLL的程序退出后，DLL能继续执行(200分)

Sunny18

Unregistered / Unconfirmed

吴剑明

Unregistered / Unconfirmed

OopsWare

Unregistered / Unconfirmed

Sunny18

Unregistered / Unconfirmed

zhg

Unregistered / Unconfirmed

vinsa

Unregistered / Unconfirmed

ahxia

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

Jedei

Unregistered / Unconfirmed

Sunny18

Unregistered / Unconfirmed

ify

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

RoachCock

Unregistered / Unconfirmed

DragonPC_???

Unregistered / Unconfirmed

Sunny18

Unregistered / Unconfirmed

Similar threads