100分重谢! 如何让系统进入登陆画面?

Question

现在的情况是这样的:
(Windows 2K)程序是运行在一个笔记本上, 现在想程序还在运行的时候, 把笔记本不关机的状态下盖上! 然后下次打开笔记本时, 方案①: 不马上进入系统, 而是必须弹出系统登陆界面, 通过用户和密码登陆!(程序信息安全考虑!) 方案②: 允许进入系统, 但之前运行的程序, 必须通过一个用户验证后才进入笔记本盖上前的状态!我的难点是, 怎样得到笔记本盖上前的一些状态码或参数, 可以供下次打开笔记本时使用!?? 
我在网上找了大半天, 都找不出个所以然! 倒是头皮抓掉了一大堆~~~
望有人指点迷津, 非常感谢! (最好是有详细的代码分析!)

Answer 1

用MS的SysInfo控件可以达到你的目的。具体用法看帮助。

Answer 2

Private Declare Function LockWorkStation Lib "user32" () As BooleanPrivate Sub Command1_Click()
    LockWorkStation
End Sub

Answer 3

lxcc() :
Private Declare Function LockWorkStation Lib "user32" () As BooleanPrivate Sub Command1_Click()
    LockWorkStation
End Sub
======================================================================================
谢谢lxcc的建议, 本人也考虑过这个, 但是这只是让机器进入登陆画面, 而现在我根本就不知道什么情况下我要激发这个事件!! 也就是说, 我不知道什么时候我把笔记本给盖上拉, 不知道如何取得笔记本盖上的时候系统会有哪些参数!?AdonisVB(Adonis):
用MS的SysInfo控件可以达到你的目的。具体用法看帮助。
======================================================================================
谢谢你的建议, 我正在调试中...

Answer 4

SysInfo的事件不能获得我需要的参数!有没有更好点的方法?? 期待ing..............