在非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)


相关推荐

  • ubuntu pycharm2021.12 profession激活码【2021.10最新】

    (ubuntu pycharm2021.12 profession激活码)本文适用于JetBrains家族所有ide,包括IntelliJidea,phpstorm,webstorm,pycharm,datagrip等。https://javaforall.cn/100143.htmlIntelliJ2021最新激活注册码,破解教程可免费永久激活,亲测有效,上面是详细链接哦~F…

  • HDU – 5187 – zhx's contest (高速幂+高速乘)

    HDU – 5187 – zhx's contest (高速幂+高速乘)

  • virus.win32.parite.h病毒查杀

    virus.win32.parite.h病毒查杀virus.win32.parite.h病毒查杀第一步,病毒不会无缘无故的出现,一般是有病毒下载器(通常蛰伏在流氓软件中),或者是有后门病毒将这些病毒下载下来。用优化大师或金山或360都行,流氓软件清除工具(360插件扫描和***查杀中部分选项,注意不要一下子处理威胁,要选择流氓软件、后门项目处理)第二步,要下载两个专杀(绿盟有打包的,也可以自己一个个找)1、北信源Win32…

  • drone无人机是什么意思_无人机3droll是什么意思

    drone无人机是什么意思_无人机3droll是什么意思所以看到XTDronehttps://mp.weixin.qq.com/s/yU_xj8bMAASm8cIZnn2iZw看到Dronekit

  • bioenergized_omni info panel

    bioenergized_omni info panelbzeromemset bcopy、bzero和bcmp是传统BSD的函数,属于POSIX标准;mem*是C90(以及C99)标准的C函数。区别在于,如果你打算把程序弄到一个符合C90/C99,但是不符合POSIX标准的平台时,后者比较有优势。NetBSD的代码中有很多地方使用mem*(他们更偏爱mem*,以利于移植),即使内核也是如此,而…

  • 堆和栈的区别

    堆和栈的区别转:https://my.oschina.net/aofe/blog/267882堆和栈的区别:·1>堆空间的内存是动态分配的,一般存放对象,并且需要手动释放内存。需要程序员自

发表回复

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

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