|
|
|
|
|
|
|
[注意]第一届软件设计大赛作品评选之公众投票
留名纪念!..每个人透一票 |
|
|
|
[求助]怎么在重做系统后保存编译器
ghost |
|
[求助]Windows编程循序渐进
偶像要不也送我一本有你签名的书吧 |
|
[原创]一个菜鸟看ZPROTECT普通函数加密
签名留恋@~~~~~ |
|
[华章公司]《Windows编程循序渐进》宣传活动,暨第一届软件设计大赛(所有奖项已揭晓)
(4)x = (value%n) + 1 (5)如果第x楼的朋友已获赠书或获得软件设计大赛奖项,则无效!否则转到第(7)条。 (6)x = x%n+1,转到第(5)条 (7)获奖选手即为第x楼的朋友。 if (n=388)and (第4步的x=377) then begin ShowMessage('壹只老虎好象得奖了!嘿嘿!'); end; 跟着偶像走,我选64. |
|
|
|
[求助]我的Ring0监控程序源代码,VC++ 代码转 Delphi !!!
{ *********************************************************************** } { 模块名称:MyDriver } { 模块功能:加载/卸载驱动程序 } { 版 本 号:v1.0.0 } { 日 期:2008-5-18 } { *********************************************************************** } unit MyDriver; interface uses Windows,SysUtils,Tlhelp32,WinSvc; {功能:加载驱动程序 参数:sztheDriverName:驱动程序完成路径. szSvrName :驱动程序名称.} function InstallDriver(sztheDriverName,szSvrName:string):Boolean; {功能:卸载驱动程序 参数:szSvrName :驱动程序名称.} function UnInstallDriver(szSvrName:string):Boolean; implementation function InstallDriver(sztheDriverName,szSvrName:string):Boolean; var hServiceMgr,hServiceTwdm:SC_HANDLE; szDir:array[0..1023]of char; lpsztheDriverName,p:PChar; begin ZeroMemory(@szDir,1024); strcopy(szDir,Pchar(sztheDriverName)); lpsztheDriverName:=@szDir; {打开服务控制管理器} hServiceMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS ); if hServiceMgr=0 then begin {OpenSCManager() Faild.} Result:=False; Exit; end; hServiceTwdm:=CreateService(hServiceMgr, PChar(szSvrName), {SYSTEM\CurrentControlSet\Services驱动程序的在注册表中的名字} PChar(szSvrName), {注册表驱动程序的 DisplayName 值} SERVICE_ALL_ACCESS, {加载驱动程序的访问权限} SERVICE_KERNEL_DRIVER,{表示加载的服务是驱动程序} SERVICE_DEMAND_START, {注册表驱动程序的 Start 值} SERVICE_ERROR_IGNORE, {注册表驱动程序的 ErrorControl 值} lpsztheDriverName, {注册表驱动程序的 ImagePath 值} nil,nil,nil,nil,nil); if hServiceTwdm=0 then begin if GetLastError()=ERROR_SERVICE_EXISTS then begin {Service Exists} hServiceTwdm:=OpenService(hServiceMgr,PChar(szSvrName),SERVICE_ALL_ACCESS); if hServiceTwdm=0 then begin CloseServiceHandle(hServiceMgr); Result:=False; Exit; end; end else begin CloseServiceHandle(hServiceMgr); Result:=False; Exit; end; end; {Start the drivers} if hServiceTwdm<>0 then begin if StartService(hServiceTwdm,0,p)=False then begin if ERROR_SERVICE_ALREADY_RUNNING=GetLastError() then begin {no real problem} end else begin CloseServiceHandle(hServiceMgr); CloseServiceHandle(hServiceTwdm); Result:=False; Exit; end; end; CloseServiceHandle(hServiceMgr); CloseServiceHandle(hServiceTwdm); end; Result:=True; end; function UnInstallDriver(szSvrName:string):Boolean; var hServiceMgr,hServiceTwdm:SC_HANDLE; SvrSta:SERVICE_STATUS; begin hServiceMgr:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS ); if hServiceMgr=0 then begin {OpenSCManager() Faild.} Result:=False; Exit; end; hServiceTwdm:=OpenService(hServiceMgr,PChar(szSvrName),SERVICE_ALL_ACCESS ); if hServiceTwdm=0 then begin {OpenService() Faild.} CloseServiceHandle(hServiceMgr); Result:=False; Exit; end; {停止驱动程序,如果停止失败,只有重新启动才能,再动态加载。} if ControlService(hServiceTwdm,SERVICE_CONTROL_STOP,SvrSta)=False then begin {ControlService() Faild.} CloseServiceHandle(hServiceTwdm); CloseServiceHandle(hServiceMgr); Result:=False; Exit; end; {动态卸载驱动程序.} if DeleteService(hServiceTwdm)=False then begin {DeleteSrevice() Faild.} CloseServiceHandle(hServiceTwdm); CloseServiceHandle(hServiceMgr); Result:=False; Exit; end; CloseServiceHandle(hServiceTwdm); CloseServiceHandle(hServiceMgr); Result:=True; end; end. 写的很龊,高手飘过! 从Rootkit那本书上面翻译过来的! |
|
《Windows编程循序渐进》已经上市,敬请关注(附样章)
恭喜恭喜,绝对支持! |
|
[原创]泡了3小时刚看到这里
1. reasons 2. primary 3. conduct 4. responses 5. entertainment 6. waking 7. know 8. habits 9. chance 10. effectively College life in Internet Era Seeing so many college students using the Internet, some people feel quite pleased and argue that the Internet has provided a more convenient way for students to study and communicate but others feel much worried and argue that it has made some students addict themselves to the Internet and neglect their studies. In my view, the Internet does offer students an efficient way to exchange views. What’s more, the Internet may provide timely information which otherwise cannot be obtained. Through the Internet, students may also communicate with overseas students or professors whom they will probably never see. Indeed some information on Internet is not so decent or proper, but so long as the students guard against such information, the Internet will certainly become an indispensable partner in our study. 1.a foreign language 2. overcome the fear 3. the primary goal 4. that may be dealt with 5. should not ignore their mistakes 6. how native expressions differ from 7. actually says 8. serve as a basis 9. using different tenses 10. lose his chance to learn Styles of Living Some people enjoy living together with their parents after they have grown up. They hold the opinion because, living with parents, they can take better care of their parents and vice versa, Meanwhile, they can turn to their parents for help if they get into trouble or have some difficulties. To them, life in a big family seems to be more enjoyable than that in a small family. Others, however, prefer to live separately. They cherish the idea to be independent of their parents, seek more freedom and wish to have a place of their own, in which they can do what they like. Besides, they don’t want to be overprotected by their parents but long for chance to face the society by themselves. As for me, I like an independent life style in spite of the fact that I love my parents. Different generations have different life styles and values. What one generation likes may not be another generation’s fondness. Living separately, each generation can enjoy different value. In addition, by leading an independent life, I can train my character and develop my own ability to deal with things encountered in my life. |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值