Cambiar el Height del caption de todas las ventanas de Windows  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 28/02/00

Truco accedido 70 veces

  



 procedure TForm1.Button2Click(Sender: TObject);
 var
    Dato: TNonCLientMetrics;
 begin
   Dato.cbSize:=SizeOf(Dato);
   SystemParametersInfo(SPI_GetNonClientMetrics,0,@Dato,0);
   Dato.iCaptionHeight:=18; {Nuevo Valor / New Value}
   SystemParametersInfo(SPI_SetNonClientMetrics,0,@Dato,SPIF_SENDWININICHANGE);
 end;



ˇAh!, con SPIF_SENDWININICHANGE el cambio lo hacemos sin grabarlo en la configuración del usuario en curso. Si quieres que el cambio sea permanente, pon SPIF_UpdateIniFile