Delphi - Como bloquear PC

Hola amigos, alguien sabe alguna forma de bloquear la Pc, mediante mi propio programa de manera que se pueda desbloquear con una clave o algo asi, sabia la forma de hacelo en Win98, pero en W2K nose como, ya que usaba funciones que ya no estan disponibles. Si alguien lo sabe por favor digame lago. Muchas gracias

en este link hay varios tips en pascal con ensamblador
http://www.bsdg.org/swag/KEYBOARD/index.html

en este link hay varios tips en pascal con ensamblador
http://www.bsdg.org/swag/KEYBOARD/index.html

Esto te bloquea la entrada del mouse y el teclado (excepto CTRL+ALT+DEL)...ponle un tiempo al timer pa que se desbloquee

function BlockInput(fBlockInput: Boolean): DWord; stdcall; external 'user32.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
BlockInput(True);
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
BlockInput(False);
end;