Suspender e hibernar el pc

[[enecumene]]

Hombre lo tuyo esta complicado, el mismo codigo de lepe lo acabo de probar y no me tira errores, revisa el codigo bien si hay alguna laguna.

Saludos.

[jorgegetafe]

Copio y pego tal cual el codigo que me indicais, este es el resultado:

http://img514.imageshack.us/img514/8646/erroryd2.jpg

[[enecumene]]

Seguro tienes SHellApi en el Uses? si es asi y sigues con el problema vamos a esperar al Maestro Lepe a ver que te dice? digame una cosa que version de delphi usas?

Saludos.

[jorgegetafe]

Tengo delphi 7.0 y si, tengo ShellApi incluido en mi uses.

Pos tocara esperar, gracias.

[[Lepe]]

Hombre.... copiar y pegar... no sé yo.

Mi ventana se llama FrmTeclas, la tuya no sé.
Tendrás que declarar el prototipo de la función (o hacerla un procedimiento), es decir, declararla en:

Código Delphi [-]
class TForm23= class(TForm)

private
   function ShutDownWindows(Flag: Word): Boolean;
end;

Dentro de la función asigno el valor de "Flag", esa línea la puedes quitar, era solo de ejemplo para que vieses el valor que puede tomar.

Si acaso faltase algún "uses" podría ser "shlobj", pero si te dice Undeclared identifier, haces un clic sobre la palabra en cuestión en el editor de código fuente y pulsas F1 (el compilador no sabe donde está declarada, pero la ayuda de delphi si).

PD: Muy bueno el nombre de tu unidad ... "somnifero.pas" deja bien claro lo que hace dicha unidad .

Saludos

[jorgegetafe]

Gracias probaré lo que me has comentado.