Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var Value: Cardinal;
begin
SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @Value, 0);
ShowMessage(IntToStr(Value));
end;
Lo mismo te hiba a decir, ahora solo te corrijo a pesar de no ser el adecuado;
Cita:
Empezado por gluglu
...A lo mejor alguien sabe ayudarme de otra manera.
|
Saludos