Ik kom er niet uit en ik word er knettergek van! Omdat het volgens mij zo simpel is als wat.
Hoe schrijf je een DWORD waarde weg naar het register met TRegistry?
(Dit is een werkende functie die string-values naar een opgegeven pc / key schrijft)
Ik neem aan dat het probleem alleen maar zit in:
Hoe schrijf je een DWORD waarde weg naar het register met TRegistry?
(Dit is een werkende functie die string-values naar een opgegeven pc / key schrijft)
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| function RegtoolsType.WriteReg(PCname : string; Root: HKEY; Key : string; Value : string; Data : string) : string;
var
Reg: TRegistry;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := Root; //stel key in
if Reg.RegistryConnect(PCname) = false then result := 'Offline' //connect remote
else
begin
if Reg.OpenKey(key, true) then //open key
begin
Reg.WriteString(Value,data); //schrijf waarde
Reg.CloseKey; //sluit key
end; //if
end; //else
finally
Reg.Free;
inherited;
end;
end; //function RegtoolsType.WriteReg(Root: HKEY; key : string; value : string; data : string); |
Ik neem aan dat het probleem alleen maar zit in:
code:
1
| Reg.WriteString(Value,data); //schrijf waarde |
[ Voor 6% gewijzigd door Verwijderd op 11-07-2005 09:48 ]