[[escafandra]]

Corrijo un pequeño error:

Código Delphi [-]
SendMessage(FindWindowEx(Self.Handle, 0, nil, 'Mi PC'), WM_SYSCOMMAND, SC_CLOSE, 0);

Funciona seguro.

Saludos.