２月１８日にリリースされるWindows2000の新しいAPIを使うと簡単に，ワークス
テーションのディスプレイをロックし，不正に使われないようにすることができ
ます。
Ctrl＋Alt＋Del キーを押して［ワークステーションのロック］をクリックする
操作と同じ働きをプログラム上から行うことができます。
逆に，ロック状態を解除するには，ユーザーが，Ctrl＋Alt＋Del キーを押してロ
グオンする必要があります。ロックを解除するAPIはありません。

procedure TForm1.Button1Click(Sender: TObject);
begin
  LockWorkStation;
end;

LockWorkStation APIはDelphi5のWindows.pasに宣言がありますが，WindowsNT4.0
で使用することはできません。

LockWorkStation APIの詳細は以下のURLを参照
http://www.microsoft.com/japan/developer/library/
                               psdk/jpsetupf/_win32_lockworkstation.htm

★ Private : nakanon@tke.att.ne.jp ★ NIFTY SERVE : GCH02346 なかのん ★
★ Office : nakano_k@daiwa-futures.co.jp ★ 2000/01/02(日) PM 00:30   ★

Original document by なかのん        氏 ID:(GCH02346)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。