Hola, siento no poder ayudarte demasiado, pero espero que te sirva lo que te expongo.
Lo máximo que he conseguido es mostrar por código las propiedad del ratón y activar la pestaña de Opciones de Puntero,
pero no consigo ejecutar eventos sobre botones, checks, etc, no se si es posible.
Además lo que hago es un shellExecute, que visualiza el cuadro de diálogo, luego lo puedes ocultar en lugar de visualizarlo
cambiando la forma de visualización con SW_HIDE, pero alomejor te orienta de alguna manera.
Aquí te dejo el código (sacado de trucomania, y modificado por mí para conseguir activar la pestaña que pide Carlos Arevalo)
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function Control(const Parametros: String): THandle;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Control('shell32.dll,Control_RunDLL main.cpl,,2');
end;
function TForm1.Control(const Parametros: String): THandle;
begin
Result := ShellExecute(Application.MainForm.Handle,
nil,
Pchar('c:\WINDOWS\system32\rundll32.exe'),
Pchar(Parametros),
nil,
SW_SHOW);
end;
end.
Saludos