Wie Strg+Alt+Entf sperren und wieder freigeben unter Win9x?

[Daniel B]

Sperren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, PNonClientMetrics(10), 1);
end;

Freigeben:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, PNonClientMetrics(10), 1);
end;

Grüsse, Daniel