Delphi - Funciones para determinar el estado de un PC

Existen funcione u objetos en delphi para determinar el estado de una estación de trabajo en una red.

estados de suspensión:
Activado (Ejecutando aplicaciones)
Desactivado (Sin ejecución de aplicaciones, Bloqueo de dispositivos de entrada.

Gracias por su ayuda.

Nota:
Necesitamos respuesta Urgente.

Enumerar conexiones de red activas:

-Pon un TMemo (Memo1) y un TButton
-Pon este código en el OnClick de Button1:


procedure TForm1.Button1Click(Sender: TObject);
var
RecursoRed :TNetResource;
Mango :THandle;
NumeroEntradas :DWord;
Buffer :Array [1..50] of TNetResource;
LongBuffer :DWord;
n :Integer;
begin
LongBuffer:=SizeOf(Buffer);

if WNetOpenEnum( RESOURCE_CONNECTED,
RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE,
nil,
Mango
)<> No_ERROR then ShowMessage('Error');

NumeroEntradas:=10;

WNetEnumResource( Mango,
NumeroEntradas,
@Buffer[1],
LongBuffer
);

Memo1.Lines.Clear;
for n:=1 to NumeroEntradas do
memo1.Lines.Append(Buffer[n].lpRemoteName);
end;