+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : TypeGuessRows (/showthread.php?tid=11248)
TypeGuessRows - tejmej - 26-02-2021
ممكن كود تغيير قيمة TypeGuessRows من 8 إلى 0 في الرجستري
RE: TypeGuessRows - larbiparadox - 26-02-2021
لقرائة القيمة
كود :
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;RE: TypeGuessRows - tejmej - 27-02-2021
بارك الله فيك
لكن عند التطبيق لم يتغير شيء
RE: TypeGuessRows - larbiparadox - 27-02-2021
(27-02-2021, 06:15 PM)tejmej كتب : بارك الله فيك
لكن عند التطبيق لم يتغير شيء
جرب تشغيله كمسؤول
RE: TypeGuessRows - tejmej - 02-03-2021
بارك الله فيك