求会Delphi编程的朋友帮我写个重启电脑程序

       procedure TForm1.Button1Click(Sender: TObject);

       begin

       ExitWindows(EW_RESTARTWINDOWS,0);

       end;

       上面这个用了关闭windows的API,

       或者用自己的代码:

       加入以下代码

       function MyExitWindows(RebootParam: Longword): Boolean;

       var

        TTokenHd: THandle;

        TTokenPvg: TTokenPrivileges;

        cbtpPrevious: DWORD;

        rTTokenPvg: TTokenPrivileges;

        pcbtpPreviousRequired: DWORD;

        tpResult: Boolean;

       const

        SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';

       begin

        if WinPlatform = VER_PLATFORM_WIN_NT then

        begin

        tpResult := OpenProcessToken(GetCurrentProcess(),

        TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,

        TTokenHd);

        if tpResult then

        begin

        tpResult := LookupPrivilegeValue(nil,

        SE_SHUTDOWN_NAME,

        TTokenPvg.Privileges[0].Luid);

        TTokenPvg.PrivilegeCount := 1;

        TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

        cbtpPrevious := SizeOf(rTTokenPvg);

        pcbtpPreviousRequired := 0;

        if tpResult then

        Windows.AdjustTokenPrivileges(TTokenHd,

        False,

        TTokenPvg,

        cbtpPrevious,

        rTTokenPvg,

        pcbtpPreviousRequired);

        end;

        end;

        Result := ExitWindowsEx(RebootParam, 0);

       end;

       之后加这个到按钮上

       procedure TForm1.Button1Click(Sender: TObject);

       begin MyExitWindows(EWX_POWEROFF or EWX_FORCE);

       end;

       // Example to reboot Windows:

       procedure TForm1.Button1Click(Sender: TObject);

       begin MyExitWindows(EWX_REBOOT or EWX_FORCE);

       end;

       来自

VB钩子函数类型值的问题

       你的问题解答如下：

       一、SetWindowsHookEx的使用

       是的，VB挂钩一个窗口用SetWindowsHookEx，最常用的csvreader源码是针对键盘和鼠标。关键参数是：

       Private Const WH_KEYBOARD_LL = '键盘

       Private Const WH_MOUSE_LL = '鼠标

       当然，它也并不是万能的。比如：挂钩IE就不能用SetWindowsHookEx了。

       例如：

        1、SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0) '表示挂钩键盘

       2、SetWindowsHookEx(WH_MOUSE_LL, AddressOf MyKBHook, App.hInstance, 0)'表示挂钩鼠标

       从上面可知，第三、竞价网站源码在哪四个参数一般都是固定的，不必去追究那么多为什么，只要够用就行:-)

       二、MyKBHook的使用

       你一旦建立了钩子，Public Function MyKBHook(ByVal ncode As Long,5影视源码官方 ByVal wParam As Long, ByVal lParam As Long) As Long中3个参数值都会随着用户的操作不断变化。我们关注的是如何对它的返回作出相应的处理：

       如：

       1、键盘：wParam表示用户对键盘的按下或弹开动作，lParam表示用户具体按了哪个键。

       2、鼠标：wParam表示用户对鼠标的uniapp数藏源码按下或弹开动作，lParam表示对我们用户不太大。

       由此可知：ncode用处不大。

       为了你具体掌握上述适应听用法，特上传了源代码实现，请下载研究：

       /download.ashx?超能世界游戏源码id=rewmoq

       附：

       如果你对IE监视感兴趣，可以在VB中引用wsock.dll或shdocvw.dll下钩子进行数据的截取。由于内容复杂，会花很多时间讲解。请自行到网上查找有关资料进行研究。

