Mayusculas
 

Hola a tod@s!

Bueno mi problemas es el siguiente quiero que cuando arranque el programa se activen las mayusculas y que cunado cerremos la aplicación se quiten como puedo hacer eso, gracias espero vuestras respuestas lo antes posible.

Un saludo.

Se puede hacer utilizando la api keybd_event y la tecla virtual VK_CAPITAL.

Coloca el siguiente código tanto para activarla como para desactivarla:

Código Delphi [-]
      keybd_event( VK_CAPITAL, MapVirtualkey( VK_CAPITAL, 0 ),
                   KEYEVENTF_EXTENDEDKEY, 0);
      keybd_event( VK_CAPITAL, MapVirtualkey( VK_CAPITAL, 0 ),
                   KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Si deseas saber si está activada o desactivada en un momento dado puedes utilizar ésto:

Código Delphi [-]
   if not Odd(GetAsyncKeyState( VK_CAPITAL )) then begin
     MessageDlg('Activa', mtInformation, [mbOK], 0);
   end
   else begin
     MessageDlg('Desacivada', mtInformation, [mbOK], 0);
   end;

Res mayusculas
 

Hola Neftali.

La parte de activar las mayusculas funciona muy bien pero esta otra parte de codigo:

Solo entra en la condicion en la parte de activa tanto si estan activadas las mayusculas como si no. Sabes xq?

Cierto, en éste caso tal vez me he complicado la vida, prueba con ésto:

Código Delphi [-]
   if Odd(GetKeyState( VK_CAPITAL )) then begin
     MessageDlg('Activa', mtInformation, [mbOK], 0);
   end
   else begin
     MessageDlg('Desacivada', mtInformation, [mbOK], 0);
   end;