Forum: Win32/Win64 API (native code)
by turboPASCAL,
11. Jul 2009
Ne, also das war es nicht.
Es lag an demRedrawWindow(Window, nil, 0..
Ich habe es jetzt doch mal in Delphi ausprobiert und ein wenig verschlimmbessert ;)
program ToniCounter;
uses
SysUtils, DateUtils, Windows, Messages;
Forum: Win32/Win64 API (native code)
by turboPASCAL,
11. Jul 2009
Aus solchen Fehlern lernt man. Da bin ich auch (stundenlang) durch.
Warum ? Den String in einen PChar wandeln und als Pointer dem Thread übergeben.
Oder einen Timer verwenden.
Ist klar warum, du "Nullst" die Fensterklasse weist dem Cursor aber nicht zu.
Forum: Win32/Win64 API (native code)
by turboPASCAL,
11. Jul 2009
Mach du mal so:
function WindowProc(Window : HWnd; Msg : LongWord; Param1, Param2 : LongInt) : LongInt; stdcall;
var
PaintInfo : TPaintStruct;
begin
Result := 0;
case Msg of
WM_DESTROY : PostQuitMessage(0);
WM_PAINT : begin