N.B. Und vielleicht auch noch die 64-Bit-Version vorbereiten:
Delphi-Quellcode:
{$IF (CompilerVersion<20.00)}
Type
NativeInt = type Integer; //Delphi2007: SizeOf(NativeInt)<>4(!)
{$IFEND}
...
SendMessage(ParentHandle, CM_STATUS, NativeInt(PChar('Durchlauf:')), i);
...
Mist - zereditiert