hi Nico,
das habe ich schon versucht, es tut sich aber nichts, das Maximum bleibt 4. Die handles sind 100% richtig, weil sie grösser als 0 sind und mir showmessage auch angezeigt wird bei der > 0 abfrage.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
h1, h2, h3: hwnd;
begin
h1 := FindWindow('Tiberian Sun', 'Tiberian Sun');
h2 := FindWindowEx(h1, 0, '#32770', '');
h3 := FindWindowEx(h2, 0, 'msctls_trackbar32', 'Slider1');
if h3 > 0 then SendMessage(h3, TBM_SETRANGEMAX, 1, 100);
end;
^^^^das geht nicht. Ändert sich nicht von 4 auf 100.