دخول

paix144 · 19-07-2011, 10:33 PM

و عليكم السلام و رحمة الله
لمعرفةID الجهاز

كود :
function TForm1.GetReadString(SelectRootKey: HKEY; SelectKey: string; Name: string): string;
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, False);
        Result := ReadString(name);
      finally
       Free;
      end;
    end;
end;

كود :
Edit1.Text:=GetReadString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion', 'ProductId');

لتغييرID الجهاز

كود :
procedure TForm1.SetWriteString(SelectRootKey: HKEY; SelectKey: string; NewValueName: string; Value: string);
begin
  with TRegistry.Create do
    begin
      try
        RootKey := SelectRootKey;
        OpenKey(SelectKey, True);
        WriteString(NewValueName, Value);
      finally
       Free;
      end;
    end;
end;

كود :
SetWriteString(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion', 'ProductId', Edit1.Text);

لم أجربها بعد
حذار يجب عليك إعادة تشغيل نسخة الويندوز
بالتوفيق Smile

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