Sleep ohne Win32 API

[turboPASCAL]

Auch wenn es jetzt ein bissel OT ist

@sniper_w
Ist jetzt bestimmt auch nix für Dich, aber dennoch...

Delphi-Quellcode:

procedure MalNeAsmPause(ms: DWORD);
asm
  push ecx
  push ebx
  mov ecx, eax
  call GetTickCount
  mov ebx, eax
  @loop_:
    push ebx
    push ecx
    mov eax, Application
    call TApplication.ProcessMessages
    push 1
    call Sleep
    pop ecx
    pop ebx
    call GetTickCount
    sub eax, ebx
    cmp eax, ecx
    jnae @loop_
  pop ebx
  pop ecx
end;

Und du machst das OS in Delphi, habe ich das richtig verstanden ? Kannst Du mal ein paar Faetures geben (Producktvorschau)?