unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var Res:TRegistry;
begin
Res:=TRegistry.Create;
Res.RootKey :=HKEY_USERS;
If Res.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True) then
begin
Res.WriteString('NoLogOff',IntToStr(1));
end;
Res.Free;
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var Res:TRegistry;
begin
Res:=TRegistry.Create;
Res.RootKey :=HKEY_USERS;
If Res.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True) then
begin
Res.WriteString('NoLogOff',IntToStr(1));
end;
Res.Free;
end;end.
解决方案 »
- serversocket 与多个clientsocket信息互发的例子,谁有?多线程的例子
- 如何用QUERY去取SEQUENCE里面的数据
- ==========如何编写一个http服务端===============
- 关于binary类型(sql server)
- 目录、文件操作,进行拷贝复制,实现备份功能。。。。。
- !!! 有谁知道怎样获取StringGrid中ScrollBar的滑块移动距离 !!!
- 会用DBexpress面板上的控件的老大请进!
- 怎么往数据库里存图存成JPEG的(ACCESS库的),BMP的我能存。
- 请教如何将下载的ehlib安装到delphi中?
- 如何能做到将多个表导成一个txt文件,然后又将这个txt文件中的数据导入相应的各个表中?
- 请问怎么知道RICHEDIT的当前光标的坐标
- 如何制作透明的Panel,紧急,设40分,留下36分,别介意
procedure TForm1.Button1Click(Sender: TObject);
var Res:TRegistry;
begin
Res:=TRegistry.Create;
Res.RootKey :=HKEY_USERS;
If Res.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',False) then
begin
Res.CreateKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer');
end;
Res.WriteString('NoLogOff',IntToStr(1));
Res.Free;
end;