Delphi获取进程数

program Project2;

uses
   Windows , PsAPI;

procedure CvtInt;
asm
        OR      CL , CL
        JNZ     @ CvtLoop
@ C1 :    OR      EAX , EAX
        JNS     @ C2
        NEG     EAX
        CALL    @ C2
        MOV     AL , '-'
        INC     ECX
        DEC     ESI
        MOV     [ ESI ] , AL
        RET
@ C2 :    MOV     ECX , 10

@ CvtLoop :
        PUSH    EDX
        PUSH    ESI
@ D1 :    XOR     EDX , EDX
        DIV     ECX
        DEC     ESI
        ADD     DL , '0'
        CMP     DL , '0' + 10
        JB      @ D2
        ADD     DL ,( 'A' - '0') - 10
@ D2 :    MOV     [ ESI ] , DL
        OR      EAX , EAX
        JNE     @ D1
        POP     ECX
        POP     EDX
        SUB     ECX , ESI
        SUB     EDX , ECX
        JBE     @ D5
        ADD     ECX , EDX
        MOV     AL , '0'
        SUB     ESI , EDX
        JMP     @ z
@ zloop : MOV     [ ESI + EDX ] , AL
@ z :     DEC     EDX
        JNZ     @ zloop
        MOV     [ ESI ] , AL
@ D5 :
end;

function IntToStr( Value : Integer) : string;
//  FmtStr(Result, '%d', [Value]);
asm
        PUSH    ESI
        MOV     ESI , ESP
        SUB     ESP , 16
        XOR     ECX , ECX       // base: 0 for signed decimal
        PUSH    EDX            // result ptr
        XOR     EDX , EDX       // zero filled field width: 0 for no leading zeros
        CALL    CvtInt          //--函数在下图
        MOV     EDX , ESI
        POP     EAX            // result ptr
        CALL    System .@ LStrFromPCharLen
        ADD     ESP , 16
        POP     ESI
end;

var
  pid : array [ 0 .. 65535 ] of DWORD;
  size : DWORD;
begin
  if EnumProcesses( @ pid , 65535 , size) then
  MessageBox( 0 , PChar( IntToStr( size div SizeOf( DWORD))) , '' , 0);
end .