VMWare, VirtualPC, VirtualBox, etc detection

[blackdrake]

Hallo.

Besteht noch ein Problem? Leider habe ich noch nicht so das Vergnügen mit dem Inline-Assembler gehabt, aber ich glaube du hast ein Problem bei den Jump-Befehlen (JMP/JGE/... etc). Meines Wissens nach müsste ein Assembler Jump-Befehl in Delphi so aussehen:

Delphi-Quellcode:

procedure ...
asm
  ...
  jge @@sprungziel
  ...
  @@sprungziel
  ...
end;

Wenn du hingegen eine Funktionen aufrufen möchtes (z.B. VirtualPCErkannt() oder VMWareErkannt()), die dann deine Warnungen oder Captions erzeugen, müsste folgendes Funktonieren:

Delphi-Quellcode:

procedure XYZ;
begin
  showmessage('XYZ');
end;

procedure ABC;
asm
  CALL XYZ;
end;

Kann es leider derzeit nicht ausprobieren.

Gruß
blackdrake