DM5314_URegistry.pas
资源名称:DarkMoon.rar [点击查看]
上传用户:hndmjx
上传日期:2014-09-16
资源大小:3369k
文件大小:2k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit URegistry;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs,Registry, StdCtrls;
- procedure RegWrite(key : string;subkey : string ;value : integer);
- function RegReadKey(key : string;value : string): integer;
- function TimeStop:integer;
- procedure ClearTimeStop;
- implementation
- procedure RegWrite(key : string;subkey : string ;value : integer);
- var
- Reg : TRegistry;
- KeyGood : Boolean;
- Top : Integer;
- Left : Integer;
- Width : Integer;
- Height : Integer;
- begin
- Reg := TRegistry.Create;
- try
- reg.RootKey :=HKEY_LOCAL_MACHINE ;
- Reg.OpenKey(
- key, True);
- Reg.WriteInteger(subkey, value);
- finally
- Reg.Free;
- end;
- end;
- function RegReadKey(key : string;value : string): integer;
- var
- Reg : TRegistry;
- KeyGood : Boolean;
- Top : Integer;
- Left : Integer;
- Width : Integer;
- Height : Integer;
- begin
- result:=0;
- Reg := TRegistry.Create;
- try
- reg.RootKey :=HKEY_LOCAL_MACHINE ;
- KeyGood := Reg.OpenKey(
- key, False);
- if KeyGood =True then begin
- if reg.ValueExists(value )=true then begin
- Result := Reg.ReadInteger(value);
- end ;
- end;
- finally
- Reg.Free;
- end;
- end;
- function TimeStop:integer;
- var
- i : integer;
- begin
- i:=RegReadKey ('SOFTWAREMicrosoftWindowsCurrentVersionWindowsUpdate','TimesOutX');
- RegWrite('SOFTWAREMicrosoftWindowsCurrentVersionWindowsUpdate','TimesOutX',i+1);
- Result:=i+1;
- end;
- procedure ClearTimeStop;
- begin
- RegWrite('SOFTWAREMicrosoftWindowsCurrentVersionWindowsUpdate','TimesOutX',0);
- end;
- end.