TerminateProcess HOOK

       å¦‚何保证自己的程序不被关闭？

       å°±ç®—是一些进程软件也不可以关闭

       samba 我听过有人采用程序互相监控的方法来达到目的。

       ä½†è¿™æ ·å°±ä¼šå ç”¨ç³»ç»Ÿèµ„源。一个不加什么控件的纯窗体都要3占用MB内存，

       å¦‚果加上我本来的那个程序，岂不是要占去十几MB内存，这对于我那个小程序来讲不不可忍受的。

       è¯·é—®æœ‰ä»€ä¹ˆæ¯”较好的方法可以解决？有这方面的控件吗？先谢过大家了！

       ---------------------------------------------------------------

       åœ¨WINDOWS操作系统下，当我们无法结束或者不知道怎样结束一个程序的时候，或者是懒得去找“退出”按钮的时候，通常会按“CTRL+ALT+DEL”呼出任务管理器，找到想结束的程序，点一下“结束任务”就了事了，呵呵，虽然有点粗鲁，但大多数情况下都很有效，不是吗？

        设想一下，如果有这么一种软件，它所要做的工作就是对某个使用者在某台电脑上的活动作一定的限制，而又不能被使用者通过“结束任务”这种方式轻易地解除限制，那该怎么做？无非有这么三种方法：1.屏蔽“CTRL+ALT+DEL”这个热键的组合；2.让程序不出现在任务管理器的列表之中；3.让任务管理器无法杀掉这个任务。对于第一种方法，这样未免也太残酷了，用惯了“结束任务”这种方法的人会很不习惯的；对于第二种方法，在WINDOWS 9X下可以很轻易地使用注册服务进程的方法实现，但是对于WINDOWS NT架构的操作系统没有这个方法了，进程很难藏身，虽然仍然可以实现隐藏，但实现机制较为复杂；对于第三种方法，实现起来比较简单，我的作品：IPGate 网址过滤器 就是采用的这种方式防杀的，接下来我就来介绍这种方法。

        任务管理器的“结束任务”实际上就是强制终止进程，它所使用的杀手锏是一个叫做TerminateProcess()的Win API函数，我们来看看它的定义：

       BOOL TerminateProcess(

        HANDLE hProcess; // 将被结束进程的句柄

        UINT uExitCode; // 指定进程的退出码

       );

        看到这里，是不是觉得不必往下看都知道接下来要做什么：Hook TerminateProcess()函数，每次TerminateProcess()被调用的时候先判断企图结束的进程是否是我的进程，如果是的话就简单地返回一个错误码就可以了。真的是这么简单吗？先提出一个问题，如何根据hProcess判断它是否是我的进程的句柄？答案是：在我的进程当中先获得我的进程的句柄，然后通过进程间通讯机制传递给钩子函数，与hProcess进行比较不就行了？错！因为句柄是一个进程相关的值，不同进程中得到的我的进程的句柄的值在进程间进行比较是无意义的。

        怎么办？我们来考察一下我的hProcess它是如何得到的。一个进程只有它的进程ID是独一无二的，操作系统通过进程ID来标识一个进程，当某个程序要对这个进程进行访问的话，它首先得用OpenProcess这个函数并传入要访问的进程ID来获得进程的句柄，来看看它的参数：

       HANDLE OpenProcess(

       DWORD dwDesiredAccess, // 希望获得的访问权限

       BOOL bInheritHandle, // 指明是否希望所获得的句柄可以继承

       DWORD dwProcessId // 要访问的进程ID

       );

        脉络渐渐显现：在调用TerminateProcess()之前，必先调用OpenProcess()，而OpenProcess()的参数表中的dwProcessId是在系统范围内唯一确定的。得出结论：要Hook的函数不是TerminateProcess()而是OpenProcess()，在每次调用OpenProcess()的时候，我们先检查dwProcessId是否为我的进程的ID(利用进程间通讯机制)，如果是的话就简单地返回一个错误码就可以了，任务管理器拿不到我的进程的句柄，它如何结束我的进程呢？

        至此，疑团全部揭开了。由Hook TerminateProcess()到Hook OpenProcess()的这个过程，体现了一个逆向思维的思想。其实我当初钻进了TerminateProcess()的死胡同里半天出也不来，但最终还是蹦出了灵感的火花，注意力转移到了OpenProcess()上面，实现了进程防杀。喜悦之余，将这心得体会拿出来与大家分享。

       ---------------------------------------------------------------

       è¦ä¸æˆ‘给你把我的可执行文件的源代码和动态连接库发给你好了

       åŠ¨æ€è¿žæŽ¥åº“你自己可以换掉

       å°±æ˜¯è¦æ³¨å…¥çš„那个

       ï¼Œæ³¨å…¥åˆ°çš„目标程序你自己设置

       ---------------------------------------------------------------

       å‘µå‘µï¼Œæˆ‘成功实现了：）

       é€šè¿‡setwindowshookex建立CBT的Hook，Hook DLL中加载API重定向，就可以达到全局有效的APIHOOK效果了，还要对MapFile操作，以便统一全局的参数

       ä¸‹è½½åœ°å€ï¼šponent四类文件夹的目录结构，分别存放配置文件、内核文件、端口文件和组件。系统文件结构清晰，包含arch、components、kernel三个主要部分。

       在移植过程中，采用STMFCBT6芯片作为示例，需在工程中添加相关文件。参考代码仓库：lq/keil_sdk，为自己的成长与进步增添动力。每一次的努力都是积累，每一次的付出都带来成长，坚持下去，奇迹就在转角等待你。