System Delphi

Title: How to Write a DWORD To registry
Question: Its Easy
Answer:

ShellSPY V1.1a

is the award winning and powerful monitoring solution that you need! ShellSPY
gives you the power to log all keystrokes, windows viewed, applications ran, internet
connections made, passwords entered, chat conversations that were made, Monitor
all running tasks on your pc Download
Now


Web Site:
Cjpsoftware.com
// Uses clause require the unit registry....
// Cjp http://www.cjpsoftware.com
// Secure Explorer locks windows folders and much more..
Function Write_DWORD: Boolean;
Var Reg: TRegistry;
Path: String;
Begin

Reg := Tregistry.CReate;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
Path := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Cjp\Value';

If Not KeyExists(Path) Then
Begin
OpenKey(Path,True);
WriteInteger('My Dword Value',123);
End else
Begin
OpenKey(Path,False);
WriteInteger('My Dword Value',3232);
End;
End;
Finally
Reg.closekey;
Reg.Free;
End;
End;