Anzeigeänderungen in der Registry ohne Neustart übernehmen?

[Fuchtel]

Lösung gefunden:

Code:

var
  Sic_NCMertics: TNonClientMetrics;
...

procedure TForm1.SetScrollHeightWidth(Value: Integer);
var
  NCMertics : TNonClientMetrics;
begin
  NCMertics.cbSize := SizeOf(NCMertics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, NCMertics.cbSize, @NCMertics,0);
  Sic_NCMertics := NCMertics;
  NCMertics.iScrollWidth  := Value;
  NCMertics.iScrollHeight := Value;
  SystemParametersInfo(SPI_SETNONCLIENTMETRICS, NCMertics.cbSize, @NCMertics,0);
end;

procedure TForm1.ReSetScrollHeightWidth;
begin
  SystemParametersInfo(SPI_SETNONCLIENTMETRICS, Sic_NCMertics.cbSize, @Sic_NCMertics,0);
end;