Inline Assembler in Methoden

[sirius]

Delphi-Quellcode:

function TForm1.getserial:TCPUID;
{in
self    --> EAX     (Das self gibts nur bei Methoden,
@TCPUID --> EDX     (sonst landet der erste Parameter gleich in EAX)
}
asm
  PUSH    EBX
  PUSH    EDI
  MOV     EDI,EDX  //aus EAX wird EDX
  MOV     EAX,1
  CPUID
  STOSD
  MOV     EAX,EBX
  STOSD
  MOV     EAX,ECX
  STOSD
  MOV     EAX,EDX
  STOSD
  POP     EDI
  POP     EBX
end;

Edit: Du musst nicht zwingend irgend eine Aufrufkonvention nehmen. Du musst dich nur an diese halten (was du ja auch gemacht hast, außer dass du self nicht beachtet hast).