En pascal hay la función delay que sirve para esperar un tiempo determinado antes de ejecutar la siguiente instrucción, en delphi carece de la función delay, pero con el siguiente truco conseguimos dicho efecto, podemos programar retardos en milisegundos, recuerda un segundo tiene 1000 milisegundos

procedure SYS_Delay(msecs:integer);
var
 FirstTickCount:longint;
begin
 FirstTickCount:=GetTickCount;
 repeat
 Application.ProcessMessages; {allowing access to other
 controls, etc.}
 until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

ShellExecute(Form1.Handle, nil, ‘rundll32.exe’,  ’shell32.dll,Control_RunDLL’, nil, W_SHOW);

recueda en cargar ShellApi en el uses para utilizar la funcion ShellExecute

si queremos abrir un applet determinado que se encuentra dentro del panel de control de windows

ShellExecute(Form1.Handle, nil, ‘rundll32.exe’,’shell32.dll,Control_RunDLL mmsys.cpl’, nil, SW_SHOW);

mmsys.cpl es el applet Multimedia:

se puede especificar el tab que queremos que se abre, aqui se especifica 1 que seria la segunda solapa de applet multimedia

ShellExecute(Form1.Handle, nil, ‘rundll32.exe’,’shell32.dll,Control_RunDLL mmsys.cpl,,1′, nil, SW_SHOW);

Lista de applets de windows

Podemos hacer una busqueda de archivos con .cpl y obtener sus nombres

Truco para Mostrar el dialogo de sistema “propiedades de fecha y hora”

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);
end;

Relacionado: Mostrar el Administrador de Tareas
Fuente:  delphitricks.com

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute (HWND(nil), 'open', 'taskmgr', '', '', SW_SHOWNORMAL);
end;

Relacionado: Mostrar dialogo propiedades de fecha y hora
Fuente: delphitricks

Con la función SetTaskBar podemos ocultar,mostrar,bloquear,desbloquear la barra de tareas de windows

SetTaskBar(TaskBarVisible:boolean=true;TaskBarEnabled:boolean=true): Boolean;

Los parametros que tenemos que pasar son
TaskBarVisible: Indicamos si queremos mostrar o ocultar la barra de tareas
TaskBarEnabled: Indicamos si queremos que este desbloqueada o bloqueada

Código de la función SetTaskBar

var
WndTaskbar: HWND;
begin
Result:=true;
WndTaskbar := FindWindow('Shell_TrayWnd', nil);//buscamos la barra de tareas
if TaskBarVisible then
ShowWindow(wndTaskbar, SW_SHOW)
else
ShowWindow(wndTaskbar, SW_HIDE);
if TaskBarEnabled then
EnableWindow(wndTaskbar, True)
else
EnableWindow(wndTaskbar, False);
end;

Su uso

SetTaskBar(true,false); //bloquea la barra de tareas
SetTaskBar(true,true); //desbloquea la barra de tareas
SetTaskBar(false); //oculta la barra de tareas
SetTaskBar(true); //muestra la barra de tares
SetTaskBar(); //muestra y desbloquea la barra de tareas

Inspiración: DelphiTricks