Æ®ÔÆ ·¢±íÓÚ 2014-2-5 00:36:57

À¶ÆÁ´úÂë--ÇëÔÚÐéÄâ»ú²âÊÔ~~

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]
²é¿´ÍêÕû°æ±¾: À¶ÆÁ´úÂë--ÇëÔÚÐéÄâ»ú²âÊÔ~~