دخول

tejmej · 26-02-2021, 08:07 PM

ممكن كود تغيير قيمة TypeGuessRows من 8 إلى 0 في الرجستري

larbiparadox · 26-02-2021, 09:10 PM

لقرائة القيمة

كود :
procedure TForm1.Button2Click(Sender: TObject);
var reg: TRegistry;
  sValue:Variant;
  sName:String;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Jet\4.0\Engines\Excel', False);   //
  sName := 'TypeGuessRows';
  if reg.ValueExists(sName) then
  begin
    //Prendre la valeur
    if reg.GetDataType(sName)=rdInteger then
      sValue := reg.ReadInteger(sName)
    else if reg.GetDataType(sName)=rdString then
      sValue := reg.ReadString(sName);
  end;
  memo1.text := VarToStr(sValue);
  reg.CloseKey;
  FreeandNil(reg);
end;

لحفظ القيمة

كود :
procedure TForm1.Button3Click(Sender: TObject);
var reg: TRegistry;
  sValue:Variant;
  sName:String;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Jet\4.0\Engines\Excel', False);
  sName := 'TypeGuessRows';
  if reg.ValueExists(sName) then
  begin
    //Prendre la valeur de réglage dans le nœud, doit être le même que le type de données définies si reg.
    if reg.GetDataType(sName)=rdInteger then
      reg.WriteInteger(sName, 0)
    else if reg.GetDataType(sName)=rdString then
      reg.WriteInteger(sName, 0)
  end;
  reg.CloseKey;
  FreeandNil(reg);
end;

tejmej · 27-02-2021, 06:15 PM

بارك الله فيك
لكن عند التطبيق لم يتغير شيء

larbiparadox · 27-02-2021, 07:22 PM

(27-02-2021, 06:15 PM)tejmej كتب : بارك الله فيك
لكن عند التطبيق لم يتغير شيء

جرب تشغيله كمسؤول

tejmej · 02-03-2021, 05:59 PM

بارك الله فيك

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