Records unter 32 und 64Bit

[EWeiss]

Zitat von Uwe Raabe:

Hat vermutlich gar nichts mit den Strings/PWideChars zu tun, aber

Delphi-Quellcode:

var
  ...
  DC: Cardinal;

...

DC := GetDC(MainHandle);

könnte unter 64-Bit einen Überlauf erzeugen, da ein HDC dort nicht mehr in einen Cardinal passt.

Ja das ist definitiv falsch (keine Ahnung was mich da wieder mal geritten hat) muss HDC sein.
Werde es beheben und berichten.

Danke.

PS:
Liegt am string..
Das DC ist nur für den Blink Button.

Diese Änderung wirkt sich auch nicht auf die CPU Auslastung aus die bleibt bei 64Bit 25%
Dort habe ich jetzt schon versucht MMTimer (Hochauflösender Timer vom MMSystem inkl. QueryPerformanceFrequency Callback usw.
Ein Sleep(0) oder Sleep(1) bringt auch nichts.
Den Timer auf 25ms zu setzen bremst das gesamte zeichnen aus.

Danke für eure Hilfe funktioniert jetzt so.

gruss