掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Win他バージョンが混在する環境でWin2000/XPだけでコンピュータのロックを使うには？ (ID：7304)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
早速のご回答ありがとうございます。 にしのさんがおっしゃるのはおそらくこういうことだと思うのですが、 Win9xでは「不正な処理」、NTでは「ワトソン博士」が起動時に表示されてしまいます。 function MyLockWorkStation: Boolean; type TLockWorkStation = function: Boolean; var h: HMODULE; LockWorkStation: TLockWorkStation; begin Result := False; h := GetModuleHandle('USER32.DLL'); if h <> 0 then begin @LockWorkStation := GetProcAddress(h, 'LockWorkStation'); if @LockWorkStation <> nil then begin LockWorkStation; Result := True; end; end; end; procedure TForm1.Button3Click(Sender: TObject); begin MyLockWorkStation; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.