Ich wollte ein Programm schreiben, welches auf die Regedit zugreift.
Schwupp bin ich auf mein erstes Problem gestoßen.
Es gibt in der registry bei ICQ einen Ordner mit der ICQ-Nr.
Da diese bei jedem verschieden ist, muss man sie irgendwie auslesen,
damit man in den Ordner reinkommt, sie steht in einem Key im Oberordner.
Nun wollte ich diese auslesen um in den Ordner zu kommen, weil man dort
den ICQ Autorun abschalten kann.
Hier mein Code, aber es kann nicht auf den Eintrag zugegriffen werden,
was habe ich falsch gemacht ???
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var
reg: tregistry;
begin
reg := tregistry.create;
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('SOFTWARE\Mirabilis\ICQ\NewOwners' + '\' + IntToStr(readinteger('Lastowner'))+'ICQLite',true);
WriteInteger('LunchICQOnStartUp',0);
CloseKey;
free;
end;
end; |
In NewOwners ist der Parameter LastOwner, in dem die ICQ Nummer steht.
In NewOwners\"ICQ-Nummer"\ICQLite ist LunchICQOnStartup und das möchte ich auf 0 setzten.
Muss ich noch die ICQ Nummer umwandeln, oder wird die als Dezimalzahl ausgegeben ?
Danke im vorraus
