Ĺadny brzuch
czy ktos moglby mi wytlumaczyc jak wprowadzic dzieki Delphi WARTOSC BINARNA do rejestru? wiem ze musi byc:
Rejestr.WriteBinaryData('cos1', cos2, cos3); (nie wiem dokladnie co mam wprowadzić do cos2 i cos3. Prosze o pomoc,
Druga sprawa to chcialbym sie doiweidziec jak zrobić aby po uruchomieniu programu wykonanego w Delphi komputer zrestartowal sie po okreslonej liczbie sekund (np: po 60 sekundach). Bardzo prosze o pomoc, z gory thx.... pozdro
uses Registry;
var
Rejestr : TRegistry;
Zmienna : Integer;
begin
Rejestr:=TRegistry.Create;
Rejestr.OpenKey('Nazwa klucza w którym jest wartość binarna',False);
Rejestr.ReadBinaryData('Nazwa wartości',Zmienna,SizeOf(Zmienna));
Rejestr.Free;
end;
Podobnie się zapisuje
//----------------------
admin(at)beldzio(dot)com
www.beldzio.com
www.beldzio.com/forum
gg :3183960
czy moglbys mi to pokazac na konkretnym przykladzie?
mam takie wartosci :
ConfigFlags, 10 00 00 00 - to jest ta wartośc binarna
i jak to zapisac w delphi , ale tak dokladnie?
cytat:peterpiotr napisał:
czy moglbys mi to pokazac na konkretnym przykladzie?
mam takie wartosci :
ConfigFlags, 10 00 00 00 - to jest ta wartośc binarna
i jak to zapisac w delphi , ale tak dokladnie?
var Zmienna : Integer;
reg : TRegistry;
begin
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('klucz',True);
zmienna := 16;
Reg.WriteBinaryData('ConfigFlags',zmienna,SizeOf(zmienna));
except
raise Exception.Create('Błąd');
end;
finally
reg.Free;
end;
//----------------------
admin(at)beldzio(dot)com
www.beldzio.com
www.beldzio.com/forum
gg :3183960
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Rejestr.WriteBinaryData('cos1', cos2, cos3); (nie wiem dokladnie co mam wprowadzić do cos2 i cos3. Prosze o pomoc,
Druga sprawa to chcialbym sie doiweidziec jak zrobić aby po uruchomieniu programu wykonanego w Delphi komputer zrestartowal sie po okreslonej liczbie sekund (np: po 60 sekundach). Bardzo prosze o pomoc, z gory thx.... pozdro
uses Registry;
var
Rejestr : TRegistry;
Zmienna : Integer;
begin
Rejestr:=TRegistry.Create;
Rejestr.OpenKey('Nazwa klucza w którym jest wartość binarna',False);
Rejestr.ReadBinaryData('Nazwa wartości',Zmienna,SizeOf(Zmienna));
Rejestr.Free;
end;
Podobnie się zapisuje
//----------------------
admin(at)beldzio(dot)com
www.beldzio.com
www.beldzio.com/forum
gg :3183960
czy moglbys mi to pokazac na konkretnym przykladzie?
mam takie wartosci :
ConfigFlags, 10 00 00 00 - to jest ta wartośc binarna
i jak to zapisac w delphi , ale tak dokladnie?
cytat:peterpiotr napisał:
czy moglbys mi to pokazac na konkretnym przykladzie?
mam takie wartosci :
ConfigFlags, 10 00 00 00 - to jest ta wartośc binarna
i jak to zapisac w delphi , ale tak dokladnie?
var Zmienna : Integer;
reg : TRegistry;
begin
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('klucz',True);
zmienna := 16;
Reg.WriteBinaryData('ConfigFlags',zmienna,SizeOf(zmienna));
except
raise Exception.Create('Błąd');
end;
finally
reg.Free;
end;
//----------------------
admin(at)beldzio(dot)com
www.beldzio.com
www.beldzio.com/forum
gg :3183960