在非XP操作系统下模拟的LockWorkStation函数

在非XP操作系统下模拟的LockWorkStation函数在非XP操作系统下模拟的LockWorkStation函数文章作者:Delphiscn信息来源:邪恶八进制信息安全团队程序功能:可在非XP的操作系统下所定计算机(为了程序的界面美观,我使用了SUIPack控件,有兴趣的朋友可以去Delphibox.com下载)*********************************************************…

大家好,又见面了,我是你们的朋友全栈君。

在非XP操作系统下模拟的LockWorkStation函数

文章作者:Delphiscn

信息来源:邪恶八进制信息安全团队

程序功能:可在非XP的操作系统下所定计算机

(为了程序的界面美观,我使用了SUIPack控件,有兴趣的朋友可以去Delphibox.com下载)

**************************************************************

application password: administrators

**************************************************************

unit unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, Inifiles, SUIDlg;

type

TForm1 = class(TForm)

Form1: TsuiForm;

InputPassword: TsuiEdit;

OK: TsuiButton;

ChangePassword: TsuiButton;

SavePassword: TsuiButton;

PasswordNew: TsuiEdit;

CloseApplication: TsuiButton;

Notes: TLabel;

Message: TsuiMessageDialog;

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure OKClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SavePasswordClick(Sender: TObject);

procedure CloseApplicationClick(Sender: TObject);

procedure ChangePasswordClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (key=VK_F4) and ([ssALT]=shift) then key:=0;

end;

procedure Lock;

var

hDesktop:THandle;

wndHandle:THandle;

wndClass:array[0..50]of Char;

begin

hDesktop:=FindWindow(‘Progman’,nil);

showWindow(hDesktop,SW_Hide);

StrPCopy(@wndClass[0],’shell_TrayWnd’);

wndHandle:=FindWindow(@wndClass[0],nil);

ShowWindow(wndHandle,SW_HIDE);

end;

procedure UnLock;

var

hDesktop:THandle;

wndHandle:THandle;

wndClass:array[0..50]of Char;

begin

hDesktop:=FindWindow(‘Progman’,nil);

showWindow(hDesktop,SW_show);

StrPCopy(@wndClass[0],’shell_TrayWnd’);

wndHandle:=FindWindow(@wndClass[0],nil);

ShowWindow(wndHandle,SW_show);

end;

procedure TForm1.OKClick(Sender: TObject);

var

Filename:String;

Reguser:TIniFile;

begin

Filename:=ExtractFilePath(paramstr(0))+’Reguser.ini’;

Reguser:=TIniFile.Create(Filename);

IF Reguser.ReadString(‘程序参数’,’Password’,”)=Inputpassword.Text

then

begin

unlock;

Changepassword.Enabled:=True;

CloseApplication.Enabled:=True;

end

else

begin

Message.Text:=’Sorry Your Password Not Right’;

Message.ShowModal;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Changepassword.Enabled:=False;

PasswordNew.Enabled:=False;

CloseApplication.Enabled:=False;

Notes.Enabled:=False;

Savepassword.Enabled:=False;

lock;

end;

procedure TForm1.SavePasswordClick(Sender: TObject);

var

Filename:String;

Reguser:TIniFile;

begin

Filename:=ExtractFilePath(paramstr(0))+’Reguser.ini’;

Reguser:=TIniFile.Create(Filename);

Reguser.WriteString(‘程序参数’,’Password’,PasswordNew.Text);

Message.Text:=’You Have Changed Password’;

Message.ShowModal;

end;

procedure TForm1.CloseApplicationClick(Sender: TObject);

begin

close;

end;

procedure TForm1.ChangePasswordClick(Sender: TObject);

begin

Notes.Enabled:=True;

passwordNew.Enabled:=True;

SavePassword.Enabled:=True;

end;

end.

Reguser.ini

———————————————————————————

[程序参数]

Password=administrators

———————————————————————————

XP下LockWorkStation函数的调用

Rundll32.exe USER32.dll ,LockWorkStation

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/162736.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • python基础(5)字典「建议收藏」

    python基础(5)字典「建议收藏」字典字典的key和value一一对应的,字典是可变的,也是有序的(python3.6版本开始字典有序),可迭代的增加元素当key不存在时,直接赋值a={"status"

  • java中的继承 (extends) 详解

    java中的继承 (extends) 详解继承(extends)1.父类与子类父类也叫基类、超类子类也叫派生类在继承的而关系中,“子类就是一个父类“。也就是说,子类可以被当做父类来看待。例如父类是员工,子类是老师,那么我们可以说**”老师就是一个员工“**。关系是“is-a”,例如“老师isa员工”2.继承的格式2.1定义父类的格式:(一个普通的类定义)publicclass父类名称…

  • Vmware Links(转自VMware-land)「建议收藏」

    Vmware Links(转自VMware-land)「建议收藏」这一阵子在专研虚拟机的VSS备份,无意中发现了VMware-land很好的网站,不知道为什么无法访问,难道也被和谐掉了???以下内容是从Google的页面缓存弄出来的,在Google搜索http://vmware-land.com/Vmware_Links.html第一个就是包含了你所知道的和不知道的,关于VMwareESX的方方面面链接地址Backups:Vir…

  • java全套视频教程资料

    java全套视频教程资料学完以上内容以后,你应该对Java有一个基本的了解了,你可以用Java语言写出一些简单的程序,并且你用的是简单的编辑器,比如记事本。这个时候,不要急于进入下一部分,留下几天好好写一些程序,尽可能熟悉这

  • ubuntu 卸载命令_Ubuntu怎么卸载

    ubuntu 卸载命令_Ubuntu怎么卸载前言本文重点介绍Ubuntu卸载软件的4种方法。他们分别是图形化界面的synaptic、自动解决依赖关系的apt-get,处理依赖关系更强大的aptitude,还有安装本地deb包的dpkg。方法一:Ubuntu使用synaptic图形化界面管理软件oucanrong@zcwyou:~$sudoapt-getinstallsynaptic-y以下是使用Synaptic管理软件的教程。输…

  • candence的图纸大小设置_标准制图图纸尺寸大小

    candence的图纸大小设置_标准制图图纸尺寸大小标准制图图纸尺寸大小[b]图纸尺寸大小[/b]A0:1189毫米*841毫米A1:841毫米*594毫米A2:594毫米*420毫米A3:420毫米*297毫米A4:297毫米*210毫米A5:210毫米*148毫米纸张幅面规格纸张的规格是指纸张制成后,经过修整切边,裁成一定的尺寸。过去是以多少”开”(例如8开或16开等)来表示纸张的大小,现在我采用国际标准,规定以A0、A1、A2、B1、B2…..

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号