26-02-2021, 08:07 PM
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;27-02-2021, 06:15 PM
بارك الله فيك
لكن عند التطبيق لم يتغير شيء
لكن عند التطبيق لم يتغير شيء
27-02-2021, 07:22 PM
(27-02-2021, 06:15 PM)tejmej كتب : [ -> ]بارك الله فيك
لكن عند التطبيق لم يتغير شيء
جرب تشغيله كمسؤول
02-03-2021, 05:59 PM
بارك الله فيك