Lenguaje de programación Borland Delphi
Para hibernar un PC con Windows XP ó Windows 2000:
- Declara en la sección USES del formulario/unidad la unidad "ShellApi".
- Añade, por ejemplo, un botón en un formulario y en el evento onClick del mismo añadir este código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute( Handle, 'open', 'rundll32.exe', PChar
( 'Powrprof.dll,SetSuspendState' ), nil, SW_SHOWNORMAL);
end;
Nota: obviamente para que funcione la hibernación, el sistema ha de soportarla. Puede ver el artículo:
Publicado el: 2003-09-13