دخول

Joumen

بسم الله الرحمان الرحيم
انا عضو جديد في هذا المنتدى الرائع و هذا اول موضوع لي

لقراءة عنصر من الريجستري[+]
Function :

كود :
Function ReadFromReg(Key:HKEY;Path:string;Value,Default:string):string;
 Var
  Handle:HKEY;
  RegType:integer;
  DataSize:integer;
 begin
  Result:=Default;
  if (RegOpenKeyEx(Key,pchar(Path),0,KEY_ALL_ACCESS,Handle)=ERROR_SUCCESS) then begin
   if RegQueryValueEx(Handle,pchar(Value),nil,@RegType,nil,@DataSize)=ERROR_SUCCESS then begin
    SetLength(Result,Datasize);
    RegQueryValueEx(Handle,pchar(Value),nil,@RegType,PByte(pchar(Result)),@DataSize);
    SetLength(Result,Datasize-1);
   end;
   RegCloseKey(Handle);
  end;
 end;

Usage :

كود :
Var Pass : String;
begin
Pass := ReadFromReg(HKEY_LOCAL_MACHINE,'Software\JoumenSofts\WhoUseIt','Password','');
Showmessage(Pass);
End;

لإضافة عنصر للريجستري[+]
Function:

كود :
function WriteToReg(key:Hkey; subkey,name,value:string):boolean;
var
regkey:hkey;
begin
  result := false;
  RegCreateKey(key,PChar(subkey),regkey);
  if RegSetValueEx(regkey,Pchar(name),0,REG_EXPAND_SZ,pchar(value),length(value)) = 0 then
    result := true;
  RegCloseKey(regkey);
end;

Usage :

إقتباس :
writetoreg(HKEY_LOCAL_MACHINE,'SOFTWARE\Classes\*\shell\Backup This\command','',paramstr(0)+' /fi %1');

لحذف عنصر من الريجستري[+]
Procedure:

كود :
procedure DeleteFromReg(const hRootKey: HKEY; const strKey, strName: String);
begin
  with TRegistry.Create do try
    RootKey := hRootKey;
    OpenKey(strKey, True);
    DeleteValue(strName);
    DeleteKey(strName);
  finally
    CloseKey;
    Free;
  end;
end;

Usage :

كود :
DeleteFromReg(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Run','WhoUseIt');

إنشاء الله يفيد :bye1:

**أبو معاذ** · 05-09-2009, 11:05 AM

بارك الله فيك أخي ، و مرحبا بك معنا ،
و هذا الرابط يمكن أن يفيدك أكثر :
http://www.delphi4arab.net/forum/showthr...p?tid=1188

تقبل الله منا و منكم الصيام و القيام.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة