Dar privilegios de Administrador a la Aplicación

[PoZi]

Buenas.
He intentado hacer lo que me has indicado Bicho (por cierto gracias por responder tan rápido) y sigue haciendo lo mismo.
Lo que he hecho es crear una aplicación con el siguiente código:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_FORCE,0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  HProceso: THandle;
begin
  HProceso:=GetCurrentProcess();
  try
    TerminateProcess(HProceso,0);
  finally
    CloseHandle(Handle);
  end;
end;

y arrancarlo dándole permisos de administrador utilizando CreateProcessWithLogonW. Sin embargo la aplicación se cierra pero windows se queda tan pancho.
Saludos