Question

求一段使电脑死机的Delphi代码！~

如题，我想要段代码，功能是一执行电脑就死机，必须要手动重启才行。
要求要Delphi的代码~~最好是一个函数可供直接调用~~~谢谢各位！

不会的话，给些思路也行~~
不要关机的代码，我要的是看上去是死机的代码。

Answer 1

//------>>>>键盘鼠标锁定的函数定义 ----------------

function FunctionDetect(LibName, FuncName: string; var LibPointer: Pointer): boolean;
var
LibHandle: tHandle;
begin
Result := false;
LibPointer := nil;
if LoadLibrary(PChar(LibName)) = 0 then exit;
LibHandle := GetModuleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> nil then Result := true;
end;
end;
//------键盘鼠标锁定的函数定义 <<<<<<----------------

begin
if FunctionDetect('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput(True); // 禁止键盘鼠标
end;
end；
电脑死机，鼠标键盘都没用。

黑屏与解除黑屏
黑屏的实现是通过Windows API函数将显示器设置到节
能模式实现的。
黑屏： SendMessage(Application.Handle,WM_SYSCOM_MAND,SC_M0NIT0RP0WER，0);
解除黑屏：SendMessage(Application.Handle,WM_SYSCOM_MAND,SC_M0NI,IDRP0WER,-1);
黑屏与解除黑屏这个我没用过，不知道行不行。不过上面那个绝对行的。

Answer 2

做人要厚道！

Answer 3

汗~~~不能这样哦~~