Zitat von
SimStar001:
Delphi-Quellcode:
function WordsToLparam(w1: Word; w2: Word): cardinal;
begin
Result := (w1 shr 16) or w2;
end;
Ich bin mir jetzt nicht 100%ig sicher, aber müsste es, wenn überhaupt, nicht w1
shl 16 heißen?
Edit: Ja, es funktioniert mit shl. Allerdings muss man w2 nach links shiften, also so:
Delphi-Quellcode:
function WordsToLparam(w1: Word; w2: Word): cardinal;
begin
Result := w1 or (w2 shl 16);
end;
Dann sollte alles wie gewollt funktionieren.