更改Kernel32.dll -->> User32.dll因为我刚刚用VC自带的Depends.exe查看了Kernel32.dll文件,根本找不到RegisterServiceProcess函数。倒是在User32.dll中看到一个。
解决方案 »
- 问一个比较弱的问题,delphi 2007 的工程文件.dpr
- 请帮忙看看,ExtractStrings(['#'],[' '],Pchar(str),strList)的返回值为什么等于7,很纳闷
- 如何在treeview里面增加一个header像listview那样?
- 哪里可以下载到Delphi7?
- 在delphi 里面!!!
- 有没有windows下的cvs服务端,如有,请给个下载地址,方便的话,贴点使用经验出来?
- 一位浙大教授的激情演讲(4)
- 一个OCX控件如何打包所CAB文件供用户下载?
- 请教一个简单问题???
- 哪里有关于delphi嵌入汇编语言的详细介绍
- 使用QuickReport打印预览时如何设置页面大小!
- 有关模块表单的应用?
一句中的'RegisterServiceProcess'全改为小写试一下。
HINSTANCE hKeynellib;
LPFUDLLFUNC1 lpfndllfunc1;hKernellib=loadLibrary("kernel32.dll");
if(hKeynellib)
{
lpfndllfunc1=(LPFNDLLFUNC1)GetProcAddress (hKernellib,"RegisterServiceProcess");
if(lpfndllfunc1)
{
lpfndlllfunc1(GetCurrentProcessId(),1);
}
}
DWORD (*RegisterServiceProcess)(DWORD,DWORD); RegisterServiceProcess = (DWORD(*)(DWORD,DWORD))GetProcAddress(
GetModuleHandle("Kernel32.dll"),"RegisterServiceProcess");
if(RegisterServiceProcess != NULL)
{
MessageBox(this->Handle,"OK",NULL,MB_OK | MB_APPLMODAL | MB_ICONWARNING);
// RegisterServiceProcess(GetCurrentProcessId(),1);//RSP_SIMPLE_SERVICE);
}
else
{
MessageBox(this->Handle,"Failed",NULL,MB_OK | MB_APPLMODAL | MB_ICONWARNING);
}
LoadLibrary不需要带路径的,只要文件名即可,多此一举!
而且,RegisterServiceProcess只能在Win9x下使用。
LoadLibrary不需要带路径的,只要文件名即可,多此一举!
而且,RegisterServiceProcess只能在Win9x下使用